QOOOOQ 
OOOOCl 


CRBINT=0 
RSX=1 


B   1 


"L 
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3 

H 

000000 

5 

0002HO 

6 

0002m 

7 

0002H2 

8 

0C02HH 

9 

000250 

to 

000257 

tt 

0002bl 

12 

000262 

13 

000264 

m 

000270 

15 

000277 

; PREFIX  FILE  KOR  RSXlin  ASSEMBLER  PND  ANY  OTHER  ASSEMBLER 

; WHICH  DOES  NOT  RECOGNIZE  OPCODC  nNEMONICS  EXCEPT  WHEN  THEY 

;flPPEflP  IN  THE  OPCODE  FIELD 

HflLT=0 

N0P=24Q 

cic=2m 

CLV=2H2 
CL2-2HH 
CLN=250 
CCC=257 
SEC=261 
SEV=262 
SE2=264 
:EN=270 
SCC=277 
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7 

8 
9 

16 
11 
12 
13 

m 

15 
Ifc 
1" 

IS 


20 
21 

23 
24 
25 

2b 

■•>~> 

28 
29 
30 
31 
32 

-»  -9 

35 

36 
37 
38 
39 

40 

m 

42 
43 
44 
H5 
46 
47 
48 
49 
60 
51 
52 
53 
54 
55 
56 
57 


COriTEX-ll   BISYNC   TOP 

COPYRIGHT  (C)   1975.  1976,  1977 

DiGlTfiL  EQUIPMENT  CORPORRTION,  MflYNORD,  MPSS.  017£4 

THIS  SOFTWARE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
fl  SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED 
OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  OK  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MITMENT  BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  TOR  THE  USE  OR  RFLIABILITY 
OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  B> 
DEC. 

.  TITLE  BI3YNC 
.  IDENT  /VO'3237/ 
;TflPE  1  Qf    5 

PEUISION  HISTORY 

NOV  1977  -  CEP  (EDIT  41) 

CHANGED  SETEOF  'ODE  TO  IGNORE  AN  EOT  IN  RESPONSE  TO  BID 

MOV  1977  -  CEP  (EDIT  40) 
PUT  IN  TIMEOUT  COUNTERS 

SEP  1977  -  CEP  (EDIT  37) 

CODE  DELETED  FOR  CUT  CODE  CHANGES 

JUN  1977  -  CEP  (EDIT  3G) 

CHANGES  TO  ALLOW  PACKAGE  TO  RUN  ON  AN  LSIll 
REQUIRES  MODIFICATION  TO  THE  HANDl ! MG  OF  THE  PS  AND  KGll 
MAR  1977  -  CEP  (EDIT  35^ 

CHANGE  KGll  CODE  SINCE  IT  IS  SINGLE  LINE  -  PSTS  ONLY 

MAP  1977  -  CEP  'ED  IT  34) 

PUT  IN  NAK  AND  TIMEOUT  COUNTS  FOP  USE  BY  RSTS  ONLY 


FEB  1977  -  CEP   (EDIT  33) 

MOVED  RESETTING  OF  USER  OVERFLOW  EiT  TO  PVO | D  A 
TIMING  ERROR  WHICH  LOST  THE  SECOND  RECORD 

JAN  1977  -  CEP  (EDIT  32) 

PUT  IN  CONDITIONAL  ASSEMBLIES  TO  CUT  BACK  SIZE  OF  CODE 


E  1 
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E  1 


55 
B9 
bO 
bl 
62 
b3 
rU 
bB 
66 
67 
63 
69 
7C 
71 


7H 
75 
76 

7S 

79 

SO 

81 

82 

83 

S^ 

SB 

86 

S7 

SS 

89 

90 

91 

92 

93 

9H 

9'S 

•=»b 

97 

9S 

QQ 

100 
101 
102 
103 
104 
105 
106 
107 
lOS 
109 
110 

111 

112 
113 

im 


SEPT  1976  -  CEP  (EDIT  31) 

PUT  IN  SPECIRL  CHECK  FOR  PERMRNENT  NRTIVE  MODE  POSSIBLE  IN 
RSTS  -  SOLVES  TIMING  PROBLEM 

SEPT  1976  -  CEP  (EDIT  30) 

PUT  IN  CHECK  FOR  BLOCK  SIZE  MINUS  6  ON  ITB  -  FIXES  fl 
MULTIPLE  RECORD  TRANSMISSION  IN  GEN  MODE 

SEPT  1976  -  CEP  (EDIT  27) 

SET  P  FLAG  WHEN  BEING  'WflK'ED  CO  THfiT  THE  PSTS 

30  SECOND  TIMER  CAN  TELL  UE  PRE  IN  WPKS  AND  NOT  HUNG 


AUGUST  15,  1975  -  RHR  (EDIT  26)  ] 

PE INSTALL  ACK  AVAILABLE  FLAG  IN  THE  LINE  STATUS  WORD 
IT  IS  NEEDED  TO  INFORM  THE  TAP  AS  TO  WHEN  THE  UAP  IS  FINISHED 
PROCESSING  A  BLOCK  OF  DATA.   ALSO,  DELETE  THE  SEND  ACK 
FLAG  IN  THE  LINE  STATUS  WORD  (IT  I S  NOT  USED!?) 

JULY  16,  1975  -  RHR  (EDIT  25) 

FIX  PUTTC  CODE  TO  ALLOW  A  PUTTC  TO  CHANGE  MODES  IN  THE 
OF  A  MESSAGE  TRANSFER.  THIS  WILL  PERMIT  THE  SENDING  OF 
AND  NON-NATIVE  DATA  IN  THE  SAME  TRANSMISSION 


MIDDLE 
NAT  I VE 


JUNE  23,  1975  -  RHR  (EDIT  24) 

REVAMP  THE  TIMER  CODE.   ESTABLISH  H  Bt'TE  IN 

THE  LINE  TABLE  (SRC  I   MRC)  WHICH  CONTAINS  P  COUNTER 

THIS  COUNTER  WILL  BE  DECREf.ENTED  EVERY  TIME  A  1/2  SECOND  T 

GOES  OFF.  IF  THE  COUNTER  IS  ZERO  THE  TIMEOUT  ROUTINE  FOP 

THE  TIMER  WILL  BE  CALLED.   THE  INTERVAL  TIMER 

IS  STARTED  AT  INITIALIZATION  TIME  AND  IS  ALWAYS  TICKING 

THIS  WILL  SOLVE  THE  TIMER  QUEUE  OVERFLOW  PROBLEM  WITH  RSX 

AND  ST'LL  BE  ABLE  TO  IMPLEMENT  THE  REAL  SLAVE  RECV.  TIMER 

N.  B.  THIS  EDIT  DELETES  THE  EDIT  OF  7/9/74  CONCERNING  THE  T 

JUNE  17,  1975  -  RHR  (EDIT  23) 


MER 


MER. 


MODIFY  INITIALIZATION  CALL  PARAMETER  LIST  IF  UAPTIM 
IS  DEFINED  SO  THAT  USER  PROGRAM  SUPPLIES  ALL  TIMER  VALUES 
THIS  WIlL  allow  THE  UAP  TO  TAILOR  THE  TIMERS  TO  BE  DEPENDENT 
ON  LINE  SPEED  AND  ON  TICS  PER  SECOND.   THE  IMPLEMENTPT lON 
ASSUMES  THE  SAME  VALUE  FOR  ALL  LINES  (NOTE:  AS  OF  THIS 
EDIT  THE  TAP  WILL  NOT  RUN  MULTIPLE  LINES). 


JUNE  16,  1975  -  RHR  (EDIT 


22) 


FIX  WACK  HANDLING  CODE  TO  LET  EITHER  THE  ENQ  OP  MASTER  TIMER 
CAUSE  THE  NEXT  ENQ  TO  BE  SENT.   THIS  WILL  PREVENT  TOO  MANY  TIMERS 
GETTING  QUEUED  WITH  THE  RSX- 11  VERSION.   N.  B.  THE  MTOIIT  BIT 
IN  THE  TRANSMIT  STATUS  WORD  NOW  INDICATES  TIMEOUT 


D  1  r-^\.\r 


Mnr  r\  r\ 


■    ^  "1^    ,^^^     A     r\  M^^^^     ^     .^^ 


F  I 
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r    t 


lis 
lib 

117 
US 
119 
120 
121 
122 
123 
124 
12B 
12b 

12:^ 
12s 

1  2'^ 
130 
131 

1  7") 
t  ... 

1:3 

\2M 
13B 
13b 
137 
13S 
139 

mo 
mi 
m2 
m3 
\^^ 
ms 
me 
m7 
ms 
m9 
i&o 

15i 
152 
153 
15H 
15B 
I5b 
15;- 
15S 
159 
IbO 
Ibl 
162 
163 
IbU 
165 
166 
167 
16S 
169 
170 
171 


;  OR  WPCK  RECEIVED. 

;  MRY  28,  1975  -  RHR  (EDiT  21) 

;  ADD  TRPNSPflRENT  RECORD  I  NO  I  COT  I  ON  TO  RECEIVE  COMPLETE 
;STPTUS  RETURN  (TRNREC  'N  RSW). 

;  fiPRIL  28,  1975  -  RHR  (EDIT  20) 

;GLOBRLIZE  int  EBCDIC  TO  fiSC I  I  TRPNSLflTION  TRBLE  FOR  THE  UflP 
;EXPRNC  TRRNSrilT  DONE  UiB  ENTRY  TO  4  WORDS  WHERE  THE  FOURTH 
;WORD  IS  THE  NUtlBER  OF  RECEIVED  NPKS  FOR  THIS  BLOCK 

;  FEBRURRY  12,  1975  -  RHr  (EDIT  17) 

'insert  TTD  sequence  DETECTION.   TRP  SHOULD,  UPON  FINDING 
;RN  ENQ  FOLLOWING  RN  STX  IN  TEXT,  SET  fl  NRK  EXPECTED  FLRG 
;RND  TRRNSMIT  THE  BUFFER  IMMEDlRTELY.   UPON  RECEIVING 
;THE  NRK  |T  WILL  GENERRTE  fl  UIB  ENTERY 

;  JRNURPY  31,  1975  -  RHR  (EDIT  16)  ' 

.REMOVE  LAST  REMEN!^NTS  OF  LINE  TURNRROUND  DELAY  -  ACK  AVAILABLE 
:FLRG 

;  JRNURRY  30,  1975  -  PHP 

' 

-FIX  SO  THAT  MASTER  TIMEOUT  FLAG  DOES  NOT  GET  CLEARED 

: IN  TRANSMIT  COMPLETE  CODE. 

;ALSO,  FIX  A  RSTS  STACK  POPPING  PROBLEM  IN  THE  PUTTC  CODE 

:  JANUARY  23,  1975  -  RHR 

CHANGE  DEFINITION  OF  "THALT",  TIMER  QUEUE  OVERFLOW  HRLT, 

TO  fl  "NOP"  SO  RSTS  RND  UNMAPPED  RSXllM  HON'T  HALT  BUT  R 

WORD  IS  STILL  SAVED  SO  IT  CAN  BE  PATCHED  FOP  DIAGNOSTIC  PURPOSES 

:  DECEMBER  27.  1974  -  RHR 

DON'T  ALLOW  ANOTHER  SLAVE  RECEIVE  TIMER  TO  BE  STARTED  IF 
ONE  ALREADY  IS  GOING.   THIS  FIXES  fl  PROBLEM  FOUND  WHEN 
RUNNING  IN  TRANSPARENT  MODE  IN  WHICH  fl  TIMER  WOULD  GET 
QUEUED  ON  EACH  "DLE-STX"  SEQUENCE  OF  THE  MESSAGE.   UNDER 
CERTAIN  CONDITIONS  THE  TIMER  QUEUE  WOULD  O'/EPFLOW  WITH 
UNNECESARY  TIMERS. 

DECEMBER  5,1974  -  RHR 

CORRECT  REVISION  OF  8/13/74 

REQUEST  A  RESYNC  AFTER  WRONG  flCK  IS  PECEl'/ED  IN  CASE  THE 

LINE  IS  A  FULL  DUPLEX  LEASED  LINE 

AUGUST  16,  1974  -  PHP 

CLEAN  UP  CODE  fl  BIT 

AUGUST  13,  1974  -  RHR 


D  I  c  Vk.ir 


Moroi^     M4inii 


O^       f\r  z'      ^'y      r>  ey      41^  r\  f^./^^      ^      m 


G     1 
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G  1 


172 
173 

l7^ 

17B 

PS 
177 
178 
179 
180 
181 

:S3 
isu 

185 
186 
187 
ISS 
189 
19C 
191 
192 
193 
194 
19S 
19b 
197 
158 
199 
200 
201 
2^2 

.  Jj 
20H 
2C5 
206 
207 
208 
209 
210 
211 

y^  .  n 

I.  1  i, 

213 
214 
215 
216 
217 
218 
219 
220 
221 


■7^7 

224 
225 

22S 


; CHECK  FOR  WRONG  flCK  AFTER  RN  ENQ  REQUEST  FOR  SLAVES  LRST 

;  RESPONSE,  I.E.  RECE IIMNG  STATION  NEVER 

;  RECEIVED  THE  LAST  BLOCK  WE  SENT,  WE  TlflED  OUT 

;  AND  REQUESTED  A  RESPONSE  AND  SENT  US  BACK  THE  ACK  FOR 

;  THE  PREVIOUS  BLOCK 


;JULY  9,  1974  -  RHR 

;RDD  CONDITIONAL  ASSEMBLY  PARAMETER  "RSXllM".  DEFINE  FOR 
;  USE  WITH  RSXllM.  (MAINLY  USED  TO  CAUSE  THE  M-ASSEMBLER 
;  IGNORE  .EOT'S  SINCE  IT  WILL  NOT  ORDINARILY  DO  IT) 
; JUNE  13,  1974  -  RHR 

; CAUSE  "RVI"  TO  TOGGLE  ACK  COUNTER 

; REVAMP  SLAVE  RECEIVE  TIMER  SO  THAT  IT  IS  SET  WHEN  MESSAGE 

;  IN  PROGRESS  IS  SET  (MIP)  AND  CLEARED  ONLY  WHEN  THE  MESSAGE 

;  HAS  BEEN  COMPLETED  (I.E.  AT  ETB  OR  ETX).   THE  TIMER 

;  LENGTH  HAS  ALSO  BEEN  EXTENDED.   THIS  CHANGE  WILL  PREVENT 

;  THE  TIMER  QUEUE  FROM  OVERFLOWING. 

,  N.  B.  TO  USE  THE  STANDARD  IP":,780  RECEIVE  TIMER  DEFINITION 

;       DEFINE  THE  ASSEMBLY  LUNDITIONAL  "STDSRT" 

;IF  A  LEGAL  FIRST  CHARACTER  (I.E 

,  NOT  RECOGNIZED  AFTER  THE  FIRST 

;  RECEIVED  THEN  FLUSH  THE  BUFFER 

;flDD  CONDITIONAL  ASSEMBLY  SWITCH 

;  INPUT  FROM  USER  PROGRAil  IF  F'^C 


STX,  SOH,EOT.NAK,ENQ. 
7  CHARACTERS 
AND  RESET  CRB  TIMER. 
ASCI  TO  DENOTE  ASCI  I 

IS  DEFINED 


; 


; JUNE  12,  1974 


RHR 


; CRUSE  TAP  TO  APPEND  PRO  CHRPRCTEP  IN  RBNOPMRL  TPRNSMIT 
;iNSTEflD  OF  RECEIVING  IT  FROM  USER  PROGRRM  TO  AVOID  TRRNSLRTION 
;TRBLE  CONFLICT  BETWEEN  DEL  AND  PRD  (BOTH  RSC I  I  177) 

; JUNE  11,  1974  -  RHR 

;REMOVE  LINE  TUPNRROUND  DELftY  TIME  -  HRRDWflPE  TRKES  CRRE  OF  THIS 

; JRNURRY  14, 1974 

;37S0  EMULftTOR  CHANGES  MRY  BE  flSSEMBLED  BY  DEFINING  P37S0 


JRNURRY  9,  1974 

THIS  REVISION  PROVIDES  THE  CHRNGES  FOR  THE  PSX 
RND  RSTS-E  VERSIONS  RND  RODS  CONDITIONRL  ASSEMBLY 
PRRAMETER  CFD26.  IF  CPD26  IS  N0N-2EP0  FEflTlJPF.S  OF  THE 
BISYNC  TAP  WHICH  APE  NOT  USED  BV  THE  2780  prs  RPE 
NOT  ASSEMBLED. 

SEPTEMBER  13,1973 

RESET  RCVE  TIMER  WHEN  OLE  I TB  IS  PECEi"ED 
DELETE  STX  FROM  I TB  RECORD  BLOCKS  ^ NON-TRPN^PflPEnl ) 
IF  OF   RSTS 
08=0 


Ri<^/Kir      Moron   Miinu      nii_nrr_77   no.  io      nnrr    •> 


H     1 


[ 
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H      I 


229 

230 

231 

232 

233 

234 

236 

236 

GCGOOO 

237 

000000 

238 

OGOOOO 

239 

240 

241   ; 

OOCOOl 

242 

"U7 

iHH 

24  B 

24b 

247 

24S 

249 

2BG 

2S1 

253 

2B4 

2B5 

256 

257 

177776 

258 

OOGOOO 

259 

^    OGOOOl 

260 

000002 

261 

000003 

262 

000004 

263 

000005 

264 

OOU006 

265 

000007 

2bb 

000007 

267 

000006 

26S 

000005 

269 

000004 

270 

000007 

j-i-y  ^ 

1.1    i. 

273 

170700 

274 

170702 

275 

170704 

276 

277 

27S 

000252 

279 

000272 

2SC 

2S1 

.-» o  ■o 

234 
2S5 


flSCI=0 

.  ENDC 

.  IF   DF  RTll 

flSCI=0 

.ENDC 

.  IF   DF     RSX 

UflPTin=0 

0S=0 

RSCI=0 

.ENDC 


;RSTS  USER  PROGRfln  SUPPLIES  ASCII    CHflRRCTERS 


;Ufi?   SUPPLIES   TIMER   VALUES 
RSX  USER   PROGRfln  SUPPLIES  ASCII    CHARACTERS 


CPD26=1 


IF   DF   LSlll 

GLOBL  %CPC16.CRCCHR,CPCACC 

ENDC 

GLOBL   CTiriE,CTDEL 

GLOBL  C    SARP.C.  SFY 

GLOBL  C.  BPD,C.  BPTC-C.  BARB, C.  BINT 

GLOBL  C.BLTL 

GLOBL  ETA 

IF  NDF  RSTS&PSX&PTll 

GLOBL  CP  TBL 

ENDC 

GLOBL  C.  BMSE-C.  BODE 


EBCDIC  TO  ASCII  TRANSLATION  TABLE 


;DEFIN!TI0N  Of  REGISTERS.  ETC 
C.  STAT=177776 
RO=aO 

Ri  =  -;l 

R2=:<2 

R3=*^3 
R4  =  v^ 

R5  =  -^5 
P6  =  *<6 
R7  =  :^7 
PC  =  :<7 
SP^v.6 
CBRX3V5  ' 
CBBX=X4 
PETNX=v7 


ADDRESS  OF  PPOC.  STATUS  REGISTER 


CPB  UNLOADER  PEG  I  STEP  DEFINITIONS 
MUST  NOT  BE  PEDEFiNED  FOP  USE  WITH 
THE  poM  ISP. 


:  KGIl  DEFINITIONS 
KGSTAT= 170700 
K.GBCCP  =  KGSTAT+2 
KGDATA=KGSTAT+4 


STATUS/CONTROL  PEG  I  STEP 
BCC  REGISTER 
DATA  REGISTER 


..•SPECIAL  INSTRUCTION  MNEMONICS 

CLNV=CLN!CLV 

SENV=SEN!SEl'' 


.IF  NDF  THALT 
THALT=NOP 
.  ENDC 


;  TIMER    QUEUE    OViEPFLOli   flCTiON  -    PATCH   TO  HALT    IF    r<ECESSRRY 
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I   1 


2S7 

2SS 

2S9 

290 

291 

000000 

292  ^ 

OOOOOl 

293  . 

000000 

29H 

OCOOOl 

295 

296 

2^7          . 

29S  - 

"QQ   ; 

300  ^ 

301 

302 

303 

ZQM                     : 

30S  ^ 

30b  , 

30? 

308 

309 

310 

311 

312 

313 

3m 

315 

31b 

317 

JIS 

319 

32n 

3>l 

322    : 

323 

324  neocoo 

325  000000 

OOCOOO 

32b 

32S 

329 

330 

331 

332 

0000 10 

33Z 

000010 

Z3^ 

335 

00G007 

■^Jh 

000G34 

337 

-  -  (-V 

J.w>S 

339 

000fc20 

3H0 

3H  1 

342 

mz  000002 

000000 

; CONDITIONAL  ASSEMBLY  PARAMETERS 

; DEFINE  THE  FOLLOUING  TO  BE  NON-ZERO  TO  IMPLEMENT  THE  FEATURE 


CA.  ASC  =  0 
CA.  E9C  =  1 
CA.  SBT=0 
CA.  NCR  =  1 


; IMPLEMENTS  ASCII  FACILITY(N0T  IMPLEMENTED) 
; IMPLEMENTS  EBCDIC  FACILITY 
IMPLEMENTS  SBT  FACILITY  (NOT  IMPLEMENTED) 
;DEriNE  AS  0  IF  B I  TAP  LINKED  UITH  CRll  ISR/TAP 


.DEFINE  THE  FOLLOWING  SYMBOLS  (TO  ANY  VALUE)  TO  IMPLEMENT  THE 
.CORRESPONDING  FEATURE 

;RSTS  -   DEFINE  TO  RUN  WITH  RSTS/E 

;RS.X  -    DEFINE  TO  RUN  WITH  RSX-llD/M 

;RT11   -   DEFINE  TO  RUN  WITH  RTll 

;ASCI  -    DEFINE  IF  USER  PROGkAM  SUPPLIES  ASCII  DATA  (AUTOMATICALLY 
;         DEFINED  IF  RSfS,  RSX  OR  RTll  IS  DEFINED) 

> 

:P37SG  -   DEFINE  FOR  IBM  3780  EMULATOR 

•OS    -   DEFINE  l"^  RUNNING  W  i  Th  AN  OPERATING  SYSTEM 

;         iflUTOMATiCALLY  DEFINED  FOR  RSX.  RTll.  AND  PSTS) 

;CDF2b  -   PACKED  HOLLERITH  INPUT 

;UAFTin  -  USER  PR0GR:^M  SUPPLIES  TIMER  VALUES  IN  TICS  AS  FiULOUS- 
LIST+b:  CONTENTION  TIMER 


LIST+10 
LIST+12 
LIST+m 
LiST+ie 


n  OF  TICKS  IN  AN  INTERVAL 
«  OF  TICINT  FOR  MASTER  TIMER 
tt  OF  TICINT  FOR  SLAuE  PECEi'^E 
CRB  TIMER 


MEP 


.-TIMEOUT  VALUE  FOR  ENQ  CONTENTION 

.  IF  DF   UAPTIM 

.  PSECT   XXX 
CONTIM:  .  WORD   0 

.  IFF 

CONTIM=fcO. 

C0NTIM=1S0. 

.  ENDC 


THIS 


1  z 


FOP  PR  IMAPY  a  SEC) 


THIS  IS  FOR  SECONDARY  (3  SEC) 


ENO  AND  NAK  RETRY  COUNTS 

ENQCNTMO 

NAKCNT=10 
NUMBER  OF  BUFFERS  SUPPORTED  BY  THE  TAP  'PEP  LI  NE  ^^ 


C.  BUFF=  7 


MBX  =  C.  BI'fF+C.  BUFF+C.  BUFF+C.  BUFF  ;  MAX  BUFFER  SLOT  INDEX 

.  SIZE  OF  THE  TAP  INTERNAL  BUFFER  UN  LINE  TPRLE  ) 
BSIZE=400. 

.;  TIMER  VALUE  FOP  MASTER  STATION  RECEIVE  TIMEOUT 

.  IF  DF   UAPTIM 
MSRT:    .  WORD   0 
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f; 
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J  1 


.  IFF 

nSRT=180.  /TICINT 

.  ENDC 


;3  SECONDS 


3U9 

350  00000^4  GOQOOO 

3S1 

35:  ^ 

3B3 

3SH 

35S 

35b 

357  000006  GOQOOO 

158 

3fe0 

3bl 

ZbZ 

363 

364         CC0007 

365 

36b 

36" 

36S 

369 

370 


;TiriER  VALUE  FOR  SLfiUE  STRTION  RECEIVE  TIMEOUT 

.  IF  OF  UflPTIM 
SSRT:    .  UORD   0 

.  ENOC 

.  IF   NDF   UflPTIM 

SSRT=180. /TICINT 

.  ENDC 


TICINT. 


.  IF   OF 
.  WORD 
.  IFF 
TICINT:30 


URPTIil 
0 


NTERVflL  FOR  MPSTEP/SLOVE  TIMERS 


; INTERVAL  FOR  SLAVE  RECEIVE  TIMER  =  1/2  SECOND 
;THE  ACTUAL  LENGTH  OF  THE  SLAVE  RECEIVE  TIMER 
;  IS  TiriNT*SSRT 

.  ENDC 
NUMCFP  OF  LEADING  GRAPHICS  PEPMITED  BEFORE  A  CONTROL  SEQUENCE 

LDGPPH=7. 

.  IF  NDF  RCVSIB 

PCVSIB::0 

.  ENDC 

.  IF  NDF  CPb'NT 
CRBINT=G 
:   ;   .  ENDC 


J 
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K   I 


6 


■?7'? 


373 

37H 

000020 

375 

000002 

37fc 

000001 

377 

000003 

378 

000004 

379 

000005 

380 

000025 

381 

000026 

382 

000027 

383 

000037 

384 

00C177 

385 

000036 

386 

flSCI  I  CHflRRCTER  DEFINITIONS 


DLE=20 

STX=2 

S0H=1 

ETX=3 

E0T=4 

ENQ=5 

NRK=25 

SYN=26 

ETB=27 

ITB=37 

PflD=177 

IPS=3b 
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I   I 

383 

;  LINE  TABLE  DEFINITIONS 

389 

000002 

IPL^2 

;  ISR  PfiRRriETER  LIST 

390 

^^0004 

RBUslPL-^Z 

;CRB  UNLORDER  POINTER 

391 

000006 

LC'^=RBU+2 

;LINE  CONTROL  WORD 

000010 

LS^J=LCW+2 

;LINE  SIRTUS  UORD 

393 

000012 

RSy=LSW+2 

; RECEIVE  STRTUS  WORD 

394 

000014 

TSW=RSW+2 

;TRRNSmT  STRTUS  WORD 

395 

000016 

fiSX=TSW*2 

;fiSSIGN  SLOT  INOE'< 

396 

000020 

RCX=flSXT2 

; RECEIVE  SLOT  INDEX 

397 

000022 

flRfl=RCX+2 

; ACTIVE  RECEIVE  RODRESS 

393 

000024 

fiBC=flRP+2 

; ACTIVE  BYTE  COUNT 

399 

000026 

UBL  =  flBC-^2 

;ONE  2-WORD  SLOT  PER  SUPPORTED  BUFFER 

^QO 

0000b2 

lRC=UBL+riB.y 

; INTERIM  RECEIVE  COUNT 

4G1 

000064 

TXC=IRC-»'2 

-      ;USER  CHRRS  XMITTED  SO  FRP 

402 

000066 

TS0=TXC+2 

;  ORIGINAL  USER  XfllT  RDDR 

403 

000070 

TBC=TSfl+2 

; ORIGINAL  USER  XMIT  COUNT 

4  04 

000072 

ISC=TECi2 

.IDLE  SYNCH  CONTROL-MUST  PRECEDE  Tlfl 

40S  ' 

000074 

TlP=lSC+2 

; TRANSMIT  BUFFER  1 

40b 

J00076 

TlC  =  TlPi+2 

, TRANSMIT  COUNT  1 

4J7 

000100 

T2R=TlC+2 

;TRPNSMIT  BUFFER  2 

403 

C00102 

T2C=T2fl+2 

; TRANSMIT  COUNT  2 

409 

000104 

T3fl=T2C+2 

; TRANSMIT  BUFFER  3 

410 

000106 

T3C=T3fl+2 

:    ; TRANSMIT  COUNT  3 

411 

nooiio 

TTM=T:^C  +  2 

; TERMINATES  TRANSMIT  CHAIN  (RLWAYS  ZERO) 

412 

000112 

TBS=TTn+2 

;TAP  BUFFER  START 

413 

000114 

TRC=TBS+2 

; RECORD  COUNTER  (BYTE) 

414 

000115 

nPC=TRr+i 

;   .MASTER  RECEIVE  TIMER  COUNTER  fBYTE) 

415 

000116 

THC=TRC+2 

;HCLD  COUNT 

416 

000120 

TCT=THC+2 

r     ;T1CK  COUNT  FOR  CRB  SERVICE  TIMER  REQUEST 

417 

000121 

ECH=TCT+1 

;   ; CURRENT  END  CHARPCTER-MUST  PRECEDE  CBC 

41S 

000122 

CBC=ECH+1 

; COMPUTED  BCC 

419 

000124 

PBC=CeC+2 

; RECEIVED  BCC 

420 

000126 

BCC=RBC+2 

;BCC  CHARACTER  CO'  MT  (INCLUDING  PAD) 

421 

000127 

BCL^BCC+1 

;BCC  LATCH 

422 

000130 

TCP=BCC+2 

; TRANSMIT  CHAIN  POINTER 

423 

000132 

CCTrTCP+2 

\  ^   ; ACTIVE  CODE  CONTROL  TABLE 

424   / 

000134 

CflK=CCT+2 

;fiCK  RECOGNITION  WORD  ^RCV) 

425 

000136 

flKT=CflK+2 

;XMIT  ACK  COUNTER  (BYTEi 

426 

000137 

R!B=flKT+l 

; RECORDS- IN-BLOCK  COUNTER  fBYTEj 

427 

000140 

EKT  =  flK.T+2 

:ENQ  COUNTER  (BYTE) 

425 

000141 

PKT=EKT+1 

,   ;RETRY  COUNTER  (BYTE)  ^ 

429 

000142 

TCU=EKT+2 

; TERMINAL  STATUS  WORD 

U30 

000144 

TT2fl=TCW-»-2 

;TEMP.  T2A 

431 

000146 

rT2C=TT2fl+2 

-TEMP.  T2C 

4  32  ■;';:■■ 

000150 

TT3fl=TT2C+2 

;TEMP. T3A 

433  \v::-:   : 

000152 

LGC=TT3P+2 

.COUNTER  FOR  LEADING  GRAPHICS  'PEF  P'~  A  BYTE) 

,  4  34 

000153 

SPC=LGC+1 

; SLAVE  RECEIVE  TIMER  COUNTER  iBYTEi 

4  35    V 

;THE  FOLLOUiNU 

IS  THE  TAP  BUFFER  STORAGE  FOP  THIS  LINE 

4  36 

; IT  MUST  BE  THE 

LAST  ITEM  IN  THE  LINE  TABI  E 

4  37 

000154 

TIB=LGC+2 

4  3S 

4  39  " 

;  THE  FOLLOWING 

DEFINES  THE  TABLE  SIZE  FOP  LINiT  SERVICE 

440 

000776 
000776 

LTL=TIB+BSIZE+2 
C  BLTL=LTL 

44  1    ' 

:MAKE  THE  SCIP'hAPPY  BY  MAK 1 NG'tABLE's 1 ZE 

442 

;A  GLOBAL  PARAMETER 

44  3 
444 
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f 
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e 
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N   1 


Bl 


^HS 
^^^ 
4B0 
HSl 
462 
HB3 
UB^ 

HBB 
1466 
HS7 
468 
HB9 
460 
461 
462 
463 
464 
4b^. 
466 
467 
46S 
469 
470 
471 
472 
473 
474 
475 
476 
477 
47S 


000001 
000002 
000004 
OOOOIO 
000020 
000100 
000200 
000400 
001000 
002000 
004000 

01  coon 

020000 
lOOOCC 


000001 
000002 
000004 

000020 
000040 
000200 
0004  00 
00 1  LOO 
0020UG 
004000 
010000 
020000 
040000 
100000 


;  LINE  CONTROL 
XPC  =  1 
X.  =XRC  +  1 
nCF  =  4 
SIS=10 

riss=20 

00F=100 

DLEF=200 

INI=400 

NRT=1000 

flFX=2000 

ITS=4000 

XXP= 10000 

XPT=20000 

PCVTrlOCOOO 


WORD  BIT  DEFINITIONS 
;CURRENT  CODE:  CO  -  flSCILOl  -  SBT,  10  -  EBCDIC 
; SECOND  BIT  OF  CODE  FLPG 
;nRSTER  CONTENTION  FLAG 
;SERmL/INTERLEflVED  SELECT 
;MfiSTER/SLRVE  SELECT 

OPTIONS  ONLY  FLAG  (PUTTO 

DLE  FLOG  -  PREVIOUS  CHAR  WAS  OLE 

iNIT  FLAG  -  0  IF  INIT,  1  IF  MESSAGE  TRANSFER 

NATIVE  MODE  SELECTED 

ABNORMAL  FORMAT  XMIT 

ITB  SELECT 

XMIT  TRANSPARENT  -  TOGGLED  FROM  XPT 

TPRNSPF.RENCY  TOGGLE  -  13T  PUTD  Or  BLOCK.  SETS  XXP 
;PECEIUE  TRANSPARENT  -  SET  BY  PECEIV'EO  DL^  STX 


;  LINE  STATUS  UORD  BIT  DEFINITIONS 

PBfl=l  ; RECEIVE  BUFFER  ASSIGNED 

CSA=2  ;CPB  SERVICE  ACTIVE 

RAF  =  4  ;ACK.  AVAILABLE  FLAG  -  UAP  HAS  DONE  AN  ACK  flSPBUF 

SINCE  THE  LAST  RECEIVED  RECORD 

STX  FOUND  IN  TEXT  -  EDIT  1 7A 

PUTD  OVERFLOW  REJECT  FLAG 

B'C  ACCUMULATE  FLAG 

SLAVE  RCVE  Tir.ER  ACTIVE 

RESTORE  X-niT  POINTER  FLAG 

ITB  ACTIVE  -  PREVIOUS  BLOCK  ENDED  UITH 

NAK  EXPECTED  FLAG  (TTD  SEQUENCE  SENT)  - 

TRANSMIT  ACTI:'E 

ACK  EXPECTED  FLAG 

ACKNOWLEDGE  NOTIFY  FLOG 


STXF=20 

RJT=40 

BCCA=20'' 

SPTA=40u 

PDBFMOOO 

iTBA=2000 

NEF=4000 

yAC= 10000 

AEF= 20000 

HNFrHOGOC 

MIP^IOGOOO 


TB 
EDiT 


MESSAGE  IN  PROGRESS 
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B  I 


480 

^Sl 

4  82 

Goooni 

4S3 

ooQoo: 

4S4 

OOQ0G4 

485 

OOOOIG 

486 

OOG020 

487 

OC0040 

4SS 

000100 

489 

OGC200 

490 

491 

GOG400 

14^2 

001000 

^r^ 

GG2000 

494 

GG4000 

495 

GlGOOO 

4St 

G2G000 

497 

G4G000 

498 

100000 

499 

500 

501 

502 

503 

GGOIOO 

504 

000200 

505 

50b 

507 

000400 

508 

GO  1000 

509 

OG2000 

510 

511 

512 

04COOO 

513 

IGGOOG 

;  RECEIVE  STATUS  UORD  BIT  DEFINITIONS 


CRD=1 

NUB  =  2 

DCH=4 

PCH=10 

U0UR=2G 

COVR=*G 

R0VR=1GG 

SRT0F=20G 

FBFrLOO 

TRNR£C=1000 

C,  BE0F=2G00 

DSC=4GGC 

riEND=lGGOO 

BEND=2GG00 

flEND=40GGG 

qRF= 100000 


; CARRIER  DROP  FLAG 

;N0  USER  BUFFER  ASSIGNED 

;0ATA  CHECK  (BCC  ERROR) 

; PARITY  CHECK 

;USER  BUFFER  OVERFLOW 

;CRB  OVERFLOW 

;RECEIVE  OVERFLOW  (HARDWARE) 

, SLAVE  RCVE  timeouT  FLAG 

; 'FLUSH  BUFFER'  FLAG 

.TRANSPARENT  RECEORD  RECEIVED  (DLE-STX) 

,END  OF  TRANSMISSION  (EOT  DETECTED) 

;DiSCONNECT  FLAG  (OLE  EOT  RECEIVED) 

;nESSAGE  END  fETX  RECEIVED) 

; BLOCK  END  (ETB  RECEIVED) 

; ABNORMAL  END  -  NO  RECOGNIZABLE  END  CHRP 

;  ABNORMAL  RECEIVE  FORMAT  (  NOT  ST:-,  OP  OLE  STX) 


TPANSMIT  STATUS  WORD  BIT  DEF'NITIONS 


MT0UT=1GG 
0VXM=2G0 


ETVF=4G0 

ESNT=1GGG 

BSNT=2GGG 


PVI=4.:;n00 
NAKF  =  100001: 


MASTER  TinE  OUT  HAS  OCCURRED 
OVERRIDE  TRANSMIT  ATTEMPT 


ETX  SENT 
EOT  SENT 
BID  (ENO^ 


MESSAGE  SENT 


REVERSE  INTERRUPT  RECE  i  uFD 
NAK  FLAG  'HLSO  SET  BY  ABNOPMAL 


CONDITIONS) 
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C  2 


B15 

Bib 

517 

000000 

BIS 

000001 

B19 

000002 

B20 

000003 

B21 

ooooo^ 

C.  7  7 

«/  *tf  fttf 

000005 

B23 

000006 

B2H 

000007 

B2B 

000010 

B2b 

CG00!6 

B27 

G0C022 

B2S 

000024 

B29 

000026 

B3C 

000027 

El  7  ' 
-'  .  I 

C  7  •^ 

0G0030 

B3'-4 

b36 

B3b 

00G031 

B3^ 

B3S 

000032 

B39 

000034 

B^0 

0G0036 

Bm 

OOOGHG 

B42 

0000U2 

BH3 

000044 

B'+4 

000046 

B145 

000050 

BHb 

000052 

BU? 

000053 

;  CODE  CONTROL  TOOLE  DEFINITIONS 


CRVI=0 

CUflK=CRVI+l 

CPRD=CURK+1 

CSTX=CPflD+l 

CSOH=CSTX-H 

CETB='  .OH+1 

CETX=CETB+i 

CITB=CETX-H 

CDLE=CITB+1 

CSYN=CDLE+6 

CENQ=CSYN+4 

CNflK=CENQ+2 

CE0T=CNRK+2 

BTCE=CE0T+1 

BTCI=ETCE+1 

.  iF  OF  P3780 
CIRS=BTCI+1 

.  ENDC 

LflSBYT=BTCI+l 

SYP  =  LRSBYTM+LflSBYT 

KGC=SYP+2 

RTT=KGC+2 

qTP  =  flTT-^2 

RnP=RTR+2 

NnP=RnP+2 

PPD=NMP-^2 

MDC=PPD+2 

cPK0=nD':+2 

CflKl-CPhO+l 


RVI 

URCK 

PRO 

STX 
SOH 
ETB  ET  CETERR 


G-E  -  RLSO  STRRT  OF  RCK  MESSRGES 

SYN  -  4  OF  THEM  HERE  FOR  HERDER  MESSRGE 


NO 
NO 


OF 

OF 


CHRRS 
CHRRS 


IN 
IN 


BCC 
BCC 


(ETB 

(  ITB 


OR  ETX 
OPERRT 


OPERRT 
ON) 


ON) 


USED  TO  FORCE  NEXT  INDEX  EVEN 

SYN  POINTER  (MUST  BE  WORD  BOUNDRRY) 

KGll  CLERR/SELECT  CODE 

ACTIVE  TRANSMIT  TRRNSLRTOR 

RCTIVE  RECEIVE  TRRNSLRTOR 

RCK  MESSRGE  POINTER 

NRK  MESSRGE  POINTER 

WHERE  TO  PUT  THE  PRD  FOR  BCC 

MODE  WORD  FOR  I SR  MODE  CONTROL  (PUTTC  -  INIT) 

CHRP  FOR  RCKO  RECOGNITION 

:CHRP  FOP  RCKl  MESSRGE 


n 
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D  2 


E49 
5B0 
BSl 
SB2 
SS3 
B54 
66B 
556 
55^ 
55S 
BE? 
I'tQ 
Bbl 
562 


OOOCOO 


OCOOOO 


.  IF  or 

RSX 

PSECT 

ISR. 

CON 

.  ENDC 

.IF  NDF 

OS 

.  CSECT 

.ENDC 

flSCCCTr 

0 

010000 


.THE  FOLLOW'.NG  IS  USED  FOi?  CHECKING  CRB  ENTRY 
;FOR  COPPECT  PflPITY  IF  FISC  i  I  IS  SELECTED 

PAR  I Tt  =  10000 


E   2 


BiSYKL    nfiCRO  nnoH    oe-OEC-??  08:  i8    prge  ii 


E     2 


6bB 

.  IF  N2  CR.  EBC 

Bbfe 

; EBCDIC 

CODE  CONTROL  TRBLE 

Sb7  000000 

174 

EBCCCT. 

.  BYTE  174 

;X'7C'  =  RV!  FOLLOWING  OLE 

Bb8  000001 

153 

. BYTE  153 

; '. •  =  WflCK  FOLLOWING  DLE 

569  OP0002 

277 

.BYTE  277 

;PPD 

570  000003 

002 

.BYTE  02 

.  STX 

571  000001+ 

001 

. BYTE  01 

;SOH 

572  000005 

046 

.BYTE  46 

;ET3 

573  000006 

003 

. BYTE  03 

;ETX 

57^  000007 

037 

.  BYTE  37 

;  ITB 

575  000010 

020 

160 

Z77     EBCfiCK: 

.  BYTE  20,160,377 

;DLE  -  ALSO  RCKO  MESSAGE 

576  000013 

020 

141 

277 

.  BYTE  20,141,377 

-•flCKl  MESSAGE 

577  000016 

062 

062 

062  EBCSYN; 

.  BYTE  62,62,62,62 

. SYN  SYN  SYN  SYN 

000021 

062 

B7S  000022 

055 

377 

.  BYTE  55,377 

ENQ  PAD 

579  00002H 

075 

377 

EBCNflK: 

.  BYTE  75,377     :      . 

NAK  PAD 

5S0  000026 

067 

.  B/TE  67 

EOT 

581  000027 

OCH 

. BYTE  04 

COUNT  FOR  END  CHAR  +  BCC 

582  000030 

'       003 

.BYTE  03 

COUNT  FOR  BCC  +  PAD  ONLY 

583 

.  IF  DF   P37S0 

58^ 

.BYTE   36 

IRS    " 

585 

.ENDC 

586 

587 

.  EVEN 

588  000032 

000016" 

.  WORD  EBCSYN 

POINTER  TO  MESSAGE  HEADER 

589  00003^ 

000101 

.  WORD  101 

KGll  SELECT  CODE  (CRC16) 

590  000036 

001752" 

.  WORD  EBCXTR 

EBCDIC   XMIT  TRANSLATOR 

591  OGOO^0 

004006" 

.  WORD  EBCRTR 

EBCDIC  RECEIVE  TRANSLATOR 

592  0G00H2 

000010" 

.  WORD  EBCRCK 

EBCDIC  ACK  MESSAGE 

593  OGGO^^ 

000024  * 

.  WORD  EBCNflK           , 

EBCDIC  NAK  MESSAGE 

59^  00G046 

000124 

.  WORD  RBC           ;   , 

LOCATION  FOR  PAD  IN  BCC  S 

595  000050 

177051 

.  WORD  177051 

FOR  ISR  MODE  CONTROL  (PUT 

596  000052 

160 

.  BYTE  160 

HEX  70  FOR  ACKO  MESSAGE 

597  000053 

141 

.  BYTE  141 

HEX  61  FOP  ACKl  MESSAGE 

59S 

. END  OF 

EBCDIC  CODE  CONTPOL  TABLE 

599    :  V 

bOO 

.  ENDC 

bOl 

.  IF  Z   Cfl.  EEC 

bo: 

EBCCCTrO 

bo: . 

.  ENDC 

+  PAD 


STRING 


TRING 

TC    -    INIT) 


I  n  I  T*  * 


lul  4      4     Ol  I 


F     Z 
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F     2 


fcOS 

607 

60S  GOOQIO 

609 


GOOOOO 


SBTCCT=0 

IF  DF  RSX 
.  PSECT  XXX 
.  ENDC 


o  I  <r\j<ir 


\.~\r  r\/-\ 


G     2 


B 1  SYNC  nflCPO 

rin04  06-DE 

en 

612 

613 

000003 

614 

61B 

000303 

616 

000304 

61? 

000105 

618 

619 

620 

621 

622 

622  , 

OOCOQO 

624 

000001 

■   62B 

000002 

PRGE  13 


G  2 


CODE  FOR  USER  INTERFRCE  GETS  QUEUE  ENTRIES. 


C.  BGBC  =  3 


C.  BGRD= 
C.  BGTD= 
C.  BGriS= 


C. 
C. 
C. 


BGBC^300 
BGBC*30l 
BGBC+102 


;  BPSE  CODE  FOR 

;GETS  QUEUE  ENTRIES 
; RECEIVE  DONE  CODE  (H  UORD  UIB  ENTRY) 
;TRfiNSmT  DONE  CODE  (^  WORD  UIB  ENTRY) 
; MODEM  STATUS  CODE  (2  WORD  UIB  ENTRY j 


FUNCTION  CODE  RSS 
TYPE  nflTPlX  SWITCH 

C.  BTSC  =  0 
C.  BriMC  =  l 

c.  enDC=2 


GNMENTS 
CRLLS. 


FOR  DEVICE 


TRONSniT  STARTUP  FUNCTION  CODE 
MODEM  STATUS 
ISR  MODE  CONTROL 


D  I  CIVMr 


Mor on  Mi 1 nu 


nii_ncr_-j"7  no  «o 


H  2 


I 
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H  2 


b:s 

630 
631 

632  000010 

633  000012 

634  oooom 

635  000016 

636 

bw. 
r.3S 

t39 
6^0 

bm 

6H3 
6HH 


000000 
000000 
000000 
000000 


;RCVE  DONE  GETS  PflROMETER  LIST. 
.  iF  OF  RSTS 
.  GLOBL  C.BRnC 
.  IFF 

C.  BRMC:  G 
0 

0 
0 
.  ENDC 


.  IF  NDF  RSXlin 
.  EOT 


/    f   .»    / 


f'fffrtf»»»fttff 


;END  OF  TPPE  1 
.  ENDC 


BrSYNC   hRCPC  M1104   06-DFr-77  HR-  1 R   PQRP  IP 


[ 


BISYNC  MRCPC  ^nO^  Ob-DEC-77  08:18  PRGE  IB 


646 

bH7 

6^8 

6H9 

bSO 

bSl 

6B2 

653 

bBH 

655 

656 

657  000C2C 

658 

659 

660 

661 

662 

663 

66^ 

665 

bbb 

667 

668 

669 

670  0G0020 

ii2"b: 

000007 

671 

672  000026 

010104 

673  000030 

062704 

OOCOOb 

67H  00003H 

012J67 

177740 

675  000040 

0i2467 

177742 

676  000044 

012467 

177732 

677  000050 

012467 

177730 

67S  000054 

011462 

000120 

679 

680 

681 

6S2  000060 

105062 

000115 

683  000064 

004767 

004332 

684  0000^0 

004767 

004514 

685  000074 

010204 

686  000076 

062704 

000072 

687  000102 

010462 

000130 

688  000106 

010204 

689  000110 

062704 

000154 

690  000114 

010462 

000112 

691  000120 

000250 

692  000122 

000207 

693 

694 

695 

696 

697 

698  000124 

016205 

000020 

699  000130 

0b]205 

700  000132 

062705 

000026 

701  000136 

011567 

177650 

702  000142 

005025 

; bisync  tppe  2  of  5 

;linit  commrnd  service  routine 

;  ENTERED  FROM  EflT  COfinflND  HANDLER   VIA  TERMINflL   TYPE   MATRIX 

;SWITCH  WITH  THE  FOLLOWING  REGISTERS  PRESET: 

;R!   -   POINTER   TO  LINIT  PflRRflETER  LIST 

;R2  -  POINTER  TO  START  OF  ASSIGNED  LINE  TABLE  SPfiCE 

;R3  -  LINE  «  AS  A  WORD  INDEX 

;WORD  1  OF  THE  LINE  TABLE  HAS  ALREADY  BEEN  LOADED  WITH 

;THE  DEVICE  AND  TERMINAL  TYPE  CODES 


C.  BINT: 


;nou 

;  ADD 


NIT 


ALiZE  L 

;nov 


R2, 
«LTL. 


NE  TABLE 
R4.. 


R4 
Rh 


4  ( R 1  ) 


;POINTER  TO  NEXT  AVAILABLE 
;WORD  IN  RESERVED  TABLE  AREA 


MO'/ 
ADD 


INTCLP: 


000152 


;CMP 

:bn: 

MOVB 

.  IF  DF 

MOV 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

.  IFF 

MOVB 

.  ENDC 

CLRB 

JSP 

JSR 

MOV 

ADD 

MOV 

MOV 

ADD 

MOV 

CLN 

RTS 


; STORE  POINTER  TO  NEXT 
; AVAILABLE  WORD  IN 
;LINE  TABLE  AREA. 

P2,R5  ;N0W  CLEAR  ^HE  TABLE 

«:<R5 

CLR     CR5)+ 

P5.R4 

INTCLR 

8LDGRPH,LGC(P2)  INITIALIZE  LEADING  GRAPHICS  COUNTER 

UAPTm 

R1,R4 

»6,  R4 

(P4)+,C0NT!M 

(P4)+.T1C1NT 

(R4)+.MSRT 

(R4'  +  ,SSRT 

(R4^,TCT>P2) 


&(P1),TCT^P2) 

MRC(R2) 

PC.CSSRT 

PC  INTVin 

R2,R4 

»ISC,R4 

R4,TCP(P2) 

R2,R4 

;?TI3.R4 

R4..TBS(R2) 

PC 


POINTER  TO  PARAMETER  LIST 
POINT  TO  TIMER  VALUES 
SAVE  CONTENTION  TIME;? 
SAVE  TIMER  INTERVAL 
SAVE  MASTER  TIMER 
SC,  '"  SLAVE  TIMER 
S  >  CRB  TIMER 

;SET  THE  TICK  COUNT  FOR  THIS  LINE 


;PESET  MASTER  RECEIVE  TIMER 

; RESET  SLAVE  RECEIVE  TIMER 

; START  1/2  SECOND  INTERVAL  TIMER 

;SET  POINTER  TO  TRANSMIT  CHAIN 


COMPUTE  TAP  BUFFER  ADDRESS. 

.  .  .  FOP  THIS  LINE 

AND  STORE  IN  LINE  TABLE 

N  CONDITION  CODE  BIT  CLEAR. 


RECEIVE  DONE  PROCESSOR 
RELEASE  BUFFER  TO  USER  VIA. 


C.  BPCD:  MOV  RCX(R2)-P5 

ADC  P2..  R5 

ADO  SUBL.RS 

MOV  (R5).C.  BRMC  +  : 

CLR  fP5'+ 


GETS  QUEUE 


LOCATE  CURRENT  PCV  SLOT 

NOW  HAVE  BASE  ADDRESS  OF  BUFFER  LIST 

MOV'E  ADDRESS  TO  UIB  ENTRY 
AND  MRPK  SLOT  FFEE 
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nflCRO  nii04  06 

-DEC-77 

08:  18 

703 

000144 

011567 

177644 

704 

000150 

166267 

000024 

177636 

705 

000156 

005025 

706 

;   707 

000160 

062762 

000004 

000020 

708 

000166 

026227 

000020 

000034 

709 

000174 

002404 

710 

000176 

005062 

000020 

711 

712 
713 

000202 

162705 

000034 

000206 

005715 

7m 

000210 

001003 

^15 

000212 

042762 

000001 

000010 

71b 
717 
718 

000220 

012562 

000022 

^19 

720 
711 

000224 

011562 

000024 

000230 

032762 

002000 

000010 

723 

000236 

001011 

724 

000240 

012767 

170000 

00154  0 

725 

000246 

012700 

000002 

726 

000252 

012701 

002004' 

727 

00G256 

004767 

OOOOOOG 

728 

OOC"^^ 

016267 

000012 

17752b 

729 

000^,  U 

105762 

000012 

730 

000:^74 

001406 

731 

000276 

152767 

000200 

177512 

732 

00G304 

042762 

000020 

000012 

7ZZ 

000312 

105067 

177472 

,     734 

000316 

112767 

000303 

177465 

735 

000324 

012705 

000010' 

736 

000330 

004767 

OOOOOOG 

7Z7 

000334 

032762 

000400 

000006 

722 

000342 

001403 

739 

740 

741 
742 
743 

000344 

042762 

000004 

000010 

000352 

032762 

002000 

000010 

744 

000360 

001002 

74b 

000562 

G050S2 

000012 

74  b 

000366 

000207 

PRGE  15-1 


J  2 


NOW 


;  NOU 
C.  BRCZ 


nov 

SUB 

UPDATE 

ADD 

CMP 

BLT 

CLP 

SUB 
ACT  I  VOTE 


C.  BRCY 


NOW 


C.  BCR3 


ONXT 


C,  BCRl 


L.  bcp:: 


TST 
BNE 
BIC 

,  nov 

.  IF  OF 
JSR 
.  ENDC 

nov 

GO  RECOND 
BIT 
BNE 

nov 
nov 
nov 

JSR 

:  nov 

TSTB 
BEQ 
BISB 
BIC 
:  CLPB 

novB 
m\i 

JSR 
BIT 
BEQ 


BIC 

BIT 
BNE 
CLP 
PTS  PC 


(R5).C.BRMC*4 

RBC(R2).C.BRnC 

(R5)* 
THE  RECEIVE  SLOT 

«4,RCX(R2) 

RCX(R2),IMBX 

C.BRCZ 

RCX(R2) 

DflBX.RS 
NEXT  BUFFER.    IF 

(R5) 

C.BRCY 

»RBfi, LSW(R2) 

(R5)+.flRR(R2) 
RSTS 

PCGTBFl 


INDEX 

;N0T  YET 
RNY 


;SflME  FOR  ORIG.    BYTE  COUNT 
;BUT  ADJUST   TO  ACTUAL   COUNT 


(R5),flBC(R2) 
TION   THE   DP  11 
«ITBfl.LSW(R2) 
C.  BCR3 

«170000,C.  Bins 
«C. BMDCRO 
8C   BinS.Rl 
PCC.SARP 
RSW(R2),C.  BRnC 
RSW(R2) 
C.  BNXT 

«200,C. BRnC+6 
«U0VR,RSW^R2) 

C.  BPnc 

^C.BGRD, 
«C. BRnC.P5 
PCC.SFY 
»INL.LCW(R2:) 
C.  BCRl 


?$flflF,LSWfP2^ 

«ITBR.LSW(R2) 

C.BCP2 

PSU'P2) 


SR 


+2 


+6 


; ENTRIES  ARE  TWO  WORDS 
;TmE  TO  RESET  INDEX? 

/YES 

;RESET  R5  TO  BASEOF  LIST 

IS  ANOTHER  BUFFER  AVAILABLE'? 

NONE  AVAILABLE  (SLOT  EMPTY) 
nOVE  ADDRESS  (OR  ZERO) 

GET  nAPPED  ADDRESS  FOR  BUFFER 

SAnE  FOR  COUNT 

IF  ITB  ACTIVE.  .  . 
....  LEAVE  DPll  ALONE 
REESTABLISH  STRIP  SYNC 


>  f^ 


; STATUS  BITS 
;  IF  ANY  ERRORS. 


;.  .  SET  COnBINED  ERROR  FLAG 
;*********«nAKE  SURE  OVRFL  SWTCH  ALWAYS  RESET 
;LINE  NUnBER  ALWAYS  0 
C.  BRnC+1        ;RCVE  COnPLETE  TYPE  CODE 

; STORE  PCVE  nESSAGE 
;nESSflGE  y.-FER? 
;N0 

;COnPLETE  ENTRY 
.RECEIVED  A  NEW  RECORD  SO  OLD 
;RCK.  IS  NO  LONGER  AVAILABLE 
; IF  ITB.  DON'T  CLEAR  STATUS 
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riRCPO  nnoH 

Ot   DEC 

74S 
74? 

750 
751 

^5: 

753 

.     754 

000370 

08:  18  PRGE  16 


K  2 


755  000370  000207 

^56 

757 

75S 

'   — '  - 

7t,0 
7bi 
76: 
7b  3 
764 

765  000372 

766  0CQ374 
767 
768 
769 
770 
771 
772 
77Z 
77H 
775 
776 
777 
77S 
779 
780 
781 
782 
783 
7S^ 
785 
786 
787 

789 
790 
791 
792 
793 
79H 
795 
796 
797 
798 
799 
800 
801 

Si: 

803 
80H 


105721 

032762  OlOOOn  GOGClU 


000H02 

ooo^o^ 

000412 

ooomn 
ooom6 

GG0H20 
G00H22 
GOGH 26 
GG0H3G 
GG0H36 
GOGHHH 
GGGH52 
GGGH56 
GGG464 
GGG466 
000474 
00G476 
0GG5G4 
GOGS  12 
000516 
000520 
G0G526 

GG0534 
G0054G 
0G0544 
G00550 
000656 
000562 
000564 
000572 
000600 
000604 
000612 
000614 


C01406 


042762 
000242 
000270 

000477 
112100 
005761 
003772 
052762 
042762 
112762 
0050^2 
032762 
001012 
032762 
001406 
052762 
042762 
032700 
001406 
052762 
042762 

012162 
011162 
016201 
116162 
032700 
001406 
116162 
052762 
004767 
032762 
001002 
000250 


000040  000010 


000002 

060000 
002000 
000010 
000064 
002000 

020000 

OICGOO 
020000 
000100 

002000 
022000 

000066 

nn0070 

•;•  ^  32 

Uw":'  5 

OOuu-rO 

000006 
000400 
000504 
000040 


ooonm 

000006 
000141 

000010 

000006 

000006 
000006 


000006 
000010 


000121 


000121 
000014 

000010 


nODEM  STATUS  UIB  ENTRY  PROCESSOR 


;PROCESSING 
;RG  CONIflIN 
;Rl  CONTOIN 
;R2  CONTRIN 
;R3  CONTRIN 
C.  BMSE: 


ROUTINE.  ENTERED  FROM  BUFFER  UNLOflDER  WITH: 

NG  LINE!  RND  TYPE  CODE  (C.  BriSC  =  BflSE  TYPE  CODE  +  1) 

NG  MOOEM  STRTUS  WORD. 

NG  POINTER  TO  BRSE  OF  LINE  TRBLE. 

NG  LINEI  RS  WORD  INDEX. 


PUTD 
CNTER 
RO: 


Rl 
R2 
R3 


C.  BPD: 


RTS     PC 
EMT  COnnRND  SERVICE  ROUTINE. 
FROM  TERniNRL  TYPE  MRTRIX  SWITCH  WITH: 
FUNCTION  CODE  =  000  -  NORMRL  BLOCK 

040  -  LRST  BLOCK 
100  -  RBNORMRL  FORMRT 
POlNiEP  TO  PUTD  PRRRMETER  LIST 
POINTER  TO  FIRST  WORD  OF  LINE  TRBLE 
LINE  «*2 


TSTB 
BIT 


BEQ 
;LINE  PLREROY 
L.  BPDP:  BIC 

CLV 
C.  BPD.X:  SEN 


fRl)+  ; 

«XRC,LSW(R2) 

PUTDll 
BUSY.   RETURN  II'TH 
»P.JT,LSW(P2) 


SKIP  THE  FIRST  BYTE  IN  LIST 
; IS  LINE  RLRlRDY  BUSY 
; TRANSMITTING? 


'N'  CONDITION  CODE  BIT 
CLERP  THE  REJECT  FLRG 


o 


ET. 


PUTDll: 
PUTDlfl: 


PUTDl 


PTNORM: 


PTNO: 


BR 

MO\/B 

TST 

BlE 

BIS 

BIC 

MOVB 

CLR 

BIT 

BNE 

BIT 

BEQ 

BIS 

BIC 

BIT  ^ 

BEQ  P 

BIS  ^ 

BIC 

MOV 

MOV 

MOV  C 

MOVB 

BIT  ; 

BEQ  P 

MOVB 

BIS 

JSR 

BIT 

BNE 

CLN 


:SET  RETRY  COUNT 

; CLEAR  TOTAL  XMIT  COUNT 


PTNEXT 
'Rn+.RO  ;GET  PUTD  OP  CODE. 

2(.Rn  ;  POSITIVE  NON-ZEPO  COUNT^ 

C. BPDX  ;N0  -  REJECT  PUTD 

«flEF!RNF,LSW(R2) 

JJflFX,LCW(R2) 

nNAKCNT,RKT(R2) 

TXC(R2) 

8ITBA.LSU(P2) 
:      PUTDl 

;XPT,LCW(R2) 

PUTDl 

«XXP,LCU(R2) 

?{XPT.LCW(R2) 
100, RO  ; 

TNORM 
RFX,LCW(P2) 

tJREF!  ITBfl,LSW(R2) 


IS  IT  ABNORMAL  FORMAT  flOO) 
NO  -  PROCEED 

;YES  -  SET  FLAG 

;N0T  EXPECTING  ACK  -  UNLESS  ENQ 

,     IS  SENT 

;N0.  SAVE  USER  ADDRESS  AND  COUNT 


fRn+,TSfi(R2) 

(Rl),TliC(R2) 

CT(R2).R1  ;SET  POINTER  TO  CHAR  CONTROL  TABLE 

CETB».R1),ECH(R2)  .-PROVISIONALLY  SET  END  CHAP  TO  ETB 

40, RO  ;LAST  BLOCK  REQUEST  ^40) 
TNO 

CETXtRl),ECH(P2V  ;  YES  -  CHANGE  END  CHAP  TO  ETX  ^ 

ETXF,TSW(R2)  ;SET  'ETX  SENT'  FLAG 

CPUTDO  ;G0  PROCESS  USER  BUFFER 

RJT-LSW(P2)  .;TAHE  REJECT  EXIT^ 

TNI  .YES 
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205  030616 
S06  000o20 
SO?  000626 
SOS 


000207 

042762  000400  OOOOIH 

000666 


PTNEXT:  RTS 
PTNl:    BiC 


PC 

«ETXF,TSW(R2j 
C  BPDR 


; RETURN  TO  EMT  HANDLER 
.RESET  'ETX  SENT'  FLAG 


BISYNC  MflCRO  MllOH  06-DEC-77  08:18  PRGE  17 


n  2 


B 


e  i  SYnc 

fIflCPO  nil04  06 

-DEC-77 

08:  18  PfiGE  17 

M  2 

210 

= 

811 

;PUTD 

CHflRflCTER  BUFFERING  ROUTINE 

S12 

D00630 

PTRl: 

.  IF  DF  LSIll 

S13 

nOVB    RO.CRCCHR 

/ACCUMULATE  IN  BCC 

SlU 

JSR     PC,5CRC16 

; USING  SOFTWARE  ROUTINE 

31?: 

.  IFF 

816 

000630 

110037 

170704 

MOUB  RO,a)»KGDRTfl 

; ACCUMULATE  IN  BCC 

817 

.  ENDC 

SIS 

000634 

110024 

PTR3: 

nOVB  RO, (R4)> 

, STORE  IN  TAP  BUFFER 

S19 

000636 

005262 

000102 

INC  T2C(R2) 

; INCREMENT  CURRENT  COUNT 

S20 

C00642 

005262 

000064 

INC  TXC(R2) 

;  INCR.  TOTAL  COUNT 

821 

000646 

026227 

000102 

000615 

CMP  T2C(R2),»BSIZE-3 

;TAP  BUFFER  LIMIT  REACHED? 

^  /-,  r\ 

000664 

002001 

BGE  PTR2 

;YES 

£23 
S'*4 

000656 

000207 

RTS  PC 

S25 

;  THE 

TAP  INTERNAL  BUFFER  HAS  OVERFLOWED  - 

;  DiSFflTCH  PREVIOUS  RECORDS  AND  REJECl 

'  THE  CURRENT  ONE 

000660 

005726 

FTR2: 

TST  (SP)+             .DISCARD  THE  JSR  RETURN  ADDRESS 

82S 

G00b62 

105762 

000114 

TSTB  TRCfR2)           ;IS  THIS  FIRST  BUFFER? 

829 

000666 

003003 

BGT  PTR4              ;N0  - 

OK  TO  PROCEED 

S30 

000670 

G05726 

TST     (SP)+          ;DISCARD  JSR  PUTDO 

831 

; RETURN  ADDRESS 

832 

300672 

000167 

177506 

jnP  C.  BPDR            .:TAKE 

REJECT  EXIT 

833 

00067b 

01b262 

000116 

000102 

PTR4: 

MOV  THC(R2nT2C(R2)     ;PESE1 

•  THE  TRANSMIT  PARAMETERS 

834 

;NOW  UE  HPVE  TO  RECOMPUTE  THE  BCC  FOR 

THE  PREVIOUS  RECORD 

83E 

;  USING  ETB  INSTEAD  OF  1 TB  «S  THE  END 

CHAP 

836 

.  IF  DF  LSIll 

837 

MOV     CBC(R2).CRCACC 

; RESTORE  THE  PRE-ITB  VALUE  OF  BCC 

838 

.  IFF 

839 

000704 

012737 

000133 

170700 

my   n  1 33.  a^KGSTAT 

; RESET  KGll  AND  SELECT  LRC16 

81+0 

000712 

016237 

000122 

170701+ 

m\i   CBC(R2),^«KGDflTA    ;  RESTORE  THE  PRL-ITB  VALUE  OF  BCC 

84  1 

.  ENDC 

842 

000720 

116162 

000005 

000121 

nOVB    CETB(R!.),.  ECH(R2) 

;USE  ETB  AS  END  CHAR 

S43 

000726 

052762 

000040 

000010 

BIS  «RJT.LSU(P2i 

;SET  FOF  REJECT  EXIT 

844 

.  IF  NDF  LSill 

846 

000734 

01 b 137 

000034 

170700 

MOV  KGC'Pl  ).(i)SfG3THT 

;NOW  SELECT  CURRENT  BCC  MODE 

846 

ENDC 

84  7 

00074  2 

000167 

OC0634 

JMP  PUTDb              .NOU  G 

0  OUTPUT  THE  BUFFER 

848 

B 
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350 
SSI 
S6£ 
SB3 
RS^ 
SBB 
S56 
SB? 
SBS 
SB9 
SbO 
861 
Sb2 
SbZ 
SbH 
8bB 
Sfeb 
8b7 
868 
869 
870 
871 

873 
874 
87B 
876 
877 
878 
879 
880 
881 
882 
883 
884 
ccc, 

u^  >^  W 

8S6 

888 
SS9 
S90 
891 
89Z 
893 
S9H 
S9B 
S96 
897 
898 

900 
901 
90: 
903 
90'4 
90B 
90b 


000746 
3007B2 


0007B6 
000764 
000766 
000774 
000776 
001002 
001006 


001012 
001012 
001020 
001022 
001026 
001030 
001034 
001040 
0U1044 
001GB2 
0010B4 
001060 
001064 


001100 
001106 
001110 
00111b 
001120 
001124 
001130 
001134 


001142 
001146 


116303 
000173 


032762 
001410 
032762 
001004 
116100 
004767 
000167 


032762 
001407 
G0B362 
001404 
004767 
000167 
105262 
032762 
001404 
1 16100 
004767 
016262 


001072  01376; 


126227 
002004 

U  «<  D  A.  i^  I 

002402 
000167 
116100 

004  767 
052762 


113700 
004767 


003652' 
G03762* 


010000  000006 

002000  000006 

000010 
177626 
000526 

010000  aooocfc 

000070 

177574 
000456 
000114 
010000  000006 

000010 
177550 
000102  000116 


170702  000122 

000114  000007 

000102  000612 

000456 
000007 
177474 

002000  0003 10 


170702 

177462 


001152  113700  170703 


.  PUTD  PROCtSSOR  (CONTINUED) 

; PROCESS  fi  SPtCIRL  CHRR 
PTBSP:   MOVB  fiCTTflB(R3),R3 
jnP  tt)PTSflT(R3) 

; PROCESS  R  OLE 

PTDLE:   BIT  ;XXP,LCW(R2) 

BEQ  PTDLl 

BIT  |}flFX,LC'J(R2) 

BNE  PTOLl 

nCUB  CDLE(R1),R0 

JSP  PC.PTR3 
PTDLl:   JflP  PUTD5 


; PROCESS  ON 

PTITB; 


TB 


.FETCH  THE  PCTION  CODE 
,G0  TO  ACTION  ROUTINE 


;TRflNSPflRENCY? 

;N0.  TRERT  RS  TEXT 

;  IF  RBNORMRL  FORflRT  ... 

;TRK£  NO  SPECIRL  RCTION  ON  CHRR 

;YES  -  STUFF  n  DLE  RHERD  OF  IT 


001156 
001162 


004767 
000167 


177452 
000456 


001166  052762  000020  COOOIO 


BIT     «XXP.LCWfR2) 

BEQ     PTIT3 

DEC     TBC(R2) 

BEQ     PTIT3 

JSR     PCPTRl 

jnP     PUTD4 
PTIT3:   INCD  TRl(R2) 

BIT  8XXP,LCl-J(P2) 

BEQ  PTITI 

nOVB  CDLE(R1),R0 

JSR  PC.PTR3 
RTjTl;   MOV  T2C(R2).THCfR2) 

.  IF  OF  LSIll 

MOV     CRCRCC. CBCfP2) 

.  IFF 

MOV  ii;^KGBCCR^CBCtR2) 

.  ENDC 

CMPB  TRC(P2V.  ;?C.  BUFF 

BGE     PTIT4R 

CMP     T2C'R2),«BS!:E-b 

BLT  PTIT4 
PTIT4R:  JMP  PUTD6 
PTIT4:   nOVB  CITBCRl «.P0 

JSR  PC,PTR1 

BIS  «ITBR.LSW<'P2^ 

.  IF  DF  LSIll 

MOVB    CRCRCCPO       ;  MOVE 
IFF 

MOVB  >jt.KGBCCP.-r'0 

.  ENDC 

JSR  PC.PTP3 

.  IF  DF  LSIll 

MOVB    CRCr  '.t',R0 

.  IFF 

MOVB  oI^KGBl.  •  i,R0 

.  ENDC 

JSR  PC.-PTR3 
PTIT2:   JMP  PUTDS 
; PROCESS  RN  STX  IN  THE  USE  MESSRGE 
PTSTX;   BIS     nSTXF,LSW'R2) 


;TRRNSPRRENCY'? 

;N0  -  RCCEPT  ITB 

;YES  -  IS  THIS  THE  LRST  CHRR? 

;YES  -  R''C£FT  ITB 

;N0  -  TREAT  RS  NORMRL  DRTR 

: PROCESS  NEXT  CHRRRCTER 

; COUNT  NO  OF  RECORDS  IN  BLOCK 

;TRRNSPRRENCY7 

;YES  -  STUFF  R  DLE  IN  XMIT  BUFFER 

;THIS  IS  COUNT  IF  NEXT  RECORD  REJECTED 

;BCC  FOP  REJECT  CASE 

;BCC  FOR  REJECT  CRSE 

;MRX  NO.  OF  RECORDS^ 
; YES-GO  OUTPUT  IT 

;BCC  GOING  TO  BE  TOO  NEAR  END 
;M0  -  PROCEED 
.YES  -  GO  OUTPUT  IT 
: RESTORE  THE  ITB  CHAR 
;G0  BUFFER  CHARACTER 
;SET  ITB  ACTIVE 

BCC  TO  TAP  BUFFER 

;  MOVE  BCC  TO  TAP  BUFFER 


;YES  -  MOVE  SECOND  BYTE 
;YES  -  MOVE  SECOND  B'rTE 


:SET  STX  FOUND  FLAG  -  EDIT  17 
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907 
908 
909 

910 
911 
912 
913 

9m 

915 

91fc 
917 
918 
919 
920 
921 

92H 
925 
926 
927 
928 
929 
930 
931 
932 


001 17H  000561 


BR 


PUTD5 


001176 
001 20H 
001206 
0012m 
001216 
03122H 
001226 
00123H 
001242 


0012H4 
001252 
00125H 
001262 
001270 


C01272 
001300 
001302 
001306 


032762 
001555 
032762 
OCmOH 
052762 
0005H5 
G52762 
052762 
000536 


032762 
001532 
052762 
052762 
000523 


0327b2 
001117 
Onu7b7 
0C0516 


.  PROCESS  ON  ENQ  IN  THE  USER  MESSAGE 
G02000  000006  PTENQ:   BIT  «flrx,LCW(R2) 

BEQ  PUTD5 
000020  000010         BIT     85TXF, LSW(R2) 

BEQ     PTENQl 
06H000  000010         BIS     «NEF !  FIEF  iflNF,  LSW(R2) 

BR      PUTD5 
060000  000010  PTENQl:  BIS  «REF ! flNF,  LSU(R2> 
002000  OOOOm         bis  «BSNT,TSW(R2) 

BP  PUTD5 


G02000  000006  PTEOT; 


.^01000 
GOOHOn 


GG0014 
000006 


PROCESS  AN  EOT  IN  THE  USER  riESSPGE 
BIT     nRFX,LCW(R2) 
BEQ     PUTD5 
BIS  ;ESNT.TSU(F2) 
BIS  niNI,LCW(R2) 
BP  PUTD5 


.•PROCESS  NORMALLY 


IF  NOT  ABNORMAL  FORMAT.  . 

TREAT  NORMALLY 

HAS  AN  STX  BEEN  FOUND'?  -  EDIT  17 

NO  -  TREAT  AS  A  BID  -  EDIT  17 

TTD  StO'ENCE  -  EXPECT  NAK  -  EDIT  17 

CONTINuL  PROCESSING  -  EDIT  17 

OTHERUISE  SET  "ACK  EXPECTED' 

SET  'BID  SENT'FLAG 


.ABNORMAL  FORMAT 

;N0  -  TREAT  AS  NORMAL  DATA 

;S£T  'EOT  SENT'  FLAG 

; ALLOW  XMIT  WITHOUT  INIT  PHASE 


OICOOO  000006 


17:'326 


; PROCESS  SYN 
PTSYN:   BIT 
BNE 
JSP. 
BR 


N  THE  USER  FPOGPPM  MESSAGE 
nXXP,LCW(P2) 
PUTD5 
PC.PTP3 
PUTD5fl 


TRANSPARENCY  ACTIVE^ 
YES  -  TREAT  AS  NORMAL  DATA 
BUFFER  CHAR  BUT  DON'T 
INCLUDE  IN  eCC 


BiSYNc    nflcpo  nnoM    oe-DEC-??  08:  ic    page  19 


C  3 


93^ 

935 
93fe 
937 
938 
939 
940 
9'41 
9H2 
94  3 
944 

945 
94b 

947 

94  S 

950 

951 

952 

953 

954 

955 

95b 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

97b 

977 

97S 

979 

980 

981 

982 

983 

984 

985 

986 

987 

9SS 

989 

990 


001310 

001310 


001316 
001324 

001332 
001340 
001342 
001346 
001352 
001354 
001360 
001361* 
001370 
001374 
001402 


001404 
001412 
001414 
001420 
00m24 
001430 
001436 
001440 

oomi:6 

001450 
001452 
001456 
001462 
001466 
001472 
001500 


001502 
001510 


047.762  177377  GG0014 


PUTDH: 


012737 
016137 

032762 
001405 
016204 
066204 
000406 
005062 
016204 
010462 
01620^: 
032762 
001045 


032762 
001406 
116100 
004767 
004767 
032762 
001005 
032762 
001023 
000404 
116100 
004767 
116100 
004767 
032762 
001 OOt 


012737 
016137 


000020 
000034 


170700 
170700 


002000  000010 

000100 
000102 

000102 
000112 
000100 
000066 
002000  000006 


000010 
177146 
000003 
177136 
002000 


000020 
000034 


PTDZ: 

PUTD3: 


002000  000010 

000016 
177210 
177204 
010000  000006  PUTD23: 

002000  000010 


PUTD24: 
PUTD22: 


000010 


17Q700 
170700 


OF 


4177377. TSW(R2) 
OF  RSTSILSIll 
RSTS 
«12l,ol«KGSTflT 


LSin 
CRCflCC 


BiC 
IF 
IF 

ncu 

ENDC 

IF  OF 
CLR 

ENDC 

IFF 

MOV  «20,«)«KGSTflT 
MOV  KGC(Rl),a)«KGSTflT 
.  ENDC 

BIT  «ITBR,LSW(R2) 
BEQ  PTDZ 

MOV     T2R(R2),R4 
ADD     T2C(R2),R4 
BR      PUTD3 
CLR  T2C(R2) 
MOV  TBS(R2).R4 
MOV  R4,T2fl(R2) 
nOV  TSR(R2).R5 
BIT     »RFX,LCH(R2) 
B!'£     PUTD4 
.  IF  OF  RSTS 
JSR     PC.GTBFflD 


.  ENDC 

BIT  »ITBfl.LSUfR2) 
BEQ  PUTD23 
MOVB  CSYN(R1),R0 
JSR  PC.-PTR3 
PC,PTR3 
«XXP,LCW(R2) 

PUTD24 

«ITBfl,LSW(P2) 

FUTD4 


;LEPVE  ETX  FLPG  ALONE,  RESET  OTHERS 


;SET  KG  TO  CURRENT  MODE 


JSR 
BIT 
BNE 
BIT 
BNE 
BR 


PUTD^^ 


i.i. 


PO 


DF 
DF 


001516  005CGO 


PUTD4: 


MOVB   CDLE(Rl) 
JSR   PCPTRl 
MOVB   CSTX(Rl) 
JSR   PC.PTRl 
BIT  i?ITBfl,LSW(R2) 
BNE   PUTD4 

IF 

IF 
MOV 

ENDC 

IF  DF 
CLR 

ENDC 

IFF 

MOV  |}20.i)«KGSTflT 
MOV  KGC(Rl).i)ifKGST9T 
.  ENDC 
CLR  RO 


RO 


RSTSILSIll 
RSTS 
nl21.  il^KGSTflT 

LSIll 
CRCFICC 


; CLEAR  THE  BCC  REGISTER 


; CLEAR  THE  BCC  REGISTER.  .  . 

;..AND  INIT  THE  KGU  FOR  CURRENT  CODE 

; ITB  ACTIVE? 

;INIT  FOR  NON-FIRST  RECORD  OF  ITB  BLOCK 
;rlCK  UP  WHERE  WE  LEFT  OFF 
;  IN  THE  TAP  BUFFER 

; CLEAR  CURRENT  COUNT 

; TAP'S  TRANSMIT  BUFFER 

;SET  POINTER  FOR  TAP  BUFFER 

;POINTER  TO  USER  BUFFER 

-ABNORMAL  FORMAT? 

;YES  BYPASS  DLE/STX  CODE 

;G0  GET  ADD  IN  CASE  MAPPED  OUTSIDE 

;0F  THE  MONITOR 

;UNLESS  IS  ABNORMAL  FORMAT 

; 1ST  RECORD  OF  BLOCK? 

;DON'T  PUT  SYNS  IN  BUFFER  THIS  TIME 

;PUT  2  SYNS  IN  TAP  BUFFER 


; SECOND   SYN 

;N0   -   PUT   STX    THRU   KGll 

;YES 


.PRECEDED  BY  DLE  IF  TRANSPARENT 
;DLE  GOES  INTO  BUFFER 


;  IF  ITB  NOT  ACTIVE. 


;SET  KG  TO  CUP PENT  CODE  iNITED 


CLERP  THE  BCC  REGISTER 


;WIPE  'OLE) STX  OUT  OF  KG 


GET  USEP  CHRP  WITHOUT  SIGN  EXT. 


j^ m^ 
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D  Z 


991 

^92 

993 

99^ 

996 

996 

997 

998 

999 

1000 

1001 

10Q2 

ioa3 

10Q^ 
1005 
1006 
1007 
lOOS 
1009 
1010 
1011 
1012 
1013 

lom 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

102^ 

1025 

1026 

1027 

102S 

1029 

1C30 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

lOMO 

lOm 

1042 

10H3 

\0H^ 

1045 

1046 

1047 


001520 
001522 
001526 
001532 
00153H 
001540 
001544 
001550 
001552 
001560 
001562 
001570 
001572 
001576 
001602 


152500 
004771 
120327 
003002 
000167 
004767 
005362 
003362 
032762 
001063 
032762 
001404 
116100 
004767 


000036 
000037 

V7206 
177064 
000070 

002000  000006 

010000  000006 

000010 
177032 


U01b02   116237  000121   170704 


001610 
001614 
001622 
001630 
001636 


001644 
001646 
001654 
001656 
001664 
001666 
001670 
001674 
001700 


001 
001 


'04 

•10 


001720 
001722 
001726 


001730 
001730 


C10262 
062762 
116162 

042762 


000104 
000121 
000027 
G02G00 


005003 
032762 
001015 
032762 
001015 
010200 
066100 
116110 
004767 
105062 
052762 


000104 
000106 
000010 


001636  013762   170702  G00122 


002000  oooom 

002000  000010 


000046 

000002 

000150' 

000114 

010000  000010 


001716   000207 


005000 
004767 
000207 


00053: 


BISB  (R5)i.R0 

JSR  PC.afiTT(Rl) 

CMPB  R3,«37 

BGT  PUTD5 

JMP  PTBSP 
PUTD5:   JSR  PCPTRl 
PUTDSfi:  DEC  TBC(R2) 

BGT  PUTD4 

BIT  «flFX,LCU(R2) 

BNE  PTDRB 

BIT  «XXP,LCU(R2) 

BEQ  PUTD6 

MOVB  CDLECRD.RO 

JSR  Pr,PTR3 
PUTD6:   .  IF  DF  LSIll 

nOVB    ECH(R2),CRCCHR 

JSR     PC,SCRC16 

.  IFF 

nOVB  ECH(R2),i»KGDflTfl 

.ENDC 

nOV  R2,T3ft(R2) 

ADD  «ECH,T3fl(R2) 

MOVB  BTCE(R1),T3C(P2^ 

BIC  ;iTBfl,LSW(R2) 
PUTD7;   .  IF  DF  LSI  il 

MOV     CRCRCC,CBC(R2) 

.  IFF 

MOl/  anKGBCCR,CBC(R2) 

.  ENDC 
PUTDS:   CLR     R3 

BIT  »BSNT,TSWfR2) 

BNE  PUTD9 

BIT  »ITBR.LSW(P2^ 

BNE  PUTDIO 

nOV  R2,R0 

ADD  PPD(R1),R0 

nOVB  CPflD(Rl.),i)P0 

JSR     PCRCKOUT 

CLRB  TRC(R2^ 

BIS  nXflC,LSW^P2) 

.  IF  DF  RSTS 

.  ENDC 
RTS  PC 

.IF  NDF  PSTS 
PUTDIO:  CLP  RO 

JSR  PC-TDENT 
RTS  PC 
.ENDC 


PUTD9: 
PUTDIO: 


;G0  TO  ACTIVE  TRflNSLRTOR 
;  IS  ASCII  <40? 

; IF  SO  TEST  FOR  SPECIAL  ACTION 

;G0  BUFFER  THE  CHAR 

; IS  THAT  ALL  THE  USER  CHARS? 

;N0  -  DO  THE  NEXT  ONE 

;IF  ABNORMAL  FORMAT,  BRANCH 

; TRANSPARENCY? 

;  NO. 

;YES  -  STUFF  IN  A  OLE 

;DON'T  INCLUDE  IN  BCC 

;ACCUM  END  CHAR  IN  BCC 


;ACCUM.  END  CHAR  IN  BCC 

; HAVEN'T  SEEN  I TB  THIS  PASS 

;S0  SET  BUF3  FOR  ETB  OR  ETX 
;SET  BUF3  COUNT  FOR  BCC  PAD 
;FOR  LAST  RECORD  OF  BLOCK 

;SET  BCC  INTO  XMIT  STRING 

;SET  BCC  INTO  XMIT  STRING 

;SET  UP  LINE  NUMBER 

; IF  MASTER  INIT  

;..  DON'T  SEND  IT  YET 

;  IF  ITB  ACTIVE,  DON'T  XMIT.  . 

; UNTIL  ETB  OR  ETX  TIME 

;  POI'ITER  TO  PAD  LOCATION 

;RND  PUT  IN  R  PRO  CHRP 
; INiTIRTE  X-MIT 
.RESET  RECORD  COUNTER 
:SET  XMIT  flCnVE 


CPERTE  RCTUflL  LINE  NO. 

;6ENEPflTE  .vfllT  DONE  UIB  ENTRY 
;RliD  DON'T  SET  XMIT  RCTIVE  YET 


;FINRL  SETUP  FOR  RBNORMRL  FORMRT  TRRNSMIT 
PTDRB: 


010162  OOOIOH 


.  IF    OF 
MOV 


flSCI 
Rl,T3fliR2) 


IF   RSCI I     INPUT    INSERT   fl  PRO 
:PUT    IN   PRD   CHPRhCTEP 


r 


E  Z 

BISYNC  MRCPO  nnOH  Ob-DEC-77  08:  18  PfiGE19-2     i      . 

10^8  00173^  062762  000002  00010^         ROD     »CP«D. T3R(R2) 

1049  0017H2  012762  000001   000106         MOV     lll.T3C(R2)  ;  AND  CHflRflCTER  COUNT  IN  BUFFER 

1050  ,  ENDC 

ISrl  '^   NDF   RSCI  ;IF  NOT  fiSCI I    USER  PROGRflM  SUPPLIES  PAD 

}0^2  CLR  T3fi(R2)  ; TERniNRTE   CHflRRCTER   STR ING 

1053  .  ENDC 

lOBH   001750  G0073B  BRPUTD8 

^1055  i 


F     3 
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F     3 


1G57 

10S8 

1 0S9 

ICcO  001752 

IQfel 

1062  001762 

032762 

OOIOGO 

1063  001760 

oomo3 

1064 

106B 

1066 

1067  001762 

116003 

003052' 

106S  001766 

000403 

10b9 

1070 

\Q-\   001770 

110003 

10^:  ooi:'72 

116000 

003452' 

1073  001776 

04:703 

17:^600 

1074  00:002 

000207 

;HOLLERITH-EBCOIC   TRflNSfllT  TRflNCLRTOP 

.  IF   NZ     CR. EBC 
EBCXTR. 

000006  BIT  «NflT.LCW(R2)  ;NflTIVE  flODE'? 

BEQ     EBCXTl  ; NO  -  PERFORM  NORMAL  TRflNSLRTION 

;TRflNSLflTE  THROUGH  EBCD  TO  RSC I  I  TRBLE 

;FOR  SPECIAL  CODE  TEST.  DON'T  TRANSLATE  DATA  CHARACTER 


EBCXTl 


MOVB 
BP 

.  IF  DF 

MOVB 

MOVB 

BIC 

RTS 


ETR(R0),R3 

XI 

RSC  I 

P0-P3 

REyB(P0^P0 

S177600.R3 

PC 


;BRCK  TO  PUTO  PROCESSOR 


; STRIP  TO  7  BIT  FOR  ID 


^^A 


r 
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G  3 


1076 
1077 
lO^S 
1P79 
lOSO 
1081 
10S2 
1083 
108H 
1085 
1086 
1087 

loss 

1089 
1090 
1091 

109: 

1093 
109H 
109B 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
llOH 
1105 
1106 
1107 
1108 
1109 
1110 

nil 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

il20 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 


002004 
002006 
002010 
OO2O12 


002014 
002016 
002022 
002030 
002034 
002040 
002042 

002046 
002050 
002052 

002056 
002064 
002070 
002076 
002102 
002106 

002112 
002116 
002122 
002126 
002132 

002136 
002144 


OOOQQO 
OGOOOO 

000000 
000000 


010146 
G16104 
042762 
016205 
032704 
001002 
000167 

005704 
100002 
000167 

042762 
042705 
042762 
042704 
050462 
062705 


010562 
012705 
016200 
016201 
01G562 


116567 
116562 


000002 
000100 
000006 
040000 

000410 


000542 

177200 
176670 
102700 
000577 
000142 
000002 

000006 
000000 
000132 
000134 
000132 

000016 
000030 


000006 


000142 
000010 


-PUTTC  (PUT  TFRniNRL  CONTROL) 

SERVICE  ROUTINE. 

ENTER  FROM  fERrMNRL  TYPE  MRTRIX  SWITCH  WITH. 

RO:    FUNCTION  CODE  2 

Rl;    POINTER  TO  PUTTC  PflRflttETER  LIST 

R2:    POINTER  TO  FIRST  WORD  OF  LINE  TPBLE 

R3:    LIKE  nZ 

PUTTC  PflROMETER  LIST  FORttfiT: 

LOCP;   BITS  0-7=LINE«,  BITS  8-15=0PC0DE  002 

LOCP+2:        nODE  CONTROL  WORD 

LOCP+4:        RESERVED  FOR  MODE  STATUS  WORD 


PflRflMETER  LIST  FORriPT  FOR 
Rl  MUST  POINT  TO  C.  BlflS 
.  IF  OF  RSTS 
.GLOBL  C.BinS 
.  IFF 


C.  BinS: 


SR  nODE  CONTROL  AND  SENSE  CALL. 


UORD 

0 

WORD 

G 

WORD 

0 

WORD 

0 

ENDC 

ISR  MODE 
ISR  MODE 
RESERVED 
SYN  CHAR 


CONTROL  PRRRMETER  LI 
CONTROL  WORD 
FOR  ISR  MODE  STATUS. 
FOR  DPll  SYNC  REG. 


ST 


;eNTER  HERE  FROM  THE  TEFMIHflL  .IfiTR  I X  SWITCH 


C.  BPTC:  MOV     PI,  -(SP) 
MOV  2(R1),R4 
BIC  800F,LCW(R2) 
MOV  LCW(R2)«R5 
BIT  »40000,R4 
BNE  PTCl 
JMP  PTMORS 

;  MUST  BE  I Nl T IflL IZflT ION 

PTCl: 


177646 
000126 


TST  R4 

BPL  PTC2 

JMP  PTTERM 
FOLLOWING  IS  PROCESSOR  FOR 

BIC  ;i77200.TCW(R2) 

BIC  «176670,R5 

BIC  S102700,LSW(P2) 

BIC  «577,R4 

BIS  R4,TCkI(R2) 

BIS     «XRC+1,R5 
LINE  TABLE  POINTER  TO  APPR 

MOV  R5.LCW(R2) 

MOV     8EBCCCT,R5 

MOV  CCT(R2),R0 

MOV  CAK(R2),R1 

MOV  R5,CCT(R2) 
;SET  UP  THE  CONTROL  CHARS  FOR  DP 
StTSYN:  MOVB  CSYN(R5).C  BIMS+6 

MOVE  BTCI(R5),BCC(R2) 


;SAVE  PARAM  LIST  POINTER  FOR  LATER 

; FETCH  THE  MODE  WORD 

; CLEAR  THE  OPTIOM-ONLY  FLAG 

;  FETCH  CURRENT  LCW 

;WHAT  TYPE  OF  PUTTC ^ 

; MESSAGE  OR  STATUS 
OR  TERMINATION 

; TERM  I  NAT 


;  THE 
PTC2; 


PTC4: 

;  SET 
TCI  3: 


ON^ 


.TERMINATION! 

INITIALIZATION  PUTTC 

;PREPARE  THE  TERMINAL  CONTROL  WORD 

; PREPARE  THE  CONTROL  AND  STATUS  WORDS 

; CLEAR  THE  UNWANTED  BITS 

;NOW  SAVE  THE  NEW  SETTINGS 

;SET  CODE  FOR  EBCDIC 

OPRIATE  CODE  CONTROL  TABLE 

; FIRST  SAVE  THE  NEW  LCW 

;MOVE  IN  CODE  INDICATOR 

, SAVE  THE  OLD  CCT  POINTER  (EDIT  2 

;AND  THE  OLD  ACK  RECOGNITION  WORD 

;AND  SAVE  FOR  USE  BY  TRANSFER  ROUTINES 

11 

;SYN  CHAR  IN  SELECTED  CODE 

;SET  BCC  LATCH  COUNT 


^^5) 


(EDIT  25) 


H  3 


r 
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H  3 


1133  002152 

016562 

000052 

000134 

11 3H  002160 

005700 

1135  002162 

001435 

1136  00216^ 

020160 

000052 

1137  002170 

001402 

1138  002172 

000362 

000134 

113?  002176 

116562 

000005 

000121 

imO  00220H 

016562 

000032 

000074 

llHl  002212 

012762 

000004 

000076 

im2  002220 

105062 

000136 

im3 

IIHH 

1145  0022214 

012767 

100003 

177554 

1146 

1147  002232 

012700 

000001 

tms 

1149 

1150  00223b 

012701 

002004 • 

1151 

1152  002242 

004767 

OOOOOOG 

1153 

1154  002246 

016746 

177536 

1155  002252 

032710 

000010 

1156  002256 

001002 

1157  002260 

0C5726 

1158  002262 

000472 

1159 

1160  002264 

016567 

000050 

1:^^514 

1161 

1162  002272 

012700 

000002 

1163 

1164 

1165  002276 

012701 

002004' 

1166 

1167  002302 

004767 

OOOOOOG 

llbS 

1169  002306 

012600 

1  1:^0  002310 

032762 

000100 

000006 

in  00231b 

001403 

ir2  002:20 

016205 

000006 

1  1^:  002324 

000470 

MOV  CRKa(R5).CRK(R2) 
TST     RO 
BEQ     SETETB 
CMP     Rl,CflKO(RO) 
BEQ     SETETB 


;PCK  RECOGNITION  UORD 

;WPS  THE  OLD  CCT  POINTER  ZERC* 

;YES.  ALL  OK  flS  IS  (EDIT  25) 

;UflS  OLD  flCK  REC.  WORD  SWAPPED? 

;N0,  OK  flS  IS  (EDIT  25) 

;  IT  WPIS,.  SO  SWAP  THE  NEU  REC.  WORD 


(EDIT  25) 
(EDIT  25) 


SET  UP  Fl 


(EDIT  25) 
FIRST  XMIT  PAIR  FOR  SYN3 


SWAB    CAK(R2) 
SETETB:  MOVB  CETB(R5). ECH(R2) 
MOV  SYP(R6),T1A(R2) 
MOV  «4,T1C(R2) 
CLRB  RKT(R2)  ; INITIALIZE  THF  qCK  COUNTER 

,  NOW  WE  CAN  GO  DO  THE  MODE  AND  MODEM  CALLS  ' .  THE  ISR 
;  FIRST.  EXECUTE  A  MODEM  CONTROL  CALL  FOR  'TERMINAL  READY* 

; STORE  MODEM  CONTROL  WORD 
;MODE  CONTROL  PARAMETER  L 


MOV 

»100003,C.  BIMS+2 

MOV 

»C.BMMC,RO 

;SET  UP 

MOV 

«C  BIMS-Pl 

;SET  UP 

JSP 

PCC.SfiRP 

;G0  TO 

MOV 
BIT 
BNE 
TST 
6P 
;  EXECUTE  P 
PTMODF  MOV 

C.  BIMS+4.-(SP) 

«io.asp 

PTMODE 

( SP  >  + 

PTEXN 
MODE  SENSE/CONTROL 
MDC(R5),C  BIMS+2 

TO  ISR 
; STORE 

MOV 

«C.  BMDCRO 

;SET  UP 

MOV 

«C.BiMS.Pl 

;SET  UP 

JSP 

PCC.SflPP 

;G0  TO 

MOV  iSP:'+..  RO 
BIT  ;?00F,LCW<P2) 
BEQ  PTCON 
MOV  LCW(P2).R5 
BP  TCJl 

; IS  THI 
;N0  -  C 
:YES  -- 

IN 

ST. 


SR 


ISR  MODEM  SENSE 
; OPCODE  FOR  PROPER 
/SELECTION  THRU  MATRIX  SWITCH 
MODEM  CONTROL 
; PARAMETER  POINTER 
ISR  MODE  CONTROL/SENSE 
; ROUTINE 

;SAVE  MODEM  STATUS  ON  STACK 
;BUT  MAKE  SURE  TERMINAL  WAS  READY 
;0K.  PROCEED 


LIST. 


MODE  CONTROL  WORD  IN  ISR 

;MODE  CONTROL  PARAMETER 

ISR  MODE  SENSE 

.OPCODE  FOR  PROPER 

; SELECTION  THRU  MATRIX  SWITCH 

MODE  CONTROL 

; PARAMETER  POINTER 
ISR  MODE  CONTROL/SENSE 

; ROUTINE 

;POP  THE  MODEM  STATUS 
S  CALL  ONLY  SETTING  OPT 
X'NTINUE  THE  INIT 
GO  FINISH  UP 


ONS*^ 
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11:^5 

1176 

1177 

li7S 

1179 

1180 

llSl 

11S2 

1183 

11S4 

USB 

llbb 

11S7 

1  ISS 

11S9 

1190 

1191 

1192 

1193 

119H 

1195 

119b 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

120^ 

1205 

1206 

1207 

120S 

1209 

1210 

1211 

1212 

1213 


002326 
002332 
00233^ 
0023H2 


002346 
002354 
002362 
002366 
002372 
002376 
002402 
002406 
002406 


002410 
002414 
002420 
002424 

002426 

002430 
002436 
002440 
002446 

002450 
002452 
0C2U5U 


105762 
100036 
032762 
001001 


002344   000441 


052762 
112762 
012700 
016201 
004767 
004  767 
004767 

012601 


016200 
042700 
010061 
000250 


000412 


U  o  ^  I  6  ^ 
001404 
042762 
000757 

012601 
000270 
000207 


000142 

010000  000010 


;PROCEED  UITH  THE  INITIAL IZPT ION  -  CARRIER  IS  UP 


000020 

OOGOIO 

000000 

000130 

OOOOOOG 

00367b 

000262' 


000006 
000140 


000 1 H  2 

000525 
G00Q04 


PTCON: 

TSTB  TCU(R2) 

BPL  PTSLVE 

BIT  «XRC.LSW(R2) 

BNE  PTC3 

.IF  NDF  RSTS 

BR      PTEXN 

.  ENDC 

.  IF  OF  RSTS 

nOV     (SP)i,Rl 

BP      PTEXT 

.  ENDC 

PTC3: 

BIS  «nSS,LCW(R2) 

MOVB  IJENQCNT,EKT(P2) 

t^OM   «C.  BTSCRO 

MOV  TCP(R2)  Rl 

JSP  PCC.  SPIRP 

JSP  PCENQSET 

JSP     PC.CSflT 

PTEXl: 

PTE,X3: 

MOV  (SP)+.R1 

;nRSTER  OR  SLfiVE  SELECTION? 

; SLAVE 

;riRSTER  -  URS  THERE  R  PUTD? 

;YES 

;N0  -  MRSTER  INIT  ERROR 


;P0P  Rl  OFF  THE  SfRCK  -  EDIT  15 


;SET  MRSTER  INDICRTOR 

;  SET  ENQ  COUNTER 
;YES  -  SEND  THE  BID  MESSRGE 

;CRLL  ISR  VIR  .1RTRIX  SWITCH 

;SET  TIMEOUT  FOR  BID  MESSRGE  RESPONSE 

;ENRBLE  CRB  TIMER  IF  NOT  RLRERDY  ON 

;POP  POINTER  TO  USER  PRRRMETERS 

;SET  UP  MODE  SENSE  STRTUS  WORD  FOP  USER 

MOV  TCW(R2;,R0  ; FETCH  TERMINRL  STRTUS 

BIC  «525,R0  ;CLERR  THE  CONTROL  BITS 

MOV  R0.4(R1)  ;flND  MOVE  TO  USER'S  STORRGE 

PTEXT:   CLN 


BP      PTEXIT 
;  SLRVE  INITIRLI2RTI0N 
000001   000010  PTSLVE:  BIT  «RBfl^  LSW'.  P2) 

BEQ     PTEXN 
000020  000006  PTSl:    BiC  «nSS-LLU'P2) 

BR  PTEXl 


PTEXN:   MOV 

SEN 

PTEXIT:  PTS 


(SP1+.R1 

FC  ^ 


;PCVf  BUFFER  RSSIGNED7 
;NO-SLRVE  INI^  EPPQR 

; CHECK  FOP  STATUS  REQUEST 

;POP  POINTEF  TO  USER  FflPRMETERS 
; REJECT  PUTTC 
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J     3 


1216 

i:ib 

1217  002456 

032^04 

100000 

121S  002462 

001447 

1219 

1220  002464 

052706 

000400 

1221  002470 

042704 

037000 

1222  n02474 

042762 

000777  000142 

1223  002602 
1224 

060462 

000142 

1 2^*5 

1226  002B06 

032704 

000020 

122:'  002512 

001407 

1228  002514 

042705 

001000 

1229  002520 

032704 

000010 

i::C  002524 

001402 

1231  002526 
1  '"^  3  '"* 

052705 

001000 

1233  002532 

032704 

000004 

1234  002536 

001407 

1235  002540 

C42705 

020000 

1236  002544 

032704 

000002  . 

1237  002550 

001402 

1238  002552 

052705 

020000 

1239 

1240  002556 

042705 

000020  ^ 

1241  002562 

105762 

000142 

1242  002566 

100002 

1243  002570 

052705 

000020 

1244  002574 

010562 

000006 

1245  002600 

000702 

1246 

1247 

1248  002602 

052705 

000100 

1249  002606 

042762 

007777  000142 

1250  002614 

OOUlb? 

177262 

PUTTC   -   riESSPGE   TRRNSFER   OR  SENSE   COMES  HERE 


PTnORS;    BIT  «100000.R4 
BEQ  PTMl 


TC.J2: 


;  PUTTC  -  MESSfiGE  TRANSFER  ENABLE 

BIS  »INLR6 

BIC  »37000,R4 

BIC  »777,TCW(R2) 

BIS  R4,TCW(R2) 
;  OTHER  TEST-RND-SET  ACTIVITY 
.  NATIVE  MODE'' 
TCJl:    BIT  »20,R4 

BEQ  TCJ2 

BIC  «NAT,R5 

BIT  »10,P4 

BEQ  TCJ2 

BIS  »NAT,R5 
TRANSPARENCY  ACTION'' 

BIT  «4,P4 

BEQ  TCJ3 

BIC  «XPT,R5 

BIT  »2,R4 

BEQ  TCJ3 

BIS  »XPT,R5 
:  SET  MASTER  SLAVE  SELECT  FLAG 
TCJ3:    BIC  »riSS,R5 

TSTB  TCW(R2) 

BPL  PTn2 

BIS  »"''",R5 
PTM2:    MOV  Rd,LCW(P2) 

BR      PTEX3 

; STATUS  AND  OPTION  SETTING  CALL 
PTMl:    BIS  n00F.R5 

BIC  «7777.TrUiP2i 

m?    FTC4 


;WHICH  IS  IT? 

; STATUS/OPT  I  ON-SETTING 


; CLEAR  UNWANTED  B I TS 

; PREPARE  TCW  FOR  NEU  SETTINGS 
;SA"/E  FOR  FUTURE  REFERENCE 
S  HANDLED  IN  THE  SAME  WAY 


;NOT  REQUESTED 


NONE  REQUESTED 

SET  FLAG  TO  DESIRED  STATE 

NEXT  NON-ITB  PUTO  WILL  TOGGLE 


PESTOPE  LCU  TO  LINE  TABLE 


SET   FLAG    TO    INDiCflTE    OPTIONS   ONLY 
CLEPP    UfiWANTED   BITS 
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K  3 


B 


:.S2 

253 
25H 
255 
256 
257 
258 
259 
260 
261 

263 
264 

2b? 
266 
26^ 
268 
269 
270 
271 
272 
273 
27H 
275 
276 
277 
278 
279 
280 
281 

283 
2SU 
285 
286 
287 
2S8 
2S9 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 


002620 
002624 
002632 
002616 

002642 
002650 
002652 
002656 


002660 
002664 
002670 
002674 
002700 
002702 


002704 
002706 
002710 
002712 
002714 
002716 
002720 
002724 
002726 


012700 
012767 
012701 
004767 

032762 
001403 
004767 
000771 


005062 
005062 
005062 
005062 
012601 
0G0207 


105721 
112100 
012105 
011104 
005704 
003417 
016201 
060201 
0b2701 


000001 

100001   177154 
002004 ' 
OOOOOOG 

000001  000010 

175246 


000010 
000006 
000012 
000014 


000016 
000026 


;  PUTTC  -  TERMINRTION 

PTTERM:  noa  «c.  Brine,  RO 
nov  iioooouc.B 

MOV  »C.BIHS/Rl 
JSR  PCC.SflRP 
.IF   NDF   RSTS 
PTTl:        BIT  «RBFI,LSW(R2) 
BEQ  PTTEXT 
JSR   PCC.BRCD 
BR   PTTl 
.  ENDC 

PTTEXT:  CLR  LSW(R2) 

CLR  LCW(R2) 

CLR  RSW(P2) 

CLR  TSW(R2) 
MOV     (SP)+.P1 
RTS     PC 


ns*2 


RESET  TERMINAL  READY 


IF  ASSEMBLED  FOR  RSTS  LEAVE  THIS  ROUTINE  OUT 

;RELEASE  RECEIVE  BUFFERS  IF  AN 


END  RSTS 


JUST  IN  CASE  THERE  WERE  2  BUFFERS 


RETURN  TO  CONTROL  MODE 


POP  POINTER  TO  USER  PARAMETERS 


F  NDF  RSX 
.  EOT 


I    r    /    I    /    I    t    t    t    •    r    t    I 


,END  OF  TAPE  2 
.  ENDC 

; BISYNC  TAPE  3  OF  5 
;-ASRBUF  EMT  COMMAND  SERVICE  ROUTINE 
CENTERED  FROM  TERMINAL  TYPE  MATRIX  SWITCH  WITH: 

FUNCTION  CODE   003     -  ASSIGN  ONLY 
;  043     -  ASSIGN  +  ACK 

;  103     -  ASSIGN  +  NAK 

;R1:    POINTER  TO  ASRBUF  PARAMETER  LIST 

.R2:     POINTER  TO  FIRST  WORD  OF  LINE  TABLE 

;R3:     LINE»*2 

;    R0.R1,R4   AND   R5  ARE    DESTROYED   BY   THIS   ROUTINE 

;FORMAT  OF   ASRBUF   PARAMETER   LIST: 


;L0CP: 
;L0CP+2: 

C.  BARB: 


C.  BflPl 


STARTING  ADDRESS  OF  RECEIVE  BUFFER 
MAXIMUM  BUFFER  SIZE  IN  BYTES 


TSTB 

MOVB 

MOV 

MOV 

TST 

BLE 

MOV 

ADD 

ADD 


002732 


30S  002736 


013746 
112: 


1  -1  T? 


1 77776 

000340   177776 


(Rl)^- 

(R1)+,R0 

(R1)+,R5 

(R1),R4 

R-4 

C.BARX 

ASX(R2),R1 

R2,R1 

«UBL-R1 
.  IF   DF   LSIll 
MFPS  -(SP) 

MTPS»340 
.  IFF 

MOV     ii;»C.  STAT.-(SP) 
MOVB    «340,-^t?C.  STAT 


POINT  TO  SECOND  BYTE  IN  PARAM.  LIST 

;GET  ASRBUF  OP  CODE. 

; BUFFER  ADDkESS 

;BYTE  COUNT 

; COUNT  POSITIVE  NON-ZERO^ 
NO  -  REJECT 

; LOCATE  CURRENT  ASSIGN  SLOT 


PREVENT  INTERFERENCE.  .  . 
. . .  BY  RECEIVE  DONE  CODE 

.PREVENT  INTERFERENCE.  . 
;.  .  .  BY  PECEU'E  DONE  CODE 
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L  3 


B 


1309 
1310 
1311 
1312 
1313 
13m 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 

l32^ 

132b 
1326 

132:- 

1328 
1329 
1330 
1331 
1332 
1333 
133M 
1335 
1336 
1337 
1338 
1339 
13140 
13m 
13H2 
13H3 

l3^^ 

1345 
13Hb 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1367 
1358 
1359 
1360 
1   1 

lit: 

1 3b3 
1364 
1365 


002744 
002746 


005711 
001405 


;THIS  SLOT  flVPILPIBLE? 


002750  012637   177776 


002754 
002756 
002760 


002762 

002764 
002766 
002774 
003002 
003004 
003010 
003016 
003020 


000242 
000270 
000433 


010521 
OlOi^ll 
062762 
026227 
002402 
005062 

001007 
010662 


O000C4 
000016 

000016 
000001 

000022 


^^ 


0030^ 

003030 

003036 


003036  012637   177776 


003042 
003046 
003050 


000054 

000054 
000060 
000064 

000066 
000072 
000074 
000102 
000106 
OOGllO 
000116 
000124 
000130 
000134 
000142 
000150 
000154 


004767  000054' 

000252 

000207 


016201 
032700 
001452 

032700 
001440 
016162 
105762 
001403 
062762 
012762 
105162 
010162 
062762 
012762 
016201 
012700 


000132 
000140 


000040 

000042 
000136 

000003 
000003 
000136 
000104 
000002 

nnoooi 

000130 
000000 


.ENDC 

TST     (Rl) 

BEQ     C.BflBl 
;  NO  SLOT  RVRILflBLE  -  REJECT  THE  flSRBUF 

.  IF  DF  LSIll 

MTPS  (SP)4.  ;RESTORE   PRIORITY 

.IFF 

nOV     (SP)*.i8C. STflT         ;RESTORE  PRIORITY 

.  ENDC 

CLU 
C.  BflPX:  SEN  ;SET  FAIL  INDICATION 

BP      flSSGN3 

ASSIGN  THE  INCOMING  BUFFER  TO  THE  CURRENT  ASSIGN  SLOT 


C.  BABl 


000016 
000034 


000010 


nov 

MOV 
ADD 
CMP 
BLT 
CLP 
ASSGNl:  BIT 
BNE 


010462  000024 

052762  000001   0000 10 


RESTORE  OPIGIANL  PPKPITY 

;PESTOPE  ORIGINAL  PRIORITY 

; GO  SEE  IF  ACK/NAK  NEEDED 
; SUCCESS  INDICATION 


000100 


000100 
000102 


0001Q4 
000106 


R5.(R1)+ 
R4, (Rl) 
«4,ASX(R2) 
RSX(R2).SMBX 
ASSGNl 
ASX(R2) 
»RBA,LSW(R2) 
ASSGN2 
MOV     R5.ARR(R2) 

IF  DF  PSYS 
JSR     PCGTBFl 
.  ENDC 

MOV     R4.ABC(R2) 
BIS     lfRBA.LSUfR2) 
PSSGN2:  .  IF  DF  LSIll  . 
MTPS    (SP)+ 
.  IFF' 

MOV     (SP)  +  ,il»C.  STAT 
.  ENDC 

JSR     PC^APBSP 
CLNV 

ASSGN3:  PTS     PC 

;  TEST  IF  ASRBUF  REQUEST  INCLUDES  ACK.'NAK  ACTIVITY 
.  IF  DF  PSX 
.  PSECT  ISR 
.  ENDC 
ARBSP:   MOV  CCT(R2^P1 
BIT  »140.PC 
BEQ  ARRCV 
;  UHICH  TYPE  OF  REQUEST  WAS  IT^ 
BIT  «40,R0 
BEQ  TRYNAK 
MOV  AMP(R1).T2A(R2) 
TSTB  AKT(R2) 
BEQ  ARBl 
ADD  »3.T2A(R2) 
AFBl    nov  »3,T2C(R2) 

COMB  AKT(R2) 
AFB5ET:  MOV  Rl,  T3A(R2) 

ADD  ;CPRD. T3fl(R2) 
MOV  «1,T3C(P2) 
ACKOUT.  MOV  TCP(R2).P1 
MOV  SC. BTSC.RO 


MOVE  PARAMETERS 

UPDATE  THE  SLOT  INDEX 

NEEDS  RESETTING^ 

NO 

YES  -  CLEAR  IT 

IS  THERE  ALREADY  AN  ACTIVE  BUFFER? 

YES  -  WE'RE  DONE 

NO  -  M  KE  THIS  ONE  IT 

GET  MAPPED  ADDRESS  FOP  BUFFER 


POINTER  TO  CODE  CONTROL  TABLE 

IS  IT  ACh/NAK  REQUEST 

NO 

IS  IT  ACK  TYPE  REQUEST  ^43) 

NO  -  MUST  BE  NAK  TYPE 

YES  -  SET  UP  THE  ACK  MESSAGE 


TOGGLE  ACK  COUNTER 
SET  UP  EXTRA  PAD 


.:SET  XMIT  POINTER 
; MATRIX  SWITCH  CODE 
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n    3 


000 IbO 
OOOlfeH 


3bfe 
3b7 
3b8 
3b9 
370 
371 
372  000174 


G047b7 
052762 


000172  000207 


373 
37H 
37B 

376 

7-77 
.1  (  ( 

379 

3S0 

Z?A 

382 

3S3 

334 

3SB 

3S6 

387 

38S 

3S9 

390 

391 

392 

393 

39H 

395 

396 

397 

39S 

399 

4C30 

401 

402 

403 


000202 
000210 


000212 
000220 
000222 
000226 
000230 
000230 
000234 
000240 
000244 
000252 
000256 
000262 

000262 
000270 
000272 
000300 
000302 
000306 
000312 


016162 
012762 
000747 


001364 
105762 
001361 


005067 
012700 
016201 
G16167 
012701 
004767 


U  >5  il  1'  b  w 
001340 
052762 
005000 
116204 
012705 
000167 


OOGOOOG  JSR  PC.C.  SRRP 

000004  000010         BiS     «fiflF.LSW(R2) 

flRSEXT.  RTS  PC 

;NPK  TYPE  REQUEST  (103 J 
G00044  000100  TRYNflK:  MOV  NriP(Rl).T2P(R2) 
000002  000102         MOV  »2,T2C(R2) 

BR  flRBSET 


NO  flCK/NflK   -   DO  THE   RECEIVE 


. ISR  OUTPUT  STARTUP 

;FLRG  flCK   flVfllLRBLE    IN  CASE  OF   ENQ 

;FROn  OTHER  SIDE 

;G0  BACK  TO  TAKE  EfIT  EXIT 


;YES  -  SET  POINTER  TO  NRK  flESSAGE 


032762  002000  000010  ARRCV; 
000127 


002004 • 

000002 

000132 

000050  GG2006* 

002004 ■ 

OOOOOOG  r 


000002  000010 
000002  000010 


ARRCVl: 


CSflT: 


000120 

004022' 

OOOOOOG 


BIT  «ITBfl,LSU(R2J 
BNE  ARSEXT 
TSTB  BCL(P2) 
BNE  ARSEXT 

CLR    c.Bins 

MOV  «C. BMDC. RO 
MOV     CCT(R2).R1 
MOV  MDC(R1),C.  BIMS- 
MOV  «C. BIMS.Rl 
JSR  PCC.  SRRP 

.  IF  Z   RCVSIB 
BIT  «CSfl,LSW'.R2) 
BNE  ARSEXT 
BIS  «CSfl,LSW(R2) 
CLR     RO 
MOVB  TCTfP2),R4 
MOV  rCRBSPV. R5 


ENABLE 

;  IF  ITBA  STILL  ACTIVE.  .  . 

; DON'T  DO  TURNAROUND 

;DITTO  IF  STILL  IN  BCC  PHASE 


PUT  LINE  NUMBER  IN  PARAM  LIST 
CODE  FOR  MODE  CONTROL  CALL 
GET  CODE  THBLE  POINTER 
MODE  WORD 


J  MP 
.  ENDl 
.  IF  N2 
BR 
.  ENDl 


CTIME 

RCVSIB 
ARSEXT 


CRB  SERVICE  ALREADY  flCTH'E? 
YES.  UE'RE  DONE 
NO.  SET  IT  UP  NOU 
PUT  LINE  NUMBER  IN  RO 
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moe 
mo? 
mos 
mo9 
mio 
mn 

im3 
mm 
mis 

mi" 
mis 
mi9 
m:c 
m2i 
m22 
m23 
m2H 
m2B 
m26 
m27 
m28 
m29 
m30 
m3i 
m32 
m33 
mzH 
mJB 
m36 
m37 
m3S 
m39 

14HC 

mm 
mi42 
m4  3 
mnu 
mH5 
m46 
mM? 
m48 
mi49 
mBO 
mBi 
m52 
mB3 


000316 
0C032^ 

000326 
00033H 
000342 
0003B0 
000356 
n0036H 
000366 
000374 
000376 
000402 
000404 
000412 
000414 
000422 

000424 
000430 
000436 
000440 
000444 
000452 
000456 

000464 
000472 
000474 

000502 


032762 
001414 

016262 
016262 
016262 
042762 
032762 
001007 
032762 
001003 
004767 
000410 
G  3  ^  I  6  ii 
001404 

001765 

004767 
032762 
001412 
016201 
016162 
105062 
042762 


000144 
000146 
000150 
001000 
000400 

000020 

000130 

040000 

020000 


177562 
001000 

000132 
000052 
000136 
001420 


032762  020000 

001407 

0327d2  000400 

001403 


000100 
000102 
000104 
000010 
000006 

000006 


000010 
000010 

Gooom 

000134 
000006 
000010 
000006 


000504   116"^62  000002"  000115 


000512  032762  002000  000014 

000520  001003 

000522  042762   1772:^7  000014 

000530  000207 


;  TRRHSniT  DONF  SIB  ENTRY  PROCESSOR 

;;  ENTERED  FROn  BUFFER  UNLOflOER  I^ITH: 

;RG  CONTAINING  LINE«  AND  TYPE  CODE 

;R2  CONTAINING  POINTER  TO  BASE  OF  LINE  TABLE, 

;R3  CONTAINING  LINE*  AS  A  WORD  INDEX. 


001000  000010  C.  BODE' 


C.  BODl 

C.  80. 
C,  81: 


BIT 

BEQ 

;YES 

MOV 

MOV 

MOV 

BIC 

BIT 

BNE 

BIT 

BNE 

JSR 

BR  C. 

BIT  « 

BEQ  C 

BIT  « 

BEQ 

JSP 

BIT 

BEQ 

MOV 

MOV 

CLPB 

BIC 


C.  BUD3:  BIT 
BEQ 
BIT 
BEQ 


»RDBF.LSW(R2) 
C.BODl 

-RESTORE   OLD  POINTERS 
TT2A(R2),T2A(R2) 
TT2C(R2).T2C(R2) 
TT3A(R2),T3A(R2) 
;RDBF.LSW(R2) 
»INLLCW(R2) 

.  Bl 

MSS,LCW(P2) 

.  31 

CTDENT 

BUD2 

ANF,L3W(R2) 

.  BUD2 

fiEF,LSW(R2^ 
C.  90 

PCARRCV 

«ESNT,TSW(R2) 

C.  BUD3 

CCT(R2),P1 

CflK0(Rl).CflK(R2) 

flKT(R2) 

«MSS' INI !NAT.LCU(P2) 

nflEF,LSW(P2) 
C.  BUD4 

nlNLLCW(R2) 
C.  BUD4 
;nRSTER-nESSfiGE    X-MIT   COMPLETE.     START 


C.  BUD2: 


;HAVE  DATA  MESSAGE  POINTERS 
;BEEN  SAVED'? 


.  IF  OF 
MOVB 
.  IFF 
MOVB 
.  ENDl 
C  BUD4:  BIT 
BNE 
BIC 


UflPTin 
MSPT.MPC>.P2) 

«MSRT..  MRC(R2) 

«BSNT,TSW(P2) 
C.  B5 


;  IF  SLAVE  INITiALIZATION.  .  . 

; ALWAYS  DO  XMIT  DONE 

;IF  MASTER  INIT.  PROCEED  NORMALLY 


;  IF  NOT  SET.  .  . 

;  DON'T  WANT  AN  XMIT  DONE 

; IF  AEF  SET  ... 


; RESET  LINE 

;  IF  E'^T  WAS  SENT  ... 

GET  CODE  CONTROL  POINTER 
RESET  MASTER  ACK  COUNT 
CLEAR  SLAVE  ACK  COUNT 
.  .  CLJAR  MASTER  AND  MESSAGE  XFER 
AND  NATIVE  MODE 
ACK  EXPECTED^ 
NO 

ALSO  MESSAGE  TRANSFER? 
NO 
RCVE  TIMER 


; TIMEOUT  VALUE  IN  TIC  INTERVALS 

; TIMEOUT  VALUE 

;!F  BID  MESSAGE.  LEAVE  BSMT  SET 


C.  65: 


RTS 


u   •  -7- 

n  1  I  I 


PC 


7'?0~?~? 


TS14><^2) 


; CLEAR  TRANSMIT  STATUS 

;  EXCEPT  MASTER  TIMEOUT  -  ED 

.;  RETURN  TO  BUFFER  UMLOADER. 


15 
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B  ^ 


1HE7 

1'  ss 

l4S9 

mfeo 

14f^l 

1463 
1464 
146B 
1466 
14b" 
14bS 
1469 
1470 
1471 
1472 
147: 
1474 
147B 
1476 
1477 


;TRPNSniT  DONE  UIB  ENTRY  GENERATOR 


000B32  11620B  000141 


"'G0B36 
000640 
000B44 

000546 
000B52 
000BB6 
000B60 
000B66 
000B7n 
nO'jB74 
000600 
000606 
000614 
000622 


OOB40B 
06270B 
010B46 

016246 
016246 
010046 
1 12766 
01060B 
004767 
062706 
042762 
112762 
042762 
000207 


000010 


000014 
000066 


TDENTO. 
TDENT: 

TDENT: 


000304  000001 


OOOOOOG 
OuuOlO 

074020 
000010 
176777 


000010 
000140 
000014 


.  IF  DP 
CLR 

CLR 
.  IFF 

novB 

NEG 
ROD 

nov 

.  ENDC 

nou 
nov 

nov 

MOVB 

nov 

JSP 
ROD 
BIC 

novo 

BIC 
PTS 


RSTS 
RO 
-(SP) 

RKT(R2).RB 

RB 

IINflKCNT,RE 

RB,-(SP) 

TSW(R2). -(SP) 

TSR(R2),-fSP) 

PO.-(SP) 

^C.  EGTD,  USP) 

SP,RB 

PCC.  SPY 

n  10/  SP 

nflEF^RNFiXflCNEF'STXP 

ntNQCNT,EKT(R2J 

nl76777.TSU(R2) 

PC 


.CLEAR  LINE  NUnBER 


SRVE  NUnBER  OF  ERRORS  TO  GO  UNTIL 
ABORTING  IN  RB 

RND  SUBTRACT  FROn  STARTING  VALUE 
TO  OBTAIN  «  OF  XniT  ERRORS 
STORE  IT  FOR  UIB  ENTRY 

STORE  TRANSniT  STATUS  UORD 
STORE  BUFFER  ADDRESS 
STORE  LINE  « 

STORE  X-niT  DONE  UIB  CODE 
STORE  UiB  ADDRESS  POINTER 
CALL  UIB  LOADER 


; RESTORE  STACK  PO 
LSW(R2)   ;EDIT  17 
;SET  ENQ  COUNTER 
; DON'T  CLEAR  ESNT 


NTEP 
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c    ^ 


1479 

1480 

003052 

1H31 

1482 

1483 

1484 

1485 

1486 

003052 

000 

1487 

003053 

001 

1488 

003054 

002 

1489 

003055 

003 

1490 

003056 

000 

1491 

003057 

Oil 

1492 

003060 

000 

1493 

003061 

177 

1494 

1495 

003062 

000 

1496 

003063 

000 

1497 

003064 

000 

1498 

003065 

013 

1499 

003066 

014 

1500 

003067 

015 

1501 

003070 

Clb 

1502 

C03071 

017 

1503 

1504 

003072 

020 

1505 

003073 

021 

1506 

003074 

022 

1507 

003075 

023 

1508 

003076 

000 

1509 

0C7077 

000 

1510 

003100 

010 

1511 

003101 

000 

1512 

1513 

003102 

030 

1514 

003103 

031 

1515 

003104 

000 

1516 

003105 

000 

1517 

003106 

034 

151S 

003107 

035 

151? 

003110 

036 

1520 

003111 

037 

.  IF  DF 

RSX 

. PSECT 

XXX 

.  ENDC 

;  EBCDIC 

-TO-RSCII  TRRmSLRTION  TABLE 

.  IF  NZ 

Cfl. EBC 

;000 

ETR: 

.BYTE 

000 

NUL 

.BYTE 

001 

SOH 

.BYTE 

002 

STX 

.  BYTE 

003 

ETX 

.BYTE 

000 

PF  -NO  flSCi 1 

.  BYTE 

Oil 

HT 

.BYTE 

000 

LC  -  NO  flSCI 

.  BYTE 

177 

DEL 

;010 

.  BYTE 

000 

N.  a 

.  BYTE 

OCO        v^  . 

N.  a 

.  BYTE 

000 

SMM  -  N.  P. 

.  BYTE 

013 

VT 

.  BYTE 

014 

FF 

.  BYTE 

015 

CR 

.  BYTE 

016 

30 

.  BYTE 

OP 

SI 

;G2G 

.  BYTE 

020 

OLE 

.  BYTE 

021 

DCl 

.  BYTE 

022 

DC2 

.  BYTE 

023 

DC3fTri) 

.  BYTE 

000 

RES  -  N.  fl. 

.  BYTE 

000           ; 

NL  -  N.  R 

BYTE 

010           ; 

BS 

BYTE 

000 

1 L  -  N.  fl. 

;G30 

BYTE 

030           ; 

CRN 

BYTE 

031           ; 

EM 

BYTE 

000           ; 

CC  -  N.  R. 

BYTE 

000           ; 

N.  f(. 

BYTE 

034            ; 

IFS 

BYTE 

035            ; 

!GS 

BYTE 

036           ; 

iRS 

BYTE 

037 

lUSi'  ITS) 
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1522 

1523 

003112 

000 

1524 

003113 

000 

1525 

003114 

000 

1526 

003115 

000 

1527 

003116 

000 

1528 

003117 

012 

1529 

003120 

027 

1530 

003121 

033 

1531 

1532 

003122 

000 

1533 

003123 

000 

1534 

003124  . 

000 

1535 

003125 

000 

1536 

003126 

noo 

1537 

003127  . 

005 

1538 

00313G 

006 

15.^9 

003131 

007 

1540 

1541 

003n:^. 

000 

1542 

003133 

000 

1543 

003134 

02b 

1544 

003135 

000 

1545 

003136 

.  OOG 

1546 

003137 

000 

1547 

003140  . 

000 

1548 

003141 

.  004 

1549 

1550 

003142 

000 

1551 

0G3143 

000 

1552 

0G3144 

000 

1553 

003145 

000 

1554 

003146 

024 

1555 

003147 

025 

1556 

003150 

000 

1557 

003151 

032 

0  4 

08:  18  PhGE  28 

;040 

BYTE 

000 

DS  - 

N.  P. 

.  BYTE 

000 

SOS 

-N  R. 

.  BYTE 

000 

FS  - 

N.  R. 

.  BYTE 

000 

N.  fl. 

.BYTE 

000 

BYP 

-  N.  ;^. 

.  BYTE 

012 

uF 

BYTE 

027 

ET3(E0B) 

.  BYTE 

033 

ESC( 

PRE) 

;050 

.  BYTE 

000 

N.  fl. 

.  BYTE 

000 

N.  fl. 

.  BYTE 

000 

sn  - 

N.  R. 

.  BYTt 

000 

N.  R 

.  BYTE 

000 

N.  fl. 

.  BYTE 

005 

ENQ 

.  BYTE 

006 

ncK 

.  BYTE 

0C7 

BEL 

;  060 

.  BYTE 

000           ; 

N.  fl. 

.  BYTE 

000 

N.  R. 

.  BYTE 

026 

SYN 

.  BYTE 

000, 

N.  fl. 

.  BYTE 

000     .          :    . 

PN  - 

N.  R. 

.  BYTE 

000 

PS  - 

N.  R. 

,  BYTE 

000 

UC  - 

N.  R. 

.  BYTE 

004           ; 

EOT 

;070 

BYTE 

000           ; 

N.  q. 

.  BYTE 

000           ; 

N.  fl. 

.  BYTE 

000    i       ; 

N.  fl. 

.  BYTE 

000           ; 

N.  PI 

.  BYTE 

024   ^ 

DC  4 

.  BYTE 

025           ; 

Hf\Y 

.  BYTE 

000 

N  R. 

.  BYTE 

032           ; 

SUB 

r      u 


B 1  SYNC 

MfiCPO  Ml  104  06-DEC- 

'71 

1559 

1560 

0G3152 

040 

1561 

003153 

000 

1562 

003151* 

000 

1563 

003155 

000 

1564 

00315b 

000 

1565 

003157 

000 

1566 

003160 

000 

1567 

003161 

000 

1568 

1569 

003162 

000 

1570 

003163 

000 

1571 

00316H 

133 

1572 

003165 

056 

15"'3 

003166 

074 

15:^4 

00Z167 

050 

15:^5 

0031^0 

053 

1576 

C03171 

136 

1577 

1578 

003172 

046 

1579 

003173 

000 

1580 

003174 

000 

1581 

003175 

000 

1582 

003176 

000 

1583 

003177 

000 

158H 

003200 

000 

1585 

003201 

000 

[    1586 

1587 

003202 

000 

1588 

003203 

000 

,   1589 

003204 

041 

1590 

003205 

044 

1591 

003206 

052 

1592 

003207 

051 

1593 

003210 

073 

159H 

003211 

135 

08:  18     PPIGE   29 


MOO 


E     4 


110 


;  120 


130 


BYTE 

040 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

133 

BYTE 

056 

BYTE 

074 

BYTE 

050 

BYTE 

053 

BYTE 

136 

BYTE 

046 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

coo 

BYTE 

04  1 

BYTE 

044 

BYTE 

052 

BYTE 

051 

BYTE 

073 

BYTE 

135 

IN  flSCI I) 


; SPACE 
;  N.  fl. 
;  N.  fi. 
;  N.  fl. 
;  N.  P. 
;  N.  fl. 
;  N.  ?i. 
;  N.  fl. 

;  N.  fl, 

/■  N  fl 

;C'enT  sign   ( 

;  < 
;  ( 

;VERTICRL  BOR 

;8. 
;  N.  fl. 

;  N.  fl. 
;  N.  fl. 
;  N.  fl. 
;  N.  fl. 
.:  N.  fl. 
;N.  fl. 

,  N.  fl. 
;  N.  fl. 
;  ! 
:■% 
;* 
;  J 


(WAS   EBCDIC    "NOT"   OPEPflTOP) 


F      4 
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1S96 


F  k 


1597 

003212 

055 

1598 

003213 

057 

1599 

0032m 

000 

1600 

003215 

000 

IbOl 

003216 

000 

1602 

003217 

000 

1603 

003220 

000 

160H 

003221 

000 

1605 

1606 

003222 

000 

1607 

003223 

000 

160S 

00322^ 

17H 

lb09 

003225 

05^ 

IblO 

003226 

0H5 

IbU 

003227 

137 

1612 

003230 

076 

1613 

003231 

077 

1614 

1615 

003232 

000 

1616 

003233 

000 

1617 

00323H 

000 

!618 

003235 

000 

1619 

003236 

000 

1620 

0G3237 

000 

1621 

0032^0 

000 

1622 

G032m 

000 

1623 

162^ 

0032^2 

000 

1625 

0G3243 

mo 

1626 

G032^^ 

072 

1627 

0G32H5 

0U3 

1628 

GG32H6 

100 

1629 

G032H7 

OH  7 

1630 

0032^^0 

075 

1631 

003261 

om 

PRGt  30 

;mo 

.  BYTE 

055 

BYTE 

057 

.  BYTE 

000 

.BYTE 

000 

.  BYTE 

000 

.BYTE 

000 

.BYTE 

000 

.  BYTE 

000 

;150 

.  BYTE 

000 

.  BYTE 

000 

.  BYTE 

174 

.BYTE 

054 

.  BYTE 

045 

.  BYTE 

137 

.  BYTE 

076 

.  BYTE 

077 

;  160 

.  BYTE 

000 

.  BYTE 

000 

.  BYTE 

000 

BYTE 

000 

.  BYTE 

000 

.  BYTE 

000 

.  BYTE 

000 

.  BYTE 

000 

;  170 

.  BYTE 

000 

.  BYTE 

140 

.  BYTE 

072 

.  BYTE 

043 

.  BYTE 

100 

.  BYTE 

047 

.  BYTE 

075 

.BYTE 

042 

/ 

N.  fl. 
N.  R. 
N.  P. 
N.  fl. 
N.  f^. 
N.  fl. 

N.  fl. 
N.  fl. 
NON-PRINT 

> 

? 

N.  fl. 

N.  fl. 

N.  fl. 

N.  fl. 


NG  (flSCI 


N. 
N. 
N. 
N. 


fl. 
fl. 
fl. 
fl. 


N.  fl. 
NON-PPINTiNG 

t 
i 


It 


G  U 


B 1  SYNC 

nPICPO  M1104  06-DEC- 

•11 

1633 

1634 

003252 

000 

1635 

003253 

141 

1636 

003254 

142 

1637 

003255 

143 

1638 

003256 

144 

1639 

003257 

145 

1640 

003260 

146 

1641 

0U3261 

147 

16^"^ 

1643 

003262 

150 

lt44 

003263 

151 

lb4R 

003264 

000 

1646 

003265 

000 

1647 

003266 

000 

1645 

003267 

000 

1649 

003270 

000 

1650 

003271 

000 

1651 

1652 

003272 

000 

1653 

003273 

152 

1654 

003274 

153 

1655 

003275 

154 

1656 

003276 

155 

1657 

003277 

15b 

1658 

003300 

157 

1659 

003301 

160 

1660 

1661 

003302 

161 

1662 

003303 

162 

1663 

003304 

000 

1664 

003305 

000 

1665 

003306 

000 

1666 

003307 

000 

1667 

003310 

000 

166S 

003311 

000 
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;200 


G     4 


;210 


;220 


;  230 


BYTE 

000 

BYTE 

141 

BYTE 

142 

BYTE 

143 

BYTE 

144 

BYTE 

145 

BYTE 

146 

BYTE 

147 

BYTE 

150 

BYTE 

151 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

152 

BYTE 

153 

BYTE 

154 

BYTE 

155 

BYTE 

156 

BYTE 

157 

BYTE 

160 

BYTE 

161 

BYTE 

162 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

;N.  fl. 

;R  - 

LOWER 

CfiSE 

;B 

;C 

;D 

;E 

;F 

;G 

;H  - 
•  1 

LOWER 

CASE 

/  1 
;N.  0. 

;N.  0. 

;N.  fl. 

;N.  fl. 

.  N.  fl. 

;N.  fl. 

,  N.  fl. 

;  J  - 

LOWER 

CASE 

;K 

:  L 

;n 

:N 

;0 

;P 

;0  - 

LOWER 

CPSE 

;R 

;  N.  «. 

;  N.  0. 

;  N.  P. 

;N.  fl 

;N.  fl. 

,  N.  fi. 


H     4 


81  SYNC 

nflCPO  Ml  101+  06-DEC- 

'77   ( 

lb70 

1671 

003312 

000 

1672 

003313 

176 

1673 

003im 

163 

167^ 

003315 

164 

167B 

003316 

165 

1676 

003317 

166 

1677 

003320 

167 

167S 

003321 

170 

1679 

1680 

003322 

171 

1681 

003323 

172 

1682 

00332^ 

000 

lbS3 

003325 

000 

IbSH 

003326 

000 

1685 

003327 

000 

1686 

003330 

000 

1687 

003331 

000 

1688 

1689 

003332 

GOO 

1690 

QOZZZZ 

000 

1691 

00333H 

000 

1692 

003335 

000 

1693 

003336 

000 

169H 

003337 

000 

169B 

0033H0 

000 

1696 

003341 

000 

1697 

1698 

0033H2 

000 

1699 

003343 

000 

1700 

003344 

coo 

1701 

003345 

000 

1702 

003346 

000 

1703 

003347 

000 

170H 

003350 

000 

1 706 

003351 

000 
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;240 


H     4 


;250 


;260 


/  4.1  u 


BYTE 

000 

BYTE 

176 

BYTE 

163 

BYTE 

164 

BYTE 

165 

BYTE 

166 

BYTE 

167 

BYTE 

170 

BYTE 

171 

BYTE 

172 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

noo 

BYTE 

-100 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

;N.  fl. 

;NON- 

PRINTING 

;S 

;T 

;u 

;V 

:U 

;x 

;Y  - 

LOWER  CRSE 

;2 

;N.  fl. 

;N.  fl. 

;N.  fl. 

;N.  fl. 

,N.  fl. 

;N.  fl. 

;N.  fl. 

;N.  fl. 

;N.  R. 

;  N,  fl. 

;N.  a 

■•  N.  PI. 

;  N.  fl. 

;N.  fl. 

;  N.  q. 

;  N.  fl. 

;  N.  fl. 

;  N.  R. 

;N.  fl 

;N.  R. 

;  N  P. 

;  N,  R. 

D    1  C  V  H  i' 


MnroA     M4  inii 


I     H 


r 
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1707 
170S 
1709 
1710 
1711 
1712 
1713 
17m 
1715 
1716 


003352 
003353 
00335^ 
003355 
00335b 
003357 
003360 
003361 


173 
101 
102 
103 
lOH 
105 
106 
107 


;300 


1717 

003362 

110 

1718 

003363 

111 

1719 

003364 

000 

1720 

003365 

000 

1721 

003366 

000 

i  i'  i^^ 

003367 

000 

1723 

0033:^0 

000 

172^ 

003371 

000 

1725 

1726 

003372 

175 

1727 

003373 

112 

1728 

00337H 

113 

1729 

003375 

114 

1730 

003376 

115 

1731 

003377 

116 

1732 

003H00 

117 

1733 

003401 

120 

\7V\ 

1735 

003402 

121 

1736 

003403 

122 

1737 

003404 

GOO 

1738 

003405 

000 

1739 

003406 

000 

17Hn 

003407 

000 

17m 

003410 

000 

ir^wz 

00  34  11 

GOO 

;310 


;320 


;330 


BYTE 

173 

BYTE 

ICt 

BYTE 

102 

BYTE 

103 

BYTE 

104 

BYTE 

105 

BYTE 

106 

BYTE 

107 

BYTE 

110 

BYTE 

111 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

QCO 

BYTE 

175 

BYTE 

112 

BYTE 

113 

BYTE 

114 

BYTE 

115 

BYTE 

lib 

BYTE 

117 

BYTE 

120 

BYTE 

121 

BYTE 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

;NON- 

PRINTING 

;P 

;6 

;C 

;D 

;E 

;F 

;G 

;H 
•  1 

/  1 
;  N.  a 

.  N.  0. 

;N.  fl. 

;  N.  a 

,  N.  fl. 

;N.  a 

,  NON- 
•  1 

PPINTING 

'■  L 

;  r^ 

:N 

:0 

'P 

.  Q 

;P 

;  N.  fl. 

:  N.  a 

:  N.  fl. 

;N.  p. 

;  N,  a 

;  N.  fl. 

i.^- 


D  I  cvkir 


Ml~l("OA   M4  «nii 


1^   j^     p^^^«^    ^1 


J  4 


:ii 


r 
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J    ^ 


i:'4H 

17HS 

003412 

134 

174b 

003413 

GOO 

17H7 

003414 

123 

rns 

003415 

124 

1749 

003416 

125 

17S0 

003417 

126 

17B1 

003420 

127 

1762 

003421 

130 

1753 

17B4 

003422 

131 

175B 

003423  i 

132 

17Bb 

003424 

000 

17B7 

00342B 

000 

17BS 

003426 

000 

17B9 

003427 

000 

1760 

0034  30 

000 

1761 

1  7i^  ■* 

003431 

000 

1  .  D»- 

1763 

003432 

060 

176H 

003433 

061 

176B 

003434 

062 

1766 

0034  35 

063 

1767 

003436 

ObH 

1768 

003437 

ObB 

1769 

003440 

Obb 

1770 

003441 

067 

1771 

1772 

003442 

070 

1773 

003443 

071 

1774 

003444 

000 

177B 

003445 

000 

1776 

003446 

000 

1777 

003447 

000 

177S 

0034B0 

000 

1779 

003451 

177 

;340 


;350 


;360 


;  370 


BYTE 

134 

BYTE 

000 

BYTE 

123 

BYTE 

124 

BYTE 

125 

BYTE 

126 

BYTE 

127 

BYTE 

130 

BYTE 

131 

BYTE 

132 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

060 

BYTE 

Obi 

BYTE 

062 

BYTE 

063 

BYTE 

064 

BYTE 

065 

BYTE 

066 

BYTE 

oe- 

BYTE 

070 

BYTE 

071 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

000 

BYTE 

1:^7 

;  N.  P. 

;S 

;T 

;U 

;V 

;U 

;X 


.:N. 

;N. 

;N. 
;N. 


;Y 
;Z 
;N 
;N 
;N 
;N 

;N,  fl 

0 
1 

i. 


5 
6 

;7 

;8 
;  9 
;N.  fl. 


fl. 

rl. 

fl. 


;N.  R.     -   BUT   RECOGNIZE    fiS   PAD 


D  I  cvkir       MoroA    Miinu       n^L-nrr--?-?    no    40      or.rr    ip 


K     4 


r 
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K  H 


B 


7S4 
"SS 
73b 
7S7 
788 
789 
:'90 

793 
79U 

^9b 
797 

T'Qg 

800 
801 
802 
803 
80^ 
805 
806 
807 
808 
809 
810 
811 
812 
813 

8m 

815 
816 

S17 
SIS 

S19 
S20 

s:i 

823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
333 
S3'A 
835 
836 
837 


iF  DF  flSCI 


> 


003452 


003452 
003453 
003454 
0034F'^ 
003456 
003457 
003460 
003461 


003462 
003463 
003464 
003465 
00346b 
003467 
0034  70 
003471 


003472 
003473 
003474 
003475 

003476 
003477 
003500 
003501 


003502 
003503 
003504 


.  rincRO 

Cl='  'C3-60 

C2="C4-60 

.  IF      GT  Cl-9. 

Cl=Cl-7 

.  ENDC 

.  IF      GT  C2-9, 

C2=C2-7 

.  ENDC 

.BriE 

.  ENDM 


flEXB: 
.    000 


;    010 


;    020 


;    030 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 
HEX 
HEX 

HEX 
HEX 
HEX 
HEX 


HEX 
HEX 
HEX 


HEX 


C3,C4 


;SUBT  7  nORE    IF   R  LETTER 


CU16.  +C2 


0,0 
0,1 
0.2 
0,3 
3.7 
2,D 
2.-E 
2,F 


1.  6 
0,5 
2.5 
0,  B 
0,  C 
0,D 
0,E 
0,F 


10 
1.  1 
1^2 
1.3 

3..  C 
3,0 


l-S 
1,9 
3,F 


NULL 

SON 

STX 

ETX 

EOT 

EHQ 

RCK 

BEL 


BS 

HT 
LF 
VT 
FF 
CR 
SO 


;DLE 
;  DC  1 
;DC2 
;DC3 

;DC4 
;  NflK 
;  SYN 
;ETB 


CAN 

EM 

SUB 
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L     4 


f: 
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L  ^ 


133S 

003505 

1839 

003506 

ISHO 

003507 

ism 

003510 

18H2 

003511 

13H3 

18HH 

1845 

003512 

1846 

003513 

1847 

003514 

1848 

003515 

1349 

003516 

1850 

003517 

1861 

003520 

185: 

003521 

1S53 

1S54 

1855 

003522     ' 

lS5b 

003523 

1857 

003524 

1S58 

003525 

1859 

00352b 

1860 

003527 

1861 

003530 

1862 

0G3531 

1863 

1864 

1865 

003532 

1866 

003533 

1867 

003534 

186S 

003535 

1869 

003536 

1870 

003537 

1871 

003540 

1872 

003541 

1873 

1S74 

1875 

003542 

1876 

003543 

1S77 

003544 

1878 

003545 

1879 

003546 

ISSD 

003547 

1881 

003550 

1882 

003551 

1883 

1884 

1885 

1886 

1887 

003552 

1888 

003553 

1889 

003554 

1890 

003555 

1891 

003556 

1H92 

003557 

1893 

003560 

1894 

003561 

PfiGE  35- 

1  . 

HEX 

1.1 

;ESC 

HEX 

1,1 

;FS 

HEX 

1.0 

;  flSC  1 1  G 

HEX 

3.5 

;RS 

HEX 

l.F 

;flSCI 1  U 

;  040 

HEX 

4,0 

;SrKE 

HEX 

5,fl 

;  ! 

HEX 

7,F 

HEX 

7,B 

;t 

HEX 

5.B 

;i 

HEX 

6,C 

.% 

HEX 

5.0 

;l 

HEX 

7,0 

;  050 

HEX 

4.D 

;( 

HEX 

5,0 

;> 

HEX 

5.C 

;« 

HEX 

4  E 

;* 

HEX 

b  B 

• 

/ 1 

HEX 

b,0 

HEX 

4,3 

* 

HEX 

b-  1 

;/ 

;  ObO 

HEX 

F-0 

;0 

HEX 

F .  1 

;t 

HEX 

F,2 

;2 

HEX 

F.3 

;1 

HEX 

F,4 

;i* 

HEX 

F.5 

;§ 

HEX 

!^,b 

;6 

♦ 

HEX 

F,7 

;7 

;  070 

HEX 

F.S 

;g 

HEX 

F.9 

;9 

HEX 

7,fl 

t  \ 

HEX 

5,E 

i   / 

HEX 

4.C 

;  < 

HEX 

7.E 

;  s 

HEX 

b,E 

;> 

HEX 

b,F 

;? 

/ 

A 

LOUEP 

CASE 

;  100 

HEX 

7,C 

;a 

HEX 

\.,  1 

;R 

HEX 

C.2 

;i 

HEX 

C.3 

;C 

HEX 

C^4 

;0 

HEX 

C,5 

;l 

HEX 

C.b 

;r 

HEX 

C,7 

;(j 

B 


GS  BECOMES  EBCDIC  IGS 
US  BECOMES  EBCDIC  lUS 


Ri^.YNf     MPrpn  Miinu     nt-nrr-77  no.  10     oortr    7^0 


M     4 


:i 


L 
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M     H 


(^ 


lo95 

1896 

003562 

1S97 

003563 

IS9S 

003564 

1899 

003565 

1900 

003566 

1901 

003567 

1902 

003570 

1903 

003571   . 

190H 

1905 

1 90b 

003572 

190" 

003573 

l9uS 

003574  ' 

1909 

003575  : 

1910 

003576 

1911 

003577  ' 

1912 

003600 

1913 

003b01 

I9m 

1915 

1916 

003602 

1917 

0036C3 

1918 

003604 

1919 

003605 

1920 

003606 

921 

003607 

1922 

003610. 

1923 

003611 

924 

925 

926 

927 

92S 

929 

003612 

930 

003613 

931 

003614 

'=»32 

003615 

933 

003616 

92M 

003617 

93B 

003620 

936 

003621 

92? 

93S 

939 

003622 

940 

003623 

941 

003624 

942 

003625 

943 

003626 

944 

003627 

945 

003630 

946 

003631 

94  7 

94  S 

949 

003632 

950 

003633 

95  i 

003634 

;    110 


120 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 
HEX 

HEX 
HEX 
HEX 
HEX 
HEX 


LOWER    CASE 


;    130 


140 


150 


160 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 

HEX 


C,8 
C,9 
D.l 
D.2 
0,3 
D,4 
0,5 
0,6 


0,7 

0,8 
0,9 
E,2 

E,3 


E 
E 
E 


4 
5 

6 


E.7 
E,S 
E,9 
4,H 
E  0 
5-F 
4,F 
6^0 


7-  9 

s-i 

8-2 
8,3 
8.4 
8,5 
8,6 
8-7 


8,8 
8,9 
9-  1 
9,2 
9,3 

9,5 
9-b 


9,7 

9,8 


;H 
;  I 
;  J 
;K 
;L 
;n 
;N 
;0 


;P 
;Q 
,P 
;S 
;T 
;U 
;  V 
;  W 


;X 

;  Y 
;2 
;FISCI  I 

;  flSC  I  ! 
;  fiSC  I  I 
; UNDER u 


BECOMES  EBCDIC  CENT   SIGN 

BECOMES  EBCDIC  "NOT"   QPEPPTOP 

BECOMES  EBCD'C  I'ERTICflL   BAR 
NE 


ACCENT 

fl 

B 

C 

D 

E 

F 

G 


H 


K 
L 
M 
N 
0 


;P 
;Q 
;R 
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N     4 


f; 


BISYNC 

hRCPo  nnoH  Q 

1952 

00363B 

19B3 

003636 

196H 

003637  - 

19BB 

0036H0 

ISBfe 

0036m 

19B7 

19BS 

19B9 

0036H2 

1960 

0036^3  V 

1961 

0036^^ 

1962 

00364B 

1963 

003646 

196^ 

003b'47 

r?toB 

OOibBO 

1966 

0036B1    / 

06-DEC-77 
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N     4 


170 


1967 
196S 


B 


HEX 

R,2 

;S 

HEX 

R,3 

;T 

HEX 

R,H 

m 

HEX 

fl.5  . 

' -If  : 

HEX 

R.6 

.mr 

HEX 

R,  7 

;X 

HEX 

fl,  8 

;Y 

HEX 

R.  9 

;Z 

HEX 

CO 

;LEFT  BRACE 

HEX 

b.fl 

;0R 

HEX 

0.0 

; RIGHT  BRACE 

HEX 

fl,  1 

; TILDE 

HEX 

Ow 

;DEL 

BISVNC      nflCPO  nilQH     06-DEC-77   08:18     PPiGE   36 


B  5 


1970 

1971 

19T'2 

1973 

1974 

197B 

197b 

1977  0C3e52 

000 

002 

002 

003fc5B 

006 

020 

016 

003bbO 

QO^^^ 

000 

1978  003662 

000 

000 

000 

003665 

000 

ODD 

000 

003670 

000 

000 

1979  003672 

012 

000 

uoo 

003675 

000 

000 

022 

003700 

014 

004 

1980 

19S1  003702 

000 

000 

000 

003705 

000 

000 

000 

003710 

000 

010 

1982 

1983 

19SU 

1985 

1986 

1987 

1988 

1989  003712 

004232 

1 

1990  0037m 

005710 

1 

1991 

1992 

1993 

1994  00371f 

005736 

1995  003720 

006002 

1996  n03722 

006012 

1997  003724 

004232 

1998  003726 

006070 

1999  003730 

006040 

2000  003732 

005710 

2001  003734 

004232 

2002 

2003 

2004  003736 

005206 

2005  003740 

005274 

2006  003742 

00520b 

2007  003744 

005206 

2008  003746 

005206' 

2009  003750 

005414' 

2010  003752 

005410" 

2011  003754 

005652' 

2012  003756 

005424' 

2013  003760 

005446" 

.  EVEN 

.  ENDC 
ACTION  INDEX  TOBLE  -  INDEX  WITH  PSC I  I  CHAR  <  40  OCTPIL 
CONTENT  IS  ACTION  CODE  FOR  THAT  CHAR.  CODE  IS  ALWAYS 
EVEN  FOR  USE  AS  JUMP  INDEX 


ACTTAB:   BYTE  00.02.02.06,20.16,00.00   .ASCII  00-07 

.BYTE  00.  00.  00.  on  00.00.00.00   .ASCII  OS-OF 

BYTE  12.00.00.00.00.22.14.04    -ASCII  10-17 


.  IF  NDF  R37S0 

.  BYTE  00.- 00.  00.  00- 00.  00- 00.  10 


ENDC 

IF  DF   P3780 

BYTE  00.00-00.00.00.30.22.10 

ENDC 


;ASCI I  18-lF 


.ASCII  IS- IF 


.  EVEN 
;JUMF  TPBL:  fop  special  ACTION  CHARACTERS  -  RECEIVE  MODE 


GTSAT: 


GTBCC 
GTSTy 

.  IF  OF 

GTBCC 

.  ENDC 

GTETB 

GTETX 

GTlTB 

GTBCC 

GTSYN 

GTENQ 

GTSTX 

GTBCC 


P37Sn 


;CHARnCTER  WAS  NOT  SPECIAL 
;STX/SOH 


RS-TRFAl    AS   DATA 


ETB 

ETX 

ITB 

;DLE 

;SYN 

;ENQ 

;EOT 

NAK 


;JUriP    TABLE   FOP    SPECIAL   ACTION   CHARACTERS    -    1ST    CHAPfiCTEP   RECEIVE   MODE 


FPSAT- 


GTFPTl 
SETniP 
GTFPTl 
GTFRTl 
GTFPTl 
SETDLE 
GETCHl 
SETENO 
SETEOT 
SETNAK 


CHARACTER  WAS  ^iOT  SPECIAL 
. STX/SOH 
ETB 
ETX 
ITB 
DLE 
SYN 
ENQ 
EOT 
NAK 
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2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
202^ 
2025 
202b 
202" 
202S 
2029 
203C 
2031 
2032 
2033 
203M 
2035 
2036 
2037 
2038 
2039 
20^0 
20m 

20^2 

20H3 

20HH 

20H5 

20H6 

20H7 

20H8 

20^9 

2050 

2051 

2052 

2053 

205H 

2055 

2056 

205? 

2058 

2059 

2060 

2061 

2062 

2063 

206^ 

2065 

2066 

2067 

206S 

2069 

2070 

2071 


003762 
0037b4 
0C3766 
003770 
0C3772 
00377^ 
003776 
OOHOOC 
00U002 
OOHOO'i 


OOH006 
G014012 
OOHOm 
OOH020 


00H022 


00H022 
00H026 
00^032 

oo^o^o 
ool♦o^6 

OOH052 


001540' 
001166' 
001540' 
001540' 
001012' 
000756' 
001272' 
001176' 
001244' 
001540' 


042704 
010405 
116404 
000207 


013746 
013746 
012737 
016237 
016201 
016137 


;  JUriP 
PTSRT: 


TPBLE  FOR 
PUTD5 
PTSTX 
PUTD5 
PUTD5 
PTITB 

ptdle 

PTSVN 
PTENQ 
PTEOT 

PUYDS 
.  IF  DF 
PTIPS 
.  ENDC 


C  i 


SPECIRL  fiCTION 


R3780 


CHflRflCTERS  -   TRANSMIT  MODE 
;CHflRPCTER   WAS  NOT  SPECIAL 
; STX/SOH 
;ETB 
;ETX 
TB 
;DLE 

SYN 

ENil 

EOT 
;  NflK 

;IRS 


IF   NZ     CO.  EBC 


177400 
003052' 


;EBCDIC-PISCI  I 
EBCRTK:  SIC 
MOV 
MOUB 
PTS 
.  ENDC 


RECEIVE  TRANSLATOR 
«177400,CBBX 
CBBX.CBAX 
ETA(CBBX),CBBX 
PC 


;SAVt  ORIG.  CHAR 
;GET  ASCI  I  EQUIVALENT 


CIRCULAR  RECEIVE  BUFFER  (CRB)  SERVICE  ROUTINE 

ENTERED  FROM  SCIF  SYSTEM  TIMER 

FIRST,  SAVE  THE  CURRENT  STATE  OF  THE  KGl 1 


CPBSRV; 


170700 
170702 
000133 
000122 
000132 
000034 


170700 
170704 

170700 


004060  005062  000062 


004064 


;NOW  UE 
;  GET  A 
GETCHR: 


.  IF 
.  IF 
MOV 
MOV 
IFF 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
.  ENDC 
.  ENDC 
.  IF  DF 
MOV 
.  ENDC 

CLP  IRC(R2) 

'RE  READY  TO  SERVICE  THE  CRB 
CHAR  FROM  THE  CRB  AND  PROCESS 


NDF  RSTS 

DF  LSIll 

CRCACC,-(SP) 
CBC(R2),CRCACC 

(i)lfKGSTAT,-(SP) 

a«}KGBCCR,-(SP) 

»133,a«KGSTAT 

CBC(R2),il«KGDATA 

CCT(R2),R1 

KGC(Rl),i»KGSTAT 


RSTSILSIll 
CCT(R2),R1 


;SAVE  PARTIAL  BCC 

;SET  CURRENT  PARTIAL  BCC 

; STATUS 

; pflPT I AL  BCC 

; CLEAR  KGll  AND  SET  FOR  LRC16 

;SET  CURRENT  PARTIAL  BCC 

;SET  CURRENT  CODE  TABLE  POINTER 

;AND  I  NIT  KGll  FOR  CURRENT  CODE 


;SET  CURRENT  CODE  TABLE  POINTER 
; CLEAR  THE  INTERIM  RECEIVE  COUNT 


IT 


.  IF  NZ 
MOV 
JSR 
.  ENDC 
.  IF  Z 


CRBINT 
aRBU, (SP) 
PC, (SP)+ 

CRBINT 


004064   004772  000004 

004070   100002 

004072  000167  000640 


JSR  PC,aPBU(R2) 
.  ENDC 

BPL     GETCHA 
JMP     GTNONE 


GET  UNLOADEP  ADDPESS 
AND  CALL  IT 


;ASK  FOP  ENTRY 

:ANY  ENTRIES^ 
;N0 


BISYHC 

MRCRO  (1110H  06 

-DEC-77 

08:  18  PRGE  37-1 

D  5 

2072 

00H076 

102003 

GETCHfi: 

B"C  GETl 

;crb  overrun  indicrted? 

2073 

oomoo 

052762 

GGG040 

000012 

BiS  IC0VR.RSU(R2) 

;SET  status  FLRG  IF  SO 

2074 

oomo6 

0327GU 

G2G000 

GETl: 

BIT  I20000.CBBX 

;TEST  for  RCV  OVERRUN 

2075 

oomi2 

G014G5 

BEQ  GETlfl 

;SET  STATUS  FLAG  i"^  OVERRUN 

2076 

ooiim 

0427G4 

G2GG00 

BIC  120000. CB6X 

; CLEAR  OVERRUN  FLAG  IN  ENTRY 

2077 

oom2o 

G52762 

GGOIGG 

GGG012 

BIS  «R0VR.RSUrR2) 

2078 

com  26 

032762 

GGG2GG 

000012 

GETlfl: 

BIT     IISRT0F,RSW(R2) 

; SLAVE  RCVE  TIMEOUT? 

2079 

oom3H 

GOmOB 

9EQ     GETIB 

;N0 

2080 

0Gm36 

042762 

000200 

000012 

BIC     «SRT0F,RSW(R2) 

;    2081 

GOmHH 

000167 

001700 

JMP     GTEOT 

; GENERATE  AB  END  RCVE  UIB 

2082 

oomso 

G32762 

000400 

000012 

GETIB: 

BIT     »FBF,RSU(R2) 

; FLUSHING  BUFFER? 

2083 

G0m56 

001342 

BNE     GETCHR 

;YES  -  IGNORE 

208H 

oom60 

005262 

000062 

INC  IRC(R2) 

.INDICATE  CHAR  CAME  IN  THIS  TIME 

2085 

00m6H 

105762 

000127 

TSTB  BCL(R2) 

;ARE  WE  IN  BCC  PHASE? 

208fc 

004170 

001402 

BEQ  GET2 

20S7 

004172 

000167 

001710 

JMP  BCCHK 

;YES 

2088 

004176 

004771 

000040 

GET2: 

JSR  PColRTRfRl) 

,N0  -  GO  TO  ACTIVE  TRANSLATE  ROUTINE 

20S9 

004202 

032762 

100000 

000010 

BIT  «rilP.LSW(R2) 

♦  = 

2090 

004210 

001002 

BNE  GET5 

;NOT  THE  FIRST  CHAR  -  PROCEED 

2091 

00421. 

000167 

000752 

JMP  GTFRST 

; FIRST  CHAR  -  GO  CHECK  iT 

2092 

004216 

120427 

000037 

GET5: 

CMPB  CBBX  «37 

;IS  IT  IN  RANGE  OF  SPECIAL  CHARS? 

2093 

004222 

003440 

BLE  GET3 

;YES  -  GO  CHECK  FURTHER 

209H 

004224 

042762 

000200 

000006 

BIC  «DLEF,LCW(R2) 

2095 

004232 

032762 

000200 

000010 

GTBCC: 

BIT  «BCCP,'_Sl^(R2) 

;  INCLUDE  IT  IN  BCC 

2096 

004240 

001402 

BEQ  GET4 

;N0 

2097 

.  IF  OF  LSIll 

209P 

MOVB    CBflX,CRCCHR 

;RUN  IT  THROUGH  BCC  CPLC 

2099 

JSR     PC,SCRC16 

2100 

.  IFF 

2101 

004242 

110537 

170704 

MOVB  CBflX.  £)SKGDRTfl 

;PUN  IT  THROUGH  KGll 

2102 

.  ENDC 

2103 

00H246 

032762 

000020 

000012 

GET4: 

BIT  ;U0VR,RSW(R2) 

;USER  BUFFER  OVERFLOW? 

210H 

00H254 

001303 

BNE  GETCHR 

;YES.  IGNORE  FUTHER  CHARS 

2105 

004  256 

005762 

000024 

TST  flBC(R2) 

;RO0M  FOP  THIS  CHAR^ 

2106 

004262 

001444 

BEQ  GTUOF 

;N0.  GO  SET  OVERFLOW  FLAG 

2107 

004264 

032762 

040000 

000010 

BIT  «PNF,LSW(R2) 

;IF  ACKNOWLEDGE,  DON'T  BUFFER  IT 

2108 

004272 

001274 

BNE  GETCHR 

2109 

004274 

032762 

001000 

000006 

BIT  «NRT.LCW(P2) 

; IF  NATIVE  MODE 

2110 

.  IF  NDF  PSTS 

2111 

004  302 

001401 

BEQ  GET9 

2112 

004  304 

010504 

MOV  CBfiX-CBBX 

;.  .  .  BUFFER  ORIGINAL  CHRR 

2113 

004  30b 

GET9: 

2114 

004  30b 

1 10472 

000022 

M0V3    CBBX.^PP«>:R2) 

;PUT  CHf^P  IN  USER  BUFFER 

2115 

.  ENDC 

2116 

IF  OF  RSTS 

2117 

BNE     5S 

;YES 

2118 

.  GLOBL   EXTFLG 

2119 

TSTB    EXTFLG 

; CHECK  FOP  PSTS-TO-RSTS  MODE 

2120 
2121 
2122 

BPL     GET9 

;PUT  IN  BECPUSE  OF  FfiCE  CONDITION 
;EDIT  31 
;N0T  SET 

2123 
212H 
2125 
2126 
2127 

GET9: 

MOV     CBfiX.CBBX 

MOV     SfiVRb^K !S«Pb 
MOVB    CBBa.  ilSrlVflOD 

; BUFFER  OPIGINRL  CHPPPCTEP 

; RESTORE  RPR  6  JUST  IN  CPSE 
:PUT  CHRR  INTO  POTENT  1  PL LY 
MAPPED  BUFFEP  PPEP 

2128 

INC     SPVfPDD 

BUMP  POINTER 

I 
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E     5 


2129 

2130  00^312 

2131  00H31fe 

2132  00^322 


005262 
005362 
C00660 


000022 
00002H 


.  ENDC 

INC  «Rfl(R2) 
DEC  fiBC(R2) 
BR  GETCHR 


; UPDATE  POINTER  AND  COUNT 


BlSYNC     MfiCPO  nllO^     Oe-DEC-??  08:  18     PPIGE  38 


F  S 


213»4 

2135 
2 1 3b 
2137 
2138 
2139 
21H0 

2mi 

21H2 
2m3 

zmu 

2146 

zmb 

2147 

2ms 

2149 
21SC 
21^1 
21S2 
2153 
2154 
2155 
2156 
2157 
215S 
2159 
21fa0 


004324 
004330 
G0433b 
004340 
00434b 
004350 
004354 
004356 

004362 
G04370 


004374 
004402 
004404 
004412 
004  4  20 


004422 
00442b 
004434 


116400 
032762 
001414 
032762 
001005 
120427 
001326 
000167 

042762 
^00170 


032762 
001003 
052762 
052762 
000621 


1050b: 

G4:"'b: 
Goccor 


003652' 
100000 


PROCESS  0  POSSIBLE  SPEClfiL  CHAR 


000006 


000200  000006 
000020 


001032 

000200 
003712' 


000006 


000002 
000020 


G0G153 

nno4np 


G00012 
000012 


GET3: 

MOVB  RCTT«B(CBBX).RC 

BIT  IRCl/T^LCWCRZ) 

BEQ  GTNSRR 

BIT  «0LEF.LCW(R2) 

6NE   GNXl 

CMPB  CBBX,IDLE 

BNE   GTBCC 

jriP   SETDLE 

GNXl: 

BIC   «DLEF,LCW(R2) 

GTNSflR: 

JflP   i)GTSflT(RO) 

000001  000010  GTUOF 


;USEP  BUFFER  HfiS  OUERFlOWED 


uOUOF 


BIT  «RBfi.LSW(R2) 
BNE  GOUOF 
BIS  8NUB,RSWfP2) 
BIS  8U0VR.RSWiP2) 
BR  GETCHR 


FETCH  THE  ACTION  CODE 
;TRflN£PflRENCY 


; IF  DLEF  SET,  PROCESS  THE  CHAR 
;  ir  NOT,  LOOK  FOR  ONLY  OLE 
; OTHERS  TREATED  AS  DATA 
;DLE  SETS  THE  FLAG 


;G0  10  INDIVIDUAL  ACTION  ROUTINE 


;.  r   BECAUSE  THERE  WASN'T  ONE 
;N0  -  PROCEED 

;SET  'NO  USER  BUFFER'  FLAG 
;SET  FLAG 
;AND  CONTINUE  DISCARDING  CHARS 


000010 


; ROUTINE  TO  DEQUEUE  SLAVE  STA^ 
CSSRT:   CLRB    SPC(.R2) 

BIC     «SPTfl,LSU'R2) 

RTS     PC 


ON  RECEIVE  TIMER 
: RESET  COUNTER  TO 
; CLEAR  SLAVE  PECV 
: RETURN 


minus  one 
Timer  act 


VE  FLAG 


r   c 
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G  5 


21b2 

21b3 

2lb'4 

2lbS 

21bfc 

21b7 

21b8 

2169 

2170  00^436 

052762 

000100 

000014 

2171  004H4H 

032762 

020000 

000010 

2172  00H4B2 

001426 

2173 

217U  00445H 

032762 

000400 

000006 

2175  0044b2 

001422 

2rb  004464 

•?  1  7"? 

217S 
217<^ 

21S0 

2181 

2182  004464 

00526^ 

OOOOOOG 

2183 

2184  004470 

lOB'b: 

000  mc 

2185 

2186  004474 

100007 

2187 

2188 

2189 

2190 

2191  004476 

052762 

100000 

OQOC 1 4 

2192 

2193  004504 

005000 

2194  004506 

004767 

000522' 

2195  004512 

000207 

2196 

2197 

219S 

2199 

.ROUTINE  TO  BUILD  TRRNSniT  MESSAGE  POINTERS  FOR  ENQ 

;PROVIDtS  FOR  MfiSTER  STATION  RECE I UE  TIMEOUT,  RECEIVED  WflCK, 
;RND  GARBLED  MESSAGE  RESPONSE 

;COriE  HERE  IF  TIMEOUT  (ENTERED  FROM  SCIP  TIMER) 
;SCIP  HAS  SAVED  REGISTERS 


MSRTO: 


nSRTl 


BIS 

«MT0UT,TSU(R2) 

BIT 

»AEF,LSW(R:) 

BEQ 

MSRTOX 

BIT 

«INI,LCW(R2) 

BlQ 

nSRTOX 

.  iF  OF 

RSTS 

.  GLOBL 

CLOSD 

MOU 

CL0SD.R5 

INL3 

12(P5) 

.  IFF 

.  GLOBL 

XMITriT 

INC 

XMTTMT 

.  ENDC 

DECB 

EKT(R2) 

BPL 

nSRTOfl 

SET  FLAG  THAT  WE  HAD  A  TIMEOUT 
STILL  WAITING  FOR  ACK 
NO  -  IGNORE  TIMEOUT 

STILL  IN  MESSAGE  TRANSFER 
NO  -  IGNORE  TIMEOUT 


PUT  DDB  ADD  IN  R5  tttttttlDlJ   32 
INCRMNT  n   OF  TRANSMIT  TIMEOUTS 

; ttttZD I T  40 
INCREMENT  «  OF  TRANSMIT  TIMEOUTS 

ENQ  COUNT  EXPIRED"? 

NO  -  SEND  ENQ 


ENO  RETRY  COUNT  PEACHED  -  PERFORM  ABNORMAL 
TRANSMIT  TERniNATION 


BIS 

»NAKF,TSWCR2) 

.IF  NDF 

RSTS 

CLR 

PO 

JSR 

PC. TOE  NT 

PIS 

PC 

.  IFF 

J  MP 

TDENTO 

.  ENDC 

; ABNORMAL  TRANSMIT  TERMINATION 

;PUT  LINE  »  IN  RO 

; STORE  TRANSMIT  DONE  UIB  ENTRY 

; RETURN  FROM  TIMER 


u  c 


r 
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H  5 


2201 
2202 
2203 
220H 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
22m 
2215 

'?  ■-  1  u 

-->■">  1  -7 

^^  1  ' 

221S 
2219 
2220 
2221 
2222 
2223 
222H 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
223^ 

2236 
2237 
223S 
2239 
2240 
2241 

224i 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 


;TRRNSmT  ENQ  TO  REQUEST  RESPONSE 


G04514 
004520 
004524 


004532 
Q04540 
004546 


004610 
004610 
004612 
004614 


016201 
004767 


000132 
000006 


004767  000150' 


004530  000207 


004622 
004626 
004632 
004634 
004636 


004640 
004640 


016262  000100  000144 
016262  000102  000146 
016262  000104  000150 


CC4554  052762  001000  000010 

004562  C10162  000100 

004566  062762  000022  000100 

004574  012762  000002  000102 

004602  005062  000104 

004606  000207 


2252 
2253 
2254 
2255 
2256 
2257 


004646 
004654 


004656 
004662 
004664 


005000 
010546 
010446 


004616  016704   173164 


012705  004656" 


004767 
012604 
012605 

000207 


OOOOOOG 


116762   173140  000153 


052762  000400  0000 1 
000207 


105762  000163 

001405 

105362  000153 


MSRTOfl:  nov 

JSR 
JSR 


CCT(R2).R1 

PC.BENQ 

PCflCKOUT 


GET  CURRENT  CODE  TABLE  POINTER 
BUILD  ENQ  riESSRGE  POINTERS 
TRflNSMIT  ENQ  WITHOUT  DELAY 


MSRTOX:  RTS     PC  ;RETURN  TO  SCIP  TiMER 

;ROUTINE  TO  BUILD  MESSAGE  POINTERS  FOR  ENQ 


BENQ: 


ncv 

MOU 


T2A(R2).TT2A(R2) 
T2C(R2).TT2C(R2^ 
T3A(R2),TT3A(R2) 


BIS 

nov 

ADD 
MOU 
CLR 

RTS 


»RDBF,LSW(R2) 

Ri  T2ACR2) 
«CENQ,T2A(R2) 
n2,T2C(R2) 
T3A(R2) 

PC 


MUST  SAVE  CURRENT  MESSAGE 
POINTERS  IN  CASE 
RETRANSMISSION  IS  REQUIRED 

VALUES  WILL  BE  RESTORED  WHEN 
THE  ISR  OUTPUT  STARTUP 
CALL  IS  COMPLETEH 

•RESTORE  BUFFER  POINTERS'  FLAG 


POINTER  TO  'ENQ'  'PAD' 

SET  UP  COUNT 

TERMINATE  ADDRESS/COUNT  CHAIN 

ENQ  READY  TO  GO 


;SUBR0UTINE  TO  START  THE  1/2  SECOND  INTERVAL  TIMER 
INTVTM: 


NTVTl 


SSRTM: 


CLR 

PO 

MOV 

R5.-(SP) 

MOV 

R4,-(.SP) 

.  IF  OF 

UflPTIM 

MOV 

TICINT.P4 

.  IFF 

MOV 

»TICINT,P4 

.  ENDC 

MOV 

«INTTIC.R5 

JSR 

PCCTIME 

MOV 

(SP)+,P4 

MOV 

(3P'+.R5 

RTS 

PC 

INE  TO 

START  SLAVE  ST 

.IF  OF 

UfiPTIM 

MOVB 

S5RT,SPC(R2) 

.  IFF 

MOVB 

nSSRT,SPC(R2) 

.  ENDC 

BIS 

»SRTR.LSW(R2) 

RTS 

PC 

GET  LINE  NUMBER  AS  BYTE  INDEX 
SAVE  RELEVANT  REGISTERS 


GET  «  OF  TICS  IN  AN  INTERVAL 

GET  THE  n  OF  TICS  IN  AN  INTERVAL 

TIMEOUT  ROUTINE  ADDRESS 
START  THE  TIMER 
RESTORE  REGISTERS 

RETURN 


; POUT INE  TO  SERVICE  INTERVAL  TIMER 
INTTIC:  TSTB    SRC'R2) 

BEQ     INTCl 

DECB    SRC(R2) 


SET  TIMER  INTERVAL 

SET  TIMER  INTERVAL 

SET  SLAVE  TIMER  flCTlWE  FLAG 
RETURN 


SLflV^E  RECEJiiE  TiMEP  GOING'? 

NO 

COUNT  DOWN  ONE  INTERVAL 


> 
I 
E 

V 

c 

E 


r 
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225S  00^b70  001002 

2259  00^672  004767 

2260  00H676  105^62 
22bl  00470"  OOmOB 

2262  0047L4  105362 

2263  004710  0ni002 
226H  004712  004767 

2265  004716 

2266  004716  000734 

2267 
9  --'  u  o 

22b9 
2279 

T"'-  1 


000022 
000115 

000115 

177520 


NTCl 


NTC2: 


BNE 

INTCl 

JSR 

PCSSRTO 

TSTB 

riRC(R2) 

BEQ 

INTC2 

DECB 

MRC(R2) 

BNE 

INTC2 

JSR 

PCMSRTO 

BR 


NTVTM 


; HASN'T  EXPIRED  YET 

;EXPIRED.  CALL  TIMEOUT  ROUTINE 

;nRSTER  RECEIVE  TIMER  GOING? 

,N0 

; COUNT  DOWN  ONE  INTERVRL 

; HASN'T  EXPIRED  YET 

; EXPIRED,  CRLL  TIMEOUT  ROUTINE 


;SLflVE  STfiTlON  RECEIVE  TIMEOUT  -  (FROM  SCIP  SYSTEM  TIMER) 


004720 
004726 


Ct2:'62  000400  000010 
052762  000200  000012 


SSRTO 


fc»  4-.  '    • 


004^34   000207 


B'C 
BIS 


PIS 


»SRTfl,LSW(R2) 
;SRT0F,RSU(R2) 


PC 


CLEAR  SLAVE  TIMER  ACTIVE  FLAG 
SET  SLAVE  RECEIVE  TIME  OUT  FLAG 
RECEIVE  WILL  BE  ABORTED  AND  NAK 
SENT  ON  NEXT  CRB  SRV  PASS 
RETURN  TO  SCIP  TIMER 


J  5 


Bl 

SYNC 

MfiCPo  nno4    06 

-DEC-77 

2277 

00^73b 

2278 

004736 

005762 

000062 

2279 

004742 

001406 

22S0 

004744 

105762 

000127 

22S1 

0047B0 

001003 

2282 

08:  18  PfiGE  41 
GTNONE 
GTNOl: 


J  5 


2283 
2284 
2285 
2286 

7-707 

2288 
22^.9 
2290 

Art  Art  w 

■?  '"^  Q '? 

22^3 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

230? 

2308 

2309 

2310 

2311 

i»  >j  1  <i 

2313 

2314 

2315 

231b 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2Z23 
2330 
2331 
2332 
2333 


004752  013762  170702  000122 


004760 

004760 
004766 

004770 
004772 
00477b 
005002 

005006 
005010 

005012 


005012 
005020 
005024 


005030 
005036 


005040 
005044 
005052 
005054 
0C5060 
005064 
005072 
005100 

005106 
005114 


0327G2 
001411 

005000 
116204 
012705 
CO', 767 

100001 
000240 


012737 
012637 
01 2637 


LH  *-  f  b  i, 

000207 


004767 
032762 
001402 
004767 
016201 
042762 
042762 
042762 

052762 
000167 


;  NOW 
GTN02: 


000002  000010 


000120 

004022' 

OOOOOOG 


000133 
170704 
1 70700 


;  PEST 
GTN03: 


170700 


;EXIT 
GTN03: 


000400  0G0012 


.IF  NDF  RSTS 
TST  IRC(R2) 
BEQ     GTN02 
TSTB  BCL(R2) 
BNE  GTN02 
.  IF  OF  IS  1 11 
nOV     CRCflCC.CBC(R2 
.  IFF 

nOU  a)«KGBCCR,CBC(R2) 
.  ENDC 
.  ENDC 
SET  UP  fiNOTHER  CRB  SERU 

.  IF  Z   CRBINT 
BIT  «CSPI,LSU(R2) 
aEQ  GTN03 
.  ENDC 

CLR     RO 
nOVB  TCT(R2),R4 
MOU  ?JCRBSRU,R5 
JSP  PCCTiME 
.IF  NDF  RSTS 
BPL     GTN03 
THflLT 
OPE  THE  KGll  RND  EXIT 
.  IF  OF  LSIll 
MOV     (SP)+,CRCRCC 
.  IFF 

m"^   »133.i)«KGSTflT 
nOV  (SP)+,a»KGOflTFI 
nOU  (SF)+,il?}KGSTPT 
.  ENDC 
.  ENDC 
.  IF  DF  PSTS 


.  ENDC 

BIC  ;rBF-PSiaR2) 

PTS  PC 


;DID  WE  GET  ANY  THIS  TIME? 

; IF  NOT  IN  eCC  PHOSE.  .  . 

I         ;SflVE  THE  PflRTiRL  BCC 

;.  .  SRVE  THE  PRRTIRL  BCC 

CE  TIMER  REQUEST  FOR  THIS  LINE 


; IF  TIMER  NO  LONGER  ACTIVE. 
;.  .  DON'T  REQUEST  ANOTHER 

;  RECREATE  LINE  IJ 

;SET  TIMER  COUNT 

.SET  TIMER  ROUTINE  POINTER 

;REQUEST  TIMEF   JTRY 

: TIMER  QUEUE  FULL^ 
; YES-SYSTEM  ERROR 


;RESTORE  PARTIAL  BCC 

.:CLEAP  IT  AND  SELECT  LRC16 
; RESTORE  ORIGINAL  BCC 
;fiND  STATUS  CONTENTS 


;BUFFliP  IS  NOW  FLUSHED 
; RETURN  TO  TIMER 


173060 

000400  000010 

177342 
000132 

112200  000010 
000200  000006 
000100  000014 

000400  000012 
176744 


APFEND: 


RRFl 


ARF2: 


JSP 

BIT 

BEQ 

JSR 

MOV 

BIC 

BIC 

BIC 

.  IF 

BIS 

J  MP 

.  ENDC 

.  IF  NZ 

MOV 

ADD 


PCC.BRCD 

SSRTfl.  LSWJ.R2) 

RRFl 

PCCSSRT 

R2)/  Rl 

!BCCA! ITBA!XflC,LSWfR2j 

F,LCW(R2) 

«riT0UT,TSW(R2) 

CRBINT 

,RSW(R2) 

HR 

CRBiNT 

RBU(P2>.mSP) 
n2/  a)SP 


CCT( 
»MIP 
IfDLE 

Z 

«FBF 

GETC 


; GENERATE  'RECEIVE  DONE"  UIB  tNTRY 
;RCHE  TIMER  ACTIVE^ 
,N0 

;CLEAR  TIMER 
; RESTORE  CCT  POINTER 
; CLEAR  PROCESS  FLAGS 

; CLEAR  MASTER  TIMEOUT  FLAG 

; FLUSH  BUFFER  OF  TRAILING  CHARS 


K  5 


BllVriC     nflCPO  nnOH     Ob-DEC-77  08:  18     PPiGE  m-1 


K  5 


233H 

233S 

233b 

^777 

».-i  Ji 

■777?? 

A.  J  J  •_• 

2339 

005120 

032762 

0200G0 

23HG 

005126 

001412 

23m 

0Q5130 

105062 

000115 

23H2 

23H3 

2344 

23H6 

234b 

005134 

105362 

000140 

2347 

005140 

100556 

234S 

005142 

004767 

177364 

2349 

005146 

004767 

000150 

23S0 

005152 

000742 

2351 

2352 

005 154 

000167 

000670 

2353 

2354 

2355 

2356 

005160 

2357 

2358 

2359 

23bO 

005160 

012762 

OOGO 1 1 

2361 

005166 

000734 

OOOOIG  GTNOPE: 


REPEAT: 


JSR 

PCoKSP)^' 

BR 

GTNONE 

.  ENDC 

OUT  OF 

CHQRS  UITH 

BIT  «flE 

.F.LSW(R2) 

BEQ  GENQIG 

CLRB 

riRC(R2) 

.  IF  OF 

RSTS 

nov 

CL0SD,R5 

INCB 

12(RB) 

.  ENDC 

DECB  EKT(R2) 

BMI  TRPNER 

JSR 

PCBENQ 

JSP  PC, 

flCKOUT 

BR  flRFl 

;WERE  UE  EXPECTING  fiCKNOWLEDGE 

;N0.  GENERATE  'RB   END*  RCVE  UIB 
;RE3ET  MASTER  RECEIVE  COUNTER 

;PUT  ADDR  OF  DDB  IN  R5  **«*EDIT  34 
;INCRriT  TIMEOUT  NflK  COUNTER 

OK  TO  SEND  ENQ? 

;N0  -  WE'VE  DONE  3 

;BUILD  ENQ  MSG  POINTER 

;SEND  OUT  THE  ENQ 

,G0  FLUSH  TRAILING  CHARACTERS 


GENQIO:  JMP  GTEOT 

;  WACK  RECEIVED  AS  MESSAGE  RESPONSE 


SETUPK;  .  IF  DF  PSTS 

BISB    «1  EXTFLG 


000140 


,  ENDC 

MOV 

BP 


;SET  FLAG  SO  PSTS  KNOUS  IS  BEING  WAKED 
:EDIT  30 


SENQCNT+1..EK.T'P2)       ;  RESET  ENQ  COUNTER 

AFFl  ;LET  TIMEOUT  CAUSE  ENQ  TO  BE  SENT 


D  1  cvKir   Moron  Miinii   nii_nrr_"?"7  no  io  annr    i,n 


L  5 
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L  5 


2363 
23bH 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 

•^  ->  •  Z} 
^  -»-?/ 
i  J .'  D 

i  j .  b 

2379 

23S0 

23S1 

23S2 

2383 

238H 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

239^ 

2395 

2396 

2397 

2398 

2399 

ZHOO 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 


005170 
005174 
005176 
005202 
0G5206 
005212 

005214 
005222 


005224 
005232 
005236 
005240 
005244 
005246 
005252 
005254 
005260 


0G5262 
005266 
005270 

005274 
005302 
005306 
005314 
005316 
005324 

005332 
005340 

005344 


120427 
003004 
116400 
000170 
120427 
001476 

032762 
001417 


042762 
120562 


005356 
005364 
005366 
005374 


001532 
120562 
001566 
120561 
001742 
120561 
001531 


105362 
100564 
000167 

052762 
004767 
032762 
001411 
052762 
052762 


042762 
005062 
005062 


000G37 

003652' 
003736' 
000177 


000200  OOOOOo 


000200  000006 
000134 

000135 

000001 

OOOOOO 


000152 

176570 

100200 
177332 
000200 

100000 
001000 

000200 
000122 
000124 


000010 

000006 

000006 
000012 

000006 


005350  052737  G00020  170700 


032762 
001411 
U <i <^ f  hi, 
001403 


002000  000010 
IGOOOO  OOOOCb 


PROCESS  THE  FIRST  CHRR  OF  flESSRGE 


B 

SI 
S^ 


GTFRST:  CMPB    CBBX, «37 

BGT     GTFRTl 

nOVB    PCTTfiB(CBBX),RO  ; 

jnP     «)FRS9T(R0) 
GTFRTl:  CnPB  CBBX.«PRD 

BEQ  GETCHl 
;NOTE  -  THESE  NEXT  TESTS  USE  ORIG.  CHAR  -  STILL  IN  CBRX 


;IS  IT  IN  RPNGE  OF  SPECIAL  CHARACTERS? 

;N0 

; FETCH  THE  ACTION  CODE 

;OND  GO  TO  SPECIAL  ACTION  ROUTINE 

; IF  PAD.  IGNORE  IT 


BIT  8DLEF,LCW(R2) 

BEQ  3ETRRF 

.  IF  DF  RSTS 

BICB    »1,EXTFLG 

.  ENDC 

BIC  «DLEF,LCW(R2) 

CnPB  CBRX,CflK(R2) 

BEQ  SETRCK 

CMPB    CBflX,CflK^l(R2) 


IF  DLEF  NOT  SET.  DONE  TESTING 
DIDN'T  RECOGNIZE  THE  CHAR 

HAKE  SURE  FLAG  USUALLY  CLEAR 


BEQ 


;etwpg 


••HERE 
SETflPF; 

SEiniP: 


CflPB   CBAX.CWOKtRl) 
BEQ   SETWAK 
CMPB   CBflX,CRVI (Rl) 
BEQ   SETRl/l 


F  THIS  IS  A  LEADING  GRAPHIC 


ACK? 

YES 

WRONG  ACK? 

YES 

;N0  - 

WACK*? 

YES 

;N0  - 

RVI 

YES 

DECS 
BMI 
J  MP 


LGC(R2) 

STPRFl 

GETCHR 


BIS  «MIP'BCCfi.LSWfR2) 
JSP     PCSSRTM 
BIT  l?DLEF.LCW(P2) 
BEQ  INTBCC 
BIS  «RCVT,LCW(P2) 
BIS  flTRNREC.PSi-ifP2) 


BIC  »DLEF,LCW(R2'' 
INTBCC:  CLR  CBC(R2) 
CLR  RBC(R2^ 
.  IF  DF  RSTS 
MOV  »121.i«KGSTPT 
.  IFF 

.  IF  DF  LSIll 
CLR     CRCflCC 
.  IFF 

BIS  «20.i)^KGSTfiT 
.  ENDC 
.  ENDC 

BIT  IJITBA,LSW(R2) 
BEQ  GETCHl 
BIT  «RCl'T.LCW(R2) 
BEQ  SETMl 
.  IF  DF  LSlll 
MOl/B    CDLECRD^CRCCHP 
JSR     f-C.^CPClb 
.  IFF 


DECREMENT  COUNTER 

ONE  TOO  MANY 

OTHERWISE  IGNORE  IT  AND  KEEP  READING 

SET  MIP  AND  ALLOW  BCC  ACCUMULATION 
START  SLAVE  RCVE  TIMER 
PRECEDED  BY  DLE"^ 
NO.  INITIALIZE  BCC 
YES.  SET  UP  FOR  TRANSPARENCY 
INDICATE  TO  USER  THAT  THIS  ISA 
TRANSPARENT  RECORD  ***EDIT  21*** 

COMPUTED  BCC 
RECIEVED  BCC 

INITIALIZE  KG  BCC  REGISTER 


C2 


CLEAR  KG  BCC  PEG! STEP 


ITB  flCTiVE'? 

NO  -  NO  MORE  TO  DO  HERE 

YES  -  RUN  3TX  THRU  KGll  THIS  TIME 


PLSO  fl  OLE  IF  IN  TRANSPOPENCY 


o  1  r^'-jvtr 


t^i~i^  n  r\     it^  4  « 


^^^     ^"^    f^  ^  *    fS  #^^*^»^ 


M  5 


BISYNC     riRCRO  nUOH     Ob-DEC-77  08.18     PRGE   42-1 


M  5 


2420  006378  116137  000010  170704 
2421 

2423 
2424 
242S 
2426 
2427 
242S 
2429 


24  30 

2431 

2432 

2433 

2U34 

24  35 

243to 

2437 

24  3S 

24  39 

2440 

2441 

2442 

2443 

2444 

244B 

2446 

2447 

2448 

2449 

2460 

2451 

2462 

2463 

2464 

2466 

2466 

2467 

246S 

24  69 

21460 

2461 

2462 

2463 

2464 

2466 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 


006404 

006404 

006410 

006414 
006422 

006424 
006432 
006434 
006442 

006446 
00644b 


006462 
006460 


006462 
006466 
005470 
006474 
006476 
006604 
006604 
006606 
006510 


24  75 
2476 


005514 
005520 

005524 
005532 
005532 
005536 
005542 

005644 
005562 


110637  170704 

000167  176460 

062762  000200  000006 
000772 

032762  000200  0000G6 

001460 

062762  104000  000012 

C00167  177372 


106062  000116 


032762  OOHOnn  000010 
001006 


106362  000141 

002403 

004767  000212' 

000624 

062762  100000  000014 


010300 
006200 

004767 


004767 
000167 

042762 


000632' 


000212 
177334 


t   7777"? 


000014 


105062  000115 
000362  000134 
000760 

062762  04onon  nnnnm 

000767 


nOVB  CDLE(R1),«)«KGDRTR 

.  ENDC 

.  IF  DF  RSTS 

IS: 

TSTB    al«KGSTflT 

BPL     15 

.  ENDC 

SETMl: 

.  IF  DF  LSIll 

MOV     CBfiX,CPCCHR 

JSR     PC,5CRC16 

.  IFF 

MOVS  CBflX,a«KGDflTfl 

.  ENDC 

GETCHl: 

JMP  GETCHR 

SETDLE: 

BIS  «DLEF,LCW(R2) 

BR  GETCHl 

SETEOf: 

BIT  «DlEF.LCW(P2) 

BEQ  SETEOF 

BIS  »RRF!DSC.PSW(.R2) 

J MP  flRFEND 

SETNflK 


SETNl: 

TRPNER: 
IPRNl: 


TRRN2: 


SETRCK: 
5ETRC1: 


.  IF  DF  RSTSIRSX 

CLRB    nRC(R2) 

.  IFF 

JSP  PCCflSRT 

.  ENDC 

BIT  «NEF,LSU(R2) 

BNE  TPRNER 

.IF    DF   RSTS 

MOV  CL0SD.P6 

INCB  10(R6) 

.  ENDC 

DECB   RKT(R2) 

BLT   TRRNER 

JSR   PCRRRCV 

BR   REPERT 

BIS   ;NRKF,TSU(P2) 

.   IF    NDF    PSTS 

MOV   R3,R0 

flSR   RO 

JSR   PC.TDENT 

.  IFF 

JSP   PC.TDENTO 

ENDC 
JSR  PCRRRCV 

JMF    RPFl 


;flLSO  fl  OLE    IF    IN  TRPNSPRRENCY 


;DONE  YET"? 

;NOPE,  WILL  BE  DONE  SOON. 


;THIS  IS  THE  STX 
;RCCUMLRTE  IN  BCC 

;THIS  IS  THE  STX 

;G0  GET  NEXT  CHRP 

;SET  THE  DLE  FLRG 


;DLE  EOT? 

; NO  -  GO  BRCK  TO  CONTROL  MODE 
,YES  SET  DISCONNECT  FLRG 
RND  CRERTE  UIB  ENTRY 


;CLERR  MRSTER  RECEIVE  TIMER 

.:CLERR  MRSTER  STATION  PCVE  TIMER 

;WERE  UE  EXPECTING  R  NRK'?  -  EDIT  17 
,YES  -  DON'T  PETRRNSMIT  -  EDIT  17 

;SET  R6  TO  RDDP  OF  DOB  ****I'**EDIT  34 
; COUNT  TRRNSMIT  NPKS 


;PESET  THE  LINE 

;SET  THE  NRK  FLPG 

; CRERTE  LINE  n 

; CRERTE  'XMIT  DONE'  UIB  ENTPY 

; CRERTE  'XMIT  DONE'  UIB  ENTPY 

; RESET  THE  LINE 


BIC 


«177377,TSW«.P2)  ;SET  VRLIO  STRTUS  RETURN 


SETRV 


CLRB    MRC(R2) 
SWRB  CRK(R2) 
BR  TRRNl 

BIS  ifRVI,TSW(R2) 
BR  SETRCl 


;CLERR  MRSTER  RECEIVE  TIMER 

; RECEIVED  VRL I D  flCK  -  TOGGLE  TEST  WORD 

;..RND  GO  GENERATE  'TRRNSMIT  DONE' 

;SET  PVI  FLAG  IN  STATUS 


BisYNf  MQfPO  Miinu  nfc-nrr-77  no.  iq  pnr.c   uo.o 


N  5 


BISYNC  MflCP.O  ^nO^  Ob-DEC-77  08:18  PRGE  U2-2 


N  5 


B 


2H77 

2H78 

2H79 

2^S0 

2HS1 

2482 

2H83 

2H8H 

2H85 

2H86 

2HS7 

24  88 

2HS9 

2490 

24  91 

2492 

2493 

2494 

24  96 

249b 

2497 

2498 

2499 

2B00 

2501 

2602 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2E-I4 


005554 
005554 
005562 
005564 
005570 
005570 
005576 
005604 
005610 
005616 


005622 
005630 

005632 
005b3D 

CG5b4G 


005640 
00564b 

005652 
005660 


005666 
005674 
005676 
005-04 
005706 


032762 
001402 
000167 

042762 
052762 
105062 
016162 
000167 


032762 
001306 

004767 
000726 


112762 
000167 

032:^62 
0C1553 


002000  000014 

176274 

001420  0000^ 

002000  000^:2 

000136 

000052  000134 

177216 

000100  000014 

176626 


032762 
001404 
032762 
001671 
000570 


000007  000152 
0004 1 6 


SETEOF; 


55: 


BIT 

«BSNT,TSW(R2) 

BEQ 

S% 

JMP 

GETCHR 

WAS  EOT  IN  RESPONSE 
NO  *««EDIT  41 
YES  -  IGNORE  IT 


TO  riRSTER  BID? 


BIC  «nSS! INI!NRT,LCW(R2)        ;  GO  BRCK  TO  CONTROL  MODE 

BIS  «C.BE0F.RSW(R2)     ;SET  EOF  FLAG 

CLRB    flKT(R2)        ; RESET  SLAVE  flCK  COUNTER 

MOV     CflK0(Rl),CflK(R2)        ; RESET  MASTER  fiCK  COUNTER 

JMP  flRFEND  ;RND  NOTIFY  USER 


;HERE 
SETWRG 


IF  WE 
BIT 
BNE 

JSP 
BR 


RECEIVE  THE  OTHER  flCK  FROM  WHAT  UE  EXPECTED 


?;.1T0UT,TSW(R2) 
SETNRK 

PCnSRTl 
TRfiN2 


STRRFl 


MO^t'B 
JMP 


005662  005267  OOOOOOG 


GOOHno  000006  SE  TENQ-  BIT  ;  |  N I , 

BEQ  I 
.IF  OF  PS 
MOV  C 
INCB  1 
.  IFF 
.  GLO 
INC 
.  END 
BIT 
BEQ 
BIT 
BEQ 
SET  J;    BR 


000004   000010 
0C0020  000006 


.0GRPH,LGC'.R2) 
NQZ 

LCi>i(P2) 

NIENQ 

TS 

L0SD.P5 

3CR5) 


BL  PCl'TMT 
PCl'TMT 
C 

t;flQF,LSW'P:'> 

SETJ 
SriSS.LCW'P2.^ 
SETNl 

ENQZ 


HAS  THERE  BEEN  R  MASTER  TIMEOUT? 

YES,  TREAT  AS  A  NAK  A  RETRANSMIT 

LAST  BLOCK 

NO  -  REQUEST  RESEND  OF  RESPONSE 

GO  USE  TIMEOUT  CODE  TO  ABORT  TRANSMIT 


IF  NEEDED 


HERE  IF  TOO  MANY  LEADING  GRAPHICS 
SEEN  OR  GARBLED  ACK  RECEIVED  UiTH 
NO  TIMEOUT 
RESET  LEADING  GRAPHICS  COUNTER 

RECEIVE  ACTIVE  AND  GO  INTO  SEARCH  SYNC 
THEN  FLUSH  THE  CRB 

PROCEDURE 


CLEAR 
MODE 
WHICH 
INIT 


32 


;SET  P5  TO  DDB  ******ED!T 
; COUNT  RECEIVED  ENQ'S 

;EO!T  ^Otti^^ttt 

; COUNT  RECEIVED  ENQS 


;PlK  AVfRlLRBLE  TO  ANSWER  OTHER  SIDE? 

;N0-  IGNORE  THE  ENQ 

; MESSAGE  PPOC  -  WHICH  MODE? 

;SLPWE  -  REPEAT  LAST  fiCK/NAK. 

; MASTER  -  IGNORE •  PENDING  CONTENTION 


BISVNC     MRCPO  r.nOH      06-DEC-77   08:  18     PfiGE   H3 


B  6 


00B710 
00B71fe 


005720  llol37  GOOOlO   17070^ 


0057-26 
005732 


005736 
0057^^ 
005752 
005760 


2516 
2517 
251S 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 

■7C,'?7 

252S 

2529  005726 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

253S 

2539 

25H0 

25m 

2542 

25H3 

2544 

2545 

2546 

2547 

254S 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

255& 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

256S 

2569 

2570 

2571 

2572 


032762 
001403 


100000  000006 


110537 
000167 


052762 
042762 
042762 
1 16262 


170704 
176126 


C20000 
002000 
lOuOOO 
000126 


005766   110537  170704 


005:^72 
006000 


006002 
006010 


006012 
006012 
006020 
006026 
006030 
006036 


013762 
000754 


052762 
000755 


052762 
032762 
001751 
042762 
000" 45 


002000 

locroo 


000012 
000010 
000006 
000127 


170702  000122 


010000  000012 


nnomn 
660606 


100000  000010 


;PROCES'  SIX  OP  SOH  IN  TEXT 

GTSTX:   BiT  «RCUT,LCW(R2j 

BEO  STXBCC 

.  IF  DF  LSIll 

nOVB  CDLE(R1),CRCCHR 

JSR  PC.SCRC16 

.  IFF 

nOVB  CDLECRD^a^fKGDt^Tfl 

.ENDC 

.IF   DF  RSTS 


11 

STXBCC. 


TSTI 


BPL 

.  ENDC 

.  IF    DF    LSIU 


a^KGSTflT 
1% 


G"^GET: 


novB 

JSP 
.  IFF 
MOUB 
.  ENDC 

jnp 


CBfiX.CPCCHP 
PC.  SCRL16 

CBflX   ^^{KGDflTfl 

GETCHP 


.;PPOCESS  ETB 


GTETB 
GTETO 
GTETl 


IS: 


BR 

: PROCESS  ETX 
GTETX;   BIS 
6R 

;  PROCESS  ITB 
GTITB; 
6TITB1:  BIS 


BIS  ttPLKC-PSWfi?;,! 

BIC  Tf  ITdfi.LSUfR^) 

BIC  «P(.ltT,LCU<P2' 

nOVB  t;<''C(R2»,BCL'P2) 

.IF  DF  LS.M 

MObB  CB.IX,  CkcCHR 

JSR  PC.%CPC16 

.  IFF 

MOVB  CBfiX,ai«KGDfiTft 

.  ENDC 

.  IF    DF  PSTS 

TSTB  IiSKGSTflT 

BPL  1% 

ENDC 

.IF  DF  LSIll 

nov 

.  IFF 
MOV 
.  ENDC 

GTGET 


CPCflCC  CBCfP2) 
i)ttKGBCCR.CBC^R2) 


«nEND-PSW'P2) 
GTETO 


;!TBflASU(R2) 
BIT  ??RCVT,LCNiR2) 
BEG  GTETl 
BIC  «MIP.LSW«.R2.) 
BR  GTETl 


:PR0CESS  ENQ  vGTENQ)  WITHIN  fl  RECORD 


;STX  IS  flCCUMULflTED  AFTER  1ST  RECORD 
; IF  TRPNSPflRENT  .  .  . 

; THROW  IN  THE  OLE  TOO 
; THROW  IN  THE  OLE  TOO 


;DONE    YET^ 

;N0-    BUT    IT  WILL   SOON. 


.flCCUMLRTE    IN   BCC 


:SET    'BLOCr    END'    FLOG 
;CLERP    '  ITB   .ACTIVE'    FlRG 
, CLEAR   PPOCES:   FLRGS 
;SET   THE   BCC   LPTCH 

;flCCUriLRTE   END   Ch'RP    IN  C-IC 


;RCCUnULftTE  END  CHRP  IN  BCC 


;DONE  YET-' 

;N0.  BUT  IT  WILL  SOON. 


; STORE  COMPUTED  BCC 
; STORE  COMPUTED  BCC 


.;SET  'ME3SRGE  END"  FLRG 


;SET  ITB  fiCTiuE 
;  IF  TRRNSPRPENT.  .  . 

;.  .  .  LET  OLE  STX  SET  MIP  RGR I N 


BlSYHr     riRCPO  MllOH     06-DEC-77  08:18     PfiGE   ^Z'\ 


C  6 


2B73 
2574 
2S:^5 
2B76 
2S77 
2B78 
2679 
2580 
2581 
2582 
25S3 
2584 
25  S  5 
:5Sk 

258" 


006040  032762  IGGOOO  000012  GTENQ: 

006046  001003 

006050  052762  040000  000012  GTEOT 

006056  042762  102200  000010  GTENQl 

006064  000167  176750 


006070 
006076 
OOblOO 
006104 


BIT  «fiPF,RSW(R2) 
BNE  GTENQl 


; IF  PRF  SET,  DON'T  GET  EXCITED  OBOUT  ENQ 


BIS  «PEND'RSU(R2) 

BIC  «mP!BCCfl!ITBfi,LSW(R2) 

JMP  flRFEND 


SET  'OBNORnOL  END 'FLAG 
CLEAR  PROCESS  FLPGS 


;PROCESS  SYN  WITHIN  P  RECORD 


032762 
001715 
004767 
0007U 


000400  COOOIO  GTSYN: 
176534 


BIT  «SRTfl,LSW(Rz) 

BEQ  GTGET 

JSR  PCSSRTH 

BR  GTGET 


;  IS  SlPWE  RCVE  T.riER  ACTIVE 
; IGNORE  SYN  AND  EXIT 
;STAPT  NEU  TIMER,  CLEARS  ANY 
.EXIT 


PREVIOUS  TIMERS 


BiSYNc    nocRO  nnoi*    oe-DEC-??  os-.  i8    prge  ^h 


0  6 


2S39 

2590 

2591 

2592 

2593 

259^ 

2595 

2596 

259? 

2598 

2599 

2600 

2601 

2602 

2603 

260M 

2605 

260b 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

26m 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

262^ 

2625 

2626 

262S 

2629 

2630 

2631 

2632 

2633 

263^ 

2635 

2636 

2637 

2638 

2639 

26^C 

2641 

26^2 

2643 

26H': 

26U5 


006106 
006112 
006im 
006120 
006122 
006130 
0061 3^ 

006136 

no6mH 

006m6 
00615*4 


006156 
006160 
006164 
006166 


006172 

006200 
006204 


006210 
006216 


006220 
006226 
006230 
006236 

006244 
00624b 


105362 

oomii 

12620H 
001403 
052762 
000362 
000676 

032762 
001004 
042762 
000436 


010446 
004767 
012604 
005062 


000127 

000122 

000004  000012 
000122 

002000  000010 
100200  000010 


BCCHK: 


171740 
000122 


052737  000020   170700 


006256 
006264 
006270 
006274 


006300 
006300 

0063C2 


016201 
000167 


032762 
001415 


052762 
004767 
004767 
000167 


005000 
016704 


0001 32 
175"'b6 


00G020  GCOQOb 


032762 
001413 
042762 
052762 

005000 

004767  000532' 


000004  000006 

000024   000006 
000200  000014 


006252  000167   176562 


0C0004 
000010 
000230' 
1^6560 


000006 


1714": 


GTBC2: 
GTBCl: 


DECB  BCL(R2) 

9EQ  GTBCl 

CMPB  CBC(R2),CBBX 

BEQ  GTBC2 

BIS  «DCH.RSU(R2) 

SWPP  CBC(R2) 

BR  GTGET 


;  INCREMENT  "^HE  I  flTCH 
; IF  ZERO.  GO  HOUSEKEEP 

;IF  NOT,  CHECK  CURRENT  BCC  CHAR 
;0K 

.UUEG.N'T  riqTCH  -  SF  P  Tfl  CHECK  FLAG 
;SET  FOR  NEXT  PASS 


BIT  «ITBfi,LSU(R2) 
BNE  GTITi 

BIC     »mP!BCCR,LSW(R2) 
6R      INIENl 


;  ITB  flCTiaE? 
;YES 

;nUSJ  HOVE  BEEN  fl  PRO  -IGNORE  IT 
;flND  GO  mKE  UIB  ENTRY 


GTITI 


nOV  CBBX, -(SP) 

JSP  PCC.  BRCD 

MOV  (SP)+-CBBX 

CLP  CBC(R2) 

.  IF  DF  LSIll 

CLP     CPCfiCC 

.  IFF 

BIS  »20,a»K.GST«T 

.  ENDC 

MOV  CCTfP2)-Rl 

JMP  GET2 


INIENQ:  BIT  »nSS,LCU(R2) 
BEQ  INIENl 

;ENQ  CONTENTION 

ENQPGN:  BIT  «nCF,LCUfR2) 

BEQ  ENQflGl 

BIC  «MCF!MSS,LCUfP2) 

BIS  ;CHXri,TSW(R2,' 

.IF  NDF  RSTS 

CLP     PO 

JSP  PCTDENT 

.  IFF 

JSP  PCTOENTO 

.  ENDC 
INIENl:  JMP     RRFEND 


;SRV:  CHRP  FOR  LRTER 
.UhlLE  WE  MRKE  UIB  ENTRY 
,NOU  PROCESS  THE  CHRR 

; CLEAR  OUT  OLD  BCC  FROM  LINE  TRBLE 

;CLERR  THE  BCC  RCCUMULRTOP 

.CLEAR  THE  KGll  BCC  REGISTER 

;PESTOPE  CCT  POINTER 


WHICH  MODE  AP  WE  IN"? 
MASTER  -  GO  TRY  AGAIN 


IS  THIS  THE  SECOND  ENQ? 

NO  -  GO  SET  TIMER  FOP  RETRY 

YES  -  GO  INTO  SLAVE  MODE 

AND  NOTIFY  THE  USER  TO  DO  SAME 

SET  UP  LINE  NO 

INDICATE  TRANSMIT  OVERRIDE 

INDICATE  TRANSMIT  OVERRIDE 


:  TRY  AGAIN  WITH  ENQ  XMIT  AFTER  1  OP  3  SECONDS 
ENQAGl:  BIS  8MCF,LCW(R2)        ;SET  CONTENTION  FLAG 

JSR  PCENQSET  ;  GO  SET  THE  TIMER 

ENQ2;    JSP  PC-ARRCVl  ;  GO  RESET  LINE 

JMP  ARFl  ;AND  FLUSH  TRAILING  CHAPS 


;  ENQ  r 
ENQSET: 


MER  SETUP  ROUTINE  -  USED  HERE  AND  BY  PUTD  ROUTINE 

CLP     PO  ; RECREATE  LINE  NUMBER 

.  IF  DF   UAPTIM 

MOV     C0NTIM.P4       ;SET  TIMEOUT  VALUE  FOP  CONTENT i ON 

.  IFF 

MOV  «C0NTm,R4  ;  SET  CONTENTION  TIMEOUT 

.  ENDC 


L 
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£  6 


2bH6 

006.106 

012705 

006322' 

2647 

006312 

0GH767 

OOOOOOG 

2bH3 

006316 

000167 

OOOOOOG 

2feH9 

26B0 

2651 

006322 

032762 

002000 

26B2 

006730 

001410 

2653 

006332 

004767 

1^7742 

2654 

006336 

012700 

000000 

2655 

0063H2 

016201 

000130 

2656 

006346 

004767 

OOOOOOG 

2c57 

006352 

000207 

MOV  »ENQTin.R5 
JSR     PCCTOEL 
jnp    CTiriE 


.ROUTINE  POINTER 

;DELETE  PNY  EXISTING  BID  TIMERS 


000014  ENQTIM 


COME  HERE  AFTER  CONTENTION  TIMEOUT  PERIOD 

;BID  COMPLETED  PLREfiDY'' 
;YES  '  IGNORE  THE  TIMER 
;SET  TIMER  AGAIN 
;AND  SEND  THE  ENQ  flGPIIN 
;XMIT  CHAIN  POINTER 
;XMIT  STARTUP 
EXIT  TO  TIMER 


ENQY: 


BIT 
BEQ 
JSR 
MOV 
MOV 
JSR 
PIS 


»BSNT. TSW(R2) 

ENQY 

PCENQSET 

«C.BTSC,RO 

TCP(R2).R1 


PC 
PC 


C.  SRRP 
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2659 
2bbC 


2tobl 
2662 
2663 
266H 
266B 
2666 
2667 
266S 
2b69 
2b70 
26:^1 

2b^3 

26^4 

2*^7'^ 

2b7b 
"111  -•-> 
<ib>  < 

267S 

2679 

2680 

2681 

2682 

2683 

268^ 

2685 

2686 

2687 

2688 

26S9 

2690 


GTBFl; 


F  6 


.  IF  OF  RSTS 

ROUTINE  TO  CflLCULflTE  THE  BUFFER  PDDRESS  FOR  RSTS 

WHEN  THE  BUFFERS  CAN  BE  nflPPED  OUTSIDE  OF  THE 

nONITOR  PREP 

THE  ROUTINE  IS  ENTERED  WITH  THE  PDD  IN  R5 

PND  RETURNS  WITH  THE  MPPPED  PDD  IN  R5 

.  GLOBL  SPVR6. SPUPDD 


GTBFPj: 


00000 1 


MOV 
MOV 
JSR 
MOV 

ncv 

RTS 


MOV 

MOV 

MOV 

CflLLX 

MOV 

PDD 

MOV 
MOV 
MOV 
RTS 

.  ENDC 
.  ENDC 
.  ENDC 
.  ENDC 
.  END 


R5.-(SP) 

PRP(R2).R6 

PCGTBFPD 

R5.SPVPDD 

(SP)*,R5 

PC 


R4,-(SP) 

R3.-(SP) 

R5,RH 

MPPBUF 

P3,R5 

»BiJFHDR.P5 

KISRR6.SPIVR6 
(S°)+,R3 

PC 


SPVE  OFF  R5 

;PUT  PDDRESS  IN  R5 
;D0  MPPPING 
;SPVE  OFF  ADDRESS 
.RESTORE  R5 


;SflVE  OFF  REGISTERS 

;GET  PDDRESS 

;GET  MPPPED  PDDRESS 

;STEP  OVER  BUFFER  HERDER 
;WHERE  EXPCT  SIZE  IS  KEPT 
:SPVE  OFF  PPR  6  JUST  IN  CASE 
;PEST0RE  REGISTERS 

; RETURN 
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SVnBOL  TRBLE 

RRF   =  000004 

CLC   = 

000241 

C.  80 

000376R 

003 

GTETB 

005736R 

002 

MSRTl 

004464R 

002 

OBC   =  000C2H 

CLN   = 

G002B0 

C  81 

0004G4R 

003 

GTETX 

006002R 

002 

nss  = 

000020 

RCKOUT  000150R 

003  CLNV  = 

000252 

C.  85 

000530R 

003 

GTETO 

005744R 

002 

nrouT  = 

000100 

flCTTflB  003fc52R 

002  CLU   = 

000242 

C.  SRRP  = 

nun  G 

GTETl 

005752R 

002 

NRK    : 

000026 

REF   =  020000 

CL2   = 

000244 

C.  SFY  = 

tttttt   G 

GTFRST 

0G5170R 

002 

NRKCNT= 

000010 

REND  =  OHOOOO 

CNRK  = 

000024 

C.  STRTr 

177776 

GTFRTl 

0G5206R 

002 

NRKF  = 

100000 

REXB    003H52R 

002  CONTIM 

OOOOOOR 

002 

CI    = 

000000 

GT6ET 

0G5732R 

002 

NRT   = 

001000 

RFX   =  002000 

COVR  = 

000040 

C2 

000007 

GTITB 

0060 12R 

002 

NEF   = 

004000 

RKT   =  000136 

CPRD  = 

000002 

DCH   = 

000004 

GTITBI 

0060 12R 

002 

NMP   = 

000044 

RMP   =  000042 

CPD26  = 

000001 

OLE   = 

000020 

GTITI 

0061 56R 

002 

NOP   = 

000240 

RNF    =  040000 

CRBINT= 

000000 

DLEF  = 

000200 

GTNONE 

004736R 

002 

NUB   = 

000002 

RPR   =  000022 

CRBSRV 

004022R 

002 

DSC 

004000 

GTNOPE 

0051 20R 

002 

OOF   = 

000100 

RPBSET  000130R 

003  CRD   = 

000001 

EBCRCK 

OOOOIOR 

003 

GTNOl 

Q04744R 

002 

OS 

000000 

RPBSP   000054R 

003  CRVI   = 

000000 

EBCCCT 

OOOOOOR 

003 

GTN02 

004760R 

002 

ovxri  = 

000200 

PPBl    OOOUfcR 

003  CSR   = 

000002 

EBCNRK 

000024R 

003 

GTN03 

00501 2R 

002 

PRO   = 

000177 

RRF   =  100000 

CSRT 

000262R 

003 

EBCRTR 

004006R 

002 

GTNSRR 

004370R 

002 

PRRlTYs 

010000 

RPFEND  005040R 

002  CSOH  = 

000004 

EBCSYN 

000016R 

003 

GTSRT 

003712R 

002 

PCH   = 

000010 

RPFl    OOSOfeOR 

002  CSSRT 

004422R 

002 

EBCXTR 

001752P 

002 

GTSTX 

005710R 

002 

PPD   = 

000046 

RRRCV   000212R 

003  CSTX  = 

000003 

EBCXTl 

001770R 

002 

GTSYN 

006070R 

002 

PTBSP 

000746R 

002 

RRRCVl  000230R 

003  CSYN  = 

000016 

ECH   = 

000121 

GTUOF 

004374R 

002 

PTCON 

002326R 

002 

RRSEXT  0001 72R 

003  CTDEL  = 

tttttt   G 

EKT   = 

000140 

HRLT  = 

000000 

PTCl 

002046R 

002 

flSCCCT=  000000 

CTiriE  = 

ttntt  G 

ENQ   = 

000005 

INI   = 

000400 

PTC2 

002056R 

002 

RSCI   =  000000 

CWRK  = 

000001 

ENQRGN 

006220R 

0G2 

INIENQ 

006210R 

002 

PTC3 

002346R 

002 

fiSSGNl  003010R 

002  C.  BRBl 

002762R 

002 

ENQRGl 

006256R 

0D2 

INIENl 

006252R 

002 

PTC4 

002102R 

002 

RSSGN2  0G303bR 

002  C.  BRRB 

002704PG 

002 

ENQCNT= 

000010 

'NTBCC 

005340R 

002 

PTDRB 

001730R 

002 

flSSGN3  OG3050R 

002  C.  BflPX 

002756R 

002 

ENQSET 

006300R 

002 

INTCl 

004676R 

002 

PTDLE 

000756R 

002 

fiSX   =  000016 

C.  BRRl 

002714P 

002 

ENQTIM 

006322R 

002 

INTC2 

004716R 

002 

PTDLl 

001006R 

002 

RTR   =  000040 

C.  BCRl 

000352R 

002 

ENQY 

006352R 

002 

INTTIC 

004656R 

002 

PTDZ 

001354R 

002 

RTT   =  000036 

C.  BCR2 

000366R 

002 

ENQ2 

006270R 

0C2 

INTVTM 

004610R 

002 

PTENQ 

001176R 

002 

see   =  000126 

C.  BCR3 

000262R 

002 

EOT   = 

000004 

INTVTl 

G04632P 

002 

PTENQl 

001226R 

002 

BCCfl  =  000200 

C.  BEOF  = 

002000 

ESNT   = 

001000 

IPL 

000002 

PTEOT 

001244R 

002 

BCCHK   006106R 

002  C. BGBC= 

000003 

ETR 

003052RG 

002 

IPC 

000062 

PTEXIT 

002454R 

002 

BCL   =  000127 

C.  BGMS= 

000105 

FTB   = 

000027 

IRS   = 

000036 

PTEXN 

002450R 

002 

BEND  =  020000 

C.  BGRD= 

000303 

£TX    = 

000003 

ISC 

000072 

PTEXT 

002424R 

002 

BENQ    004532R 

002  C.  BGTD= 

000304 

ETXF   = 

000400 

ITB   = 

000037 

PTEXl 

002406R 

002 

BSI2E  =  000620 

c.  Bins 

002004R 

002 

FBF 

000400 

ITBR  = 

002000 

PTEX3 

002406R 

002 

BSNT  =  002000 

C.  BINT 

000020RG 

002 

FRSRT 

003736R 

002 

ITS   = 

004000 

PTITB 

001012R 

002 

BTCE  =  000027 

C.  BLTL  = 

000776  G 

GENQIO 

005154R 

002 

KGBCCR= 

170702 

PTITl 

001064R 

002 

BTCI   =  000030 

C.  BMDC  = 

000002 

GETCHR 

004076R 

002 

KGC 

G00034 

PTIT2 

001162R 

002 

CRK   =  000134 

c.  Bnnc= 

000001 

GETCHR 

0040b4R 

002 

KGDRTP= 

170704 

PTIT3 

001040R 

002 

CRKO  =  000052 

C.  BflSE 

000370Ri5 

002 

GETCHl 

005410R 

002 

KGSTRT: 

170700 

PTIT4 

001124R 

002 

CRKl   =  000053 

C.  BNXT 

00031 2R 

002 

GETl 

0C4106R 

002 

LRSBYT= 

000031 

PTIT4R 

001120R 

002 

CR.  «SC=  000000 

C.  BODE 

000316RG 

003 

GETIR 

004126R 

002 

LCW 

00000b 

PTMODE 

002264R 

002 

CR.  EBC=  000001 

C.  BODl 

000356R 

003 

GETIB 

004150R 

002 

LDGRPH= 

000007 

PTnORS 

0024b6R 

002 

CR.  NCR=  000001 

C.  BPD 

000372RG 

002 

GET2 

004176R 

002 

LGC 

000152 

PTMl 

002602R 

002 

CR.  SBT=  000000 

C.  BPDR 

000404R 

002 

GET3 

004324R 

002 

LSW 

000010 

PTn2 

002574R 

002 

CBRX  =-/i000005 

C.  BPDX 

0004 14R 

002 

GET4 

004246R 

002 

LTL 

000776 

PTNEXT 

000616R 

002 

CBBX  =*/.000004 

C.  BPTC 

002014RG 

002 

GET5 

004216R 

002 

MBX 

000034 

PTNORn 

000534R 

002 

CBC   =  000122 

C.  BRCD 

000124R 

002 

GET9 

004306R 

002 

MCF 

000004 

PTNO 

000600R 

032 

CCC   =  000257 

C.  BRCY 

000220R 

002 

GNXl 

004362R 

002 

MDC 

000050 

PTNl 

000620R 

002 

CCT   =  000132 

C.  BRC2 

000206R 

002 

GOUOF 

004412R 

002 

MEND  = 

010000 

PTRl 

000630R 

002 

CDLE  =  000010 

C.  BRMC 

OOOOIOR 

002 

GTBCC 

004232R 

002 

niP 

100000 

PTR2 

000660R 

002 

CENQ  =  000022 

C.  BTSC  = 

000000 

GTBCl 

0061 36R 

002 

MRC 

000115 

PTR3 

000634R 

002 

CEOT  r  000026 

C.  BUD2 

000424R 

003 

GTBC2 

006130P 

002 

nSRT 

000002P 

002 

PTR4 

000b76R 

002 

CETB  =  000005 

C.  BUD3 

000464R 

003 

GTENQ 

006040R 

002 

nSRTO 

00443bP 

002 

PTSRT 

003762R 

002 

CETX  =  000006 

C.  BUD4 

00051 2R 

003 

GTENQl 

0Cb056R 

002 

nSRTOR 

004514? 

002 

PTSL'/E 

002430R 

002 

CiTB  =  000007 

C.BUFF  = 

000007 

GTEOT 

00b050P 

002 

nsPTOx 

n04530P 

002 

PT3TX 

OOllbbR 

002 

1 
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PTSYN 

001272R 

002 

RCVT  = 

100000 

SETENQ 

00S662R 

002 

STX   s 

0G00G2 

TRYNRK 

0001 74R 

PTSl 

002^^0R 

002 

RCVTMT= 

tttttt   G 

SETEOF 

G05554R 

002 

STXBCC 

005726R 

002 

TSR 

. 

000066 

PTTEPM 

002b20R 

002 

RCX   = 

000020 

SETEOT 

00S424k 

0G2 

STXF  = 

000020 

TSW 

. 

0000 14 

PTTEXT 

002&bOR 

002 

RDBF   = 

001000 

SETET8 

002176R 

0G2 

SYN   = 

000G26 

TTn 

; 

0001 10 

PTTl 

002feH2R 

002 

REPEAT 

006m6R 

002 

SETJ 

(?']5706R 

0G2 

SYP   = 

00GG32 

TT2R 

. 

000144 

PUTDO 

001310R 

002 

RETNX  = 

V.000007 

SETniP 

JG6274R 

0G2 

TBC   = 

000070 

TT2C 

5 

000146 

PUTDl 

000512P 

002 

RIB   = 

000137 

SETni 

005404R 

002 

TBS   = 

000112 

TT3R 

: 

000150 

PUTDlfl 

000^22R 

002 

RJT   = 

000040 

SEr.HK 

005446R 

002 

TCIJ 

0021 12R 

002 

TXC 

5 

000064 

PUTDIO 

001720R 

002 

RKT 

oooim 

SETNI 

006470R 

002 

TCJl 

002506R 

002 

TIR 

s 

000074 

PUTDll 

000H20R 

002 

ROVR   = 

000100 

SETRVI 

005544R 

002 

TCJ2 

002532R 

002 

TIC 

2 

000076 

PUTD22 

00m62R 

002 

RSW   = 

000012 

SETSYN 

00213bR 

002 

TCJ3 

002556R 

002 

T2R 

5 

000100 

PUTD23 

OOIHJOR 

002 

RSX 

000001 

SETURK 

00S160R 

002 

TCP   = 

000130 

T2C 

: 

000102 

PUTD2H 

00m52R 

002 

RVI    = 

040000 

SETURG 

005622R 

002 

TCT   = 

000120 

T3fl 

2 

000104 

PUTD3 

001370R 

002 

R6 

•/.00000b 

SEV   = 

000262 

TCU   - 

000142 

T3C 

5 

000106 

FUTDH 

OOlBlbR 

002 

R7 

•/.000007 

SEZ   = 

0002b4 

TDENT 

000B32R 

003 

URPTm= 

000000 

PUTD5 

OO15H0R 

002 

SBTCCTr 

000000 

SIS   = 

000010 

THRLT  = 

000240 

UBL 

z 

000026 

PLITD6P 

u0lS^^R 

002 

sec 

000277 

SOH 

000001 

THC   = 

000116 

UOVR 

z 

000020 

PUTDb 

001602R 

002 

SEC   = 

000261 

SRC 

000153 

TIB   = 

000154 

XRC 

z 

010000 

PUTD7 

001b3bR 

002 

SEN   = 

000270 

SRTR  = 

000400 

TICINT 

000006R 

002 

XMTTriT= 

tttttt 

PUTD8 

0016HHR 

002 

SENV  = 

000272 

SRTOF  = 

000200 

TRRNER 

005476R 

002 

XPT 

z 

020000 

PUTD9 

001710P 

002 

SETRCK 

005524R 

002 

SSRT 

000004R 

002 

TRRNl 

005504R 

002 

XRC 

• 

000001 

PBR 

000001 

SETRCl 

005532R 

002 

SSRTM 

004640R 

002 

TRRN2 

005514P 

002 

XXP 

- 

010000 

PBC 

0Q012H 

SETRRF 

00526:P 

002 

SSPTO 

004720R 

002 

TRC 

000114 

X, 

^ 

000002 

PBU 

OOOOOH 

SETDLE 

0054 IHR 

002 

STRRFl 

00S640R 

002 

TPNREC= 

001000 

XI 

00177bR 

RCUSIB= 

000000 

.  RBS. 

000000 
000000 

000 
001 

XXX 

0063BH 

002 

ISR 

000624 

003 

ERRORS 

DETECTED: 

0 

003 


002 
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SYMBOL  VRLUE 

RRF  =  OOOOOH 

ABC  =  G0002H 

fiCI'OUT  GOOISO  R 

PCTTRB  003652  R 

REF  =  G200GG 
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REND 

=  O^0OGG 

REXB 

003H52 

RFa 

=  0020GG 

RKT 

=  000136 

RMP 

=  G000H2 

RNF 

=  O^00GG 

QPR 

=  000022 

PPBSET 

000130 

RPBSP 

OOOOBH 

HPBl 

00011b 

RPF 

=  1 00000 

RPFEND 

005040 

RRFl 

005060 

RRRCV 

000212 

RRRCVl 

000230 

RRSEXT 

000172 

RSCCCT 

=  000000 

flSCI 

=  000000 

RSSGNl 

003010 

flSSGN2 

003036 

flSSGN3 

003050 

flSX 

=  000016 

RTR 

=  000040 

RTT 

=  000036 

BCC 

=  000126 

BCCR 

=  0002GG 

BCCHK 

006106 

BCL 

=  000127 

BEND 

=  020000 

BENQ 

004532 

BSIZE 

=  000620 

BSNT 

=  002000 

BTCE 

^  000027 

BTCi 

=  000030 

CRK 

=  000134 

CRKO 
CRKl 
CR.  RSC 
CR.  EBC 
CR.  NCR 
CR.  SBT 
CBRX 

CBBX 


=  000052 
=  000053 
=  000000 
=  000001 
=  000001 
=  000000 
=  •.000005 

=  :<000004 


R 
R 
R 

P 
R 
P 
R 
R 


R 
R 
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41-2348 

17-S21 

19-1021 

19-1013 

21-1132 

21-112S 

21-1133 


11-601 


37-2101 

37-2033 
3S-2140 


PRGE  1 
CREF 

42-2510 
«l5-720 
41-2349 
42-2367 
18-915 


18-859 
«21-1142 

18-917 
*24-1331 


43-257S 
41-2361 
42-2455 


24-1392 
20-1070 


*21-1132 
42-2393 


18-SSb 
25-1449 


20-1059 


«24  1335 
18-917 


18-911 
24-1356 

25-1425 
37-2114 


44-2630 
42-2466 
42-2465 


-  C  _  1  -'  C  7 


43-2541 
43-2577 


41-22S0   *43-254l 


42-247S 


*21-1133   *21-113S 
21-1136    25-1434 


;7-14S4 


37-2112    42-2378 

37-2034   *37-2034 
42-2365    42-2367 


37-2105 
25-1427 


18-922 
*24-1360 

26-1474 

*3:^-213G 


44-2636 


*24-1325    24-1326   *24-132S 


44-2599 
1:44-2589 

44-2b51 

*25-1434 

42-24S5 

37-2030 

42-2380 

37-2074 

42-23o? 


*37-2l31 
25-1438 


19-956 
*25-1435 

37-2107 


26-1474 


19-999 
«42-2484 


39-2171 


42-2380   *42-2471 


42-23S2 

^37-2076 
44-2591 


42-2384 

37-2092 

44-2603 


42-2430 

*37-2112 
*44-2605 
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CBC 

=  000122 

116-418 
44-2591 

6-419 
«44-2594 

17-840 
«44-2606 

*18-882 

«19- 

-1018 

Ct'C 

=  0002B7 

«2-10 

CCT 

=  000132 

»6-423 
40-2203 

6-424 
41-2323 

16-796 
44-2612 

21-1127 

*21- 

•1129 

CDLE 

=  000010 

«9-625 

9-526 

18-861 

18-876 

19- 

•973 

CENQ 

=  000022 

»9-527 

9-528 

40-2222 

CEOT 

=  000026 

«9-529 

9-530 

CETB 

=  000005 

»9-522 

9-523 

16-796 

17-842 

21- 

■1139 

CETX 

=  000006 

l?9-523 

9-524 

16-799 

L'TB 

=  000007 

«9-524 

9-525 

18-SS9 

CLC 

=  0002m 

82-6 

CLN 

=  0002BO 

82-9 

3-278 

CLNlf 

=  000252 

83-27S 

24-1343 

CLV 

=  C00242 

82-7 

3-278 

CLZ 

=  0002^^ 

82-8 

CNRK 

=  00002H 

89-528 

9-529 

CONTin 

GOOOOO 

P 

84-325 

*15-674 

44-2642 

COUR 

=  000040 

88-4S7 

37-2073 

CPflD 

=  000002 

89-519 

9-520 

19-1027 

19-1048 

24- 

•1362 

CPD2fe 

=  000001 

83-241 

CRBINT 

=  000000 

81-2 

4-368 

37-2062 

37-2066 

^•■\- 

■2290 

CRBSRV 

004022 

P 

24-1396 

837-2042 

41-2296 

CRD 

=  000001 

8S--4S2 

CRVI 

=  000000 

89-517 

9-51S 

42-2384 

GSR 

=  000002 

87-465 

24-1391 

24-1393 

41-2291 

CSRT 

000262 

P 

22-1194 

824-1389 

CSOH 

=  000004 

89-521 

9-522 

CSSRT 

004422 

R 

15-6S3 

83S-2156 

41-2322 

CSTX 

=  000003 

89-520 

9-521 

19-975 

CSYN 

=  000016 

89-526 

9-527 

19-965 

21-1131 

CTDEL 

=  tttttt 

G 

3-246 

44-2647 

CTIME 

=  tttttt 

G 

3-246 

24-1397 

40-2239 

41-::97 

44- 

2648 

CWRK 

=   000001 

89-518 

9-519 

C.  BflBl 

002762 

R 

24-1311 

824-1323 

C.  BRPB 

002704 

RG 

3-248 

824-1294 

C.  BRRX 

002756 

R 

24-1299 

824-1319 

C.  BRPl 

002714 

R 

824-1298 

C.  BCPl 

000352 

R 

15-738 

815-743 

C  BCP2 

000366 

R 

15-744 

815-746 

C.  BCP3 

000262 

P 

15-723 

815-728 

C.  BEOF 

=  002000 

83-493 

42-2483 

C.  BGBC 

=  000003 

813-613 

13-615 

13-blD 

13-617 

C.  BGMS 

=  000105 

813-617 

C.  BGRD 

=  000303 

813-615 

15-734 

C.  BGTD 

=  000304 

813-616 

26-1470 

c.  Bins 

002004 

R 

*15-724 

15-726 

821-1097 

*21-1131 

*21- 

1145 

*2U-1254 

24-1255 

*24-13S3 

*24-13S6 

24- 

ISS:' 

C.  BINT 

000020 

RG 

3-248 

815-657 

C.  BLTL 

=  000776 

G 

3-249 

86-441 

C.  BriDC 

=  000002 

813-625 

15-725 

21-1162 

24-13S4 

C.  BMMC 

^  000001 

813-624 

21-1147 

24-1253 

37-2050   141-2285   «42-240t   «43-2555 

24-1349    24-1385    25-1433    37-2051 
19-1003    42-2420    43-2523 


41-2327    41-2331 


21-llBn    21-1154   *21-1160    21-1165 
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C   BMSE 

000370  RG 

3-25H 

1116-754 

C   BNXT 

000312  R 

15-730 

1115-733 

C.  BODE 

000316  RG 

3-254 

825-1412 

C.  BODl 

000356  R 

25-im3 

825-1419 

C.  BPD 

000372  RG 

3-248 

816-765 

C.  BPDR 

OOOHOH  R 

S16-770 

16-807 

17-832 

C.  BPDX 

OOOmH  R 

»16-772 

16-777 

C.  BPTC 

0020m  RG 

3-2H8 

821-1106 

C   BRCD 

0001 2H  R 

»15-698 

24-1260 

41-2319 

44-2604 

C   BRCY 

000220  R 

16-7m 

815-716 

C.  BRCZ 

000206  R 

15-709 

815-713 

r.  BRMC 

000010  R 

814-632 

*15-701 

*15-703 

«15-704 

«15-728 

«15-731 

*15-733 

*l5-734 

15-735 

C.  BTSC 

=   000000 

»13-623 

22-1190 

24-1365 

44-2654 

C.  BUD2 

ooo^2^  R 

25-1424 

25-1426 

825-1430 

C.  BIJD3 

C00H64   R 

25-1432 

825-1438 

<:.  BUDH 

O00S12  R 

25-1439 

25-1441 

825-1449 

C.  BUFF 

=    000007 

«4-335 

4-336 

4-336 

4-336 

4-336 

18-884 

C.  BO 

00037b  R 

»25-1423 

25-1428 

C.  Bl 

OOOHOH   R 

25-1420 

25-1422 

825-1425 

C.  B5 

000530  P 

25-1450 

825-1453 

C.  SRRP 

=    tititi     G 

3-247 

15-727 

21-1152 

21-1167 

22-1192 

24-1256 

24-1366 

24-1388 

44-2656 

C.  SPY 

=    tiUit     G 

3-247 

15-736 

26-1472 

C.  STRT 

=    17777b 

«3-257 

24-1307 

24-1308 

24-1316 

24-1340 

CI 

=   OOQOOO 

«?35-lS04 

35-1804 

35-1804 

835-1805 

35-1805 

35-1805 

835-1806 

35-1806 

35-1806 

«35-1807 

35-1807 

35-1807 

835-180S 

35-1808 

35-1808 

835-1809 

35-1809 

35-1809 

S35-1S10 

35-1810 

35-1810 

835-1811 

35-1811 

35-1811 

835-1814 

35-1814 

35-1814 

835-1S15 

35-1815 

35-1815 

835-1816 

35-1816 

35-1816 

835-1817 

35-1817 

35-1817 

»35-lSlS 

35-1818 

35-1818 

835-1819 

35-1819 

35-1819 

835-1820 

35-1820 

35-1820 

S35-1821 

35-1821 

35-1821 

835-1824 

35-1824 

35-1824 

835-1825 

35-1825 

35-1825 

«35-182b 

35-1826 

35-1826 

835-1827 

35-1827 

35-1827 

835-1829 

35-1829 

36-1829 

;?  35-1830 

35-1830 

35-1830 

835-1831 

35-1831 

35-1831 

835-1832 

35-1832 

35-1832 

8  35-1835 

35-1835 

35-1335 

835-1836 

35-1836 

35-1836 

835-1837 

35-1837 

35-1837 

835-1838 

35-1838 

35-1838 

835-1839 

35-1839 

35-1839 

835-1840 

35-18t0 

35-1840 

835-1841 

35-1841 

35-1841 

835-1842 

35-1842 

35-1842 

835-1845 

35-1845 

35-1845 

835-1846 

35-1846 

35-1846 

835-1847 

35-1847 

35-1847 

835-1848 

35-1848 

35-1848 

835-1849 

35-1849 

35-1849 

835-1850 

35-1850 

35-1850 

835-1851 

35-1851 

35-1851 

835-1852 

35-1852 

35-1852 

835-1855 

35-1855 

35-1855 

835-1856 

35-1856 

35-1856 

835-1857 

35-1857 

35-1857 

835-1858 

35-1858 

35-1858 

835-1859 

35-1859 

36-1859 

835-1860 

35-1860 

35-1860 

835-1861 

35-1861 

35-1861 

835-1862 

35-1862 

35-1862 

835-1865 

35-1865 

35-1865 

835-1866 

35-1865 

835-1866 

35-1866 

35-1866 

835-1866 

35-1866 

835-1867 

35-1867 

35-1867 

835-1867 

35-1867 

835-1868 

35-1868 

35-1868 

835-1868 

35-1868 

835-1869 

35-1869 

35-1869 

835-1869 

35-1869 

835-1870 

35-1870 

35-187C 

835-1870 

35-1870 

835-1871 

35-1871 

35-1871 

835-1871 

35-1871 

835-1872 

35-1872 

35-1872 

835-1872 

35-1872 

835-1875 

35-1875 

35-1875 

835-1875 

35-1875 

835-1876 

35-1876 

35-1876 

835-1876 

35-1876 

835-1877 

35-1877 

35-1877 

835-1878 

35-1S7S 

35-1878 

835-1879 

35-1879 

35-1879 

835-1880 

35-1880 

35-18£0 

835-1881 

35-1881 

35-1881 

835-1882 

35-1882 

35-1882 

835-1887 

35-1887 

35-1887 

835-1'iC^ 

35-1888 

35-1888 

835-1888 

35-1888 

835-1889 

35-1889 

35-1889 

835-1889 

35-1889 

835-1890 

35-1890 

35-1890 

835-1890 

35-1890 

835-1891 

35-1891 

35-1891 

835-1891 

35-1891 

835-1892 

35-1892 

35-1892 

835-1892 

35-1892 

835-1893 

35-1893 

35-1893 

835-1S93 

35- 1893 

835-1894 

35-1894 

35-1894 

835-1894 

35-1894 

835-1896 

35-1896 

35-lS9b 

835-1896 

35-lS9b 

835-1S97 

35-1S97 

35-1S97 

835-1897 

35-1897 

835-1898 
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=  ooooo: 


35- 

l»35- 
35- 

»35- 
35- 
35- 

«35- 
35- 

»35- 
35- 

»35- 
35- 
35- 
35- 
35- 
35- 
35- 
35- 
35- 

835- 
35- 
35- 

«35- 
35- 

«35- 

S35- 

«35- 

n  j)b- 

35- 

»35- 

35- 

«35- 

35- 

35- 

835- 

25- 

35- 

35- 

35- 

»35- 

35- 

35- 

35- 

3^- 

835- 

35- 

835- 

835- 

835- 

835- 

«  Jb 

2^- 


898 

900 

901 

903 

907 

909 

911 

912 

916 

918 

920 

923 

931 

93H 

939 

942 

945 

950 

952 

954 

956 

960 

962 

964 

966 

S04 

S07 

Sfj9 

Sll 

816 

818 

820 

821 

826 

830 

832 

837 

839 

842 

846 

84S 

850 

852 

856 

858 

859 

862 

867 

870 

875 

S77 


35- 

35- 
«35- 

35- 
«36- 

35- 

35- 
835- 

35- 
835- 

35- 

35- 

35- 

35- 

35- 

35- 

35- 

35- 
8  35- 

35- 
835- 

35- 

35- 

35- 

35- 

35- 

35- 

35- 
«  J>b- 

35- 

35- 

35- 
835- 
835- 

35- 

35- 

35- 
835- 
835- 

35- 
835- 

35- 
835- 

35- 

35- 
835- 

35- 

35- 

35- 

35- 

35- 
835-1S79 


898 

900 
902 
903 
907 
909 
911 
913 
916 
918 
920 
923 
931 
934 
939 
942 
945 
950 
953 
954 
956 
960 
962 
964 
966 
804 
807 
809 
Sll 
816 
818 
820 
824 
827 
830 
832 
837 
840 
842 
846 
848 
850 
852 
856 
858 
860 
862 
867 
870 
375 
877 


835-1898 

35-1900 

35-1902 

835-1906 

35-1907 

835-1909 

35-1911 

35-1913 

835-1917 

35-1918 

835-1921 

835-1929 

835-1932 

835-1935 

835-1940 

835-1943 

835-1946 

835-1951 

35-1953 

835-1955 

35-1956 

S35-1960 

35-1962 

835-1964 

35-1966 

35-1804 

35-1807 

835-1810 

35-1811 

35-1816 

835-1818 

35-1820 

35-1824 

35-1827 

35-1830 

835-1835 

835-1837 

35-1840 

35-1842 

835-1847 

35-1848 

835-1850 

35-1852 

835-1856 

35-1858 

35-1860 

35-1862 

35-1867 

35-1870 

35-1875 

835-1878 

35-1S79 


PAGE  4 
CREF 

35-1898 

835-1900 
35-1902 
35-1906 

835-1908 
35-1909 

835-1911 
35-1913 
35-1917 

835-1919 
35-1921 
35-1929 
35-1932 
35-1935 
35-1940 
35-1943 
35-1946 
35-1951 
35-1953 
35-1955 

835-1959 
35-1960 

835-1962 
35-1964 

835-1805 
835-1808 

35-1810 
835-1814 
835-1817 

35-1818 
835-1820 

35-1824 

35-1827 
835-1830 

35-1835 

35-1837 

35-1840 
835-1845 

35-1847 
835-1849 

35-1850 
835-1855 

35-1856 
835-1858 

35-1860 
835-1865 
835-1868 
835-1871 
835-1876 

35-1878 
835-lSSO 
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835-1899 
35  - 1 900 

835-1902 
35-1906 
35-1908 

835-1910 
35-1911 

835-1913 
35-1917 
35-1919 
35-1921 
35-1929 
35-1932 
35-1935 
35-1940 
35-1943 
35-1946 
35-1951 

8  35-1953 
35-1955 
35-1959 

835-1961 
35-1962 

835-1965 

35-1805 
35-1808 
35-1810 
3S-1814 
35-1817 

835-18r^ 
35-182C 

835-1825 

835-1829 
35-1830 
35-1835 

835-1838 

835-1841 
35-1845 
35-1847 
35-1849 

835-1851 
35-1855 

8  35-1857 
35-1858 

835-1861 
35-1865 
35-1868 
35-1871 
35-1876 
35-1878 
3B-1SS0 


35-1899 
835-1901 

35-1902 
835-1906 

35-1908 

35-1910 
835-1912 

35-1913 
835-1917 

35-1919 
835-1922 
835-1930 
835-1933 
835-1936 
835-1941 
835-1944 
835-1949 
835-1952 

35-1953 
835-1955 

35-1959 

35-1961 
835-1963 

35-1965 

35-1805 
35-1808 

835-1810 
35-1814 
35-1817 
35-1819 

835-1821 
35-1825 
35-1829 

t-35-1831 

835-1836 
35-1838 
35-1841 
35-1845 

8  35-1847 
35-1849 
35-1851 
35-1855 
35-1857 

835-1859 
35-1861 
35-1S65 
35-1868 
35-1871 
35-1876 

835-1878 
35-lSoO 


35-1899 
35-1901 

835-1903 
35-1906 

835-1908 
35-1910 
35-1912 

835-1916 
35-1917 

835-1920 
35-1922 
35-1930 
35-1933 
35-1936 
35-1941 
35-1944 
35-1949 
35-1952 

835-1954 
35-1955 

835-1959 
35-1961 
35-1963 
35-1965 

835-1806 

835-1809 

35-1810 

835-1815 

835-1817 

35-1819 

35-1821 

35-1825 

35-1829 

35-1831 

35-1836 

35-1838 

35-1841 

835-1846 

35-1847 

835-1849 

35-1851 

8  35-1855 

35-1857 

35-1859 

35-1861 

835-1866 

835-1869 

835-1872 

8  35-1877 

35-1878 

835-1880 


835-1899 
36-1901 
35-1903 

835-1907 
35-1908 

835-1910 
35-1912 
35-1916 

835-1918 
35-1920 
35-1922 
35-1930 
35-1933 
35-1936 
35-1941 
35-1944 
35-1949 
35-1952 
35-1954 

835-1956 
35-1959 

835-1961 
35-1963 

835-1965 

35-1806 
35-1809 

835-1811 
35-1815 
35-1817 

835-1819 
35-1821 

835-1826 

835-1829 
35-1831 
35-1836 

835-1839 

835-1842 
35-1846 

835-1848 
35-1849 

835-1852 
35-1855 

8  35-1857 
35-1859 

835-1861 
35-1866 
35-1869 
35-1872 
35-1877 

835-1879 
35-1S80 


35-1899 

835-1901 

35-1903 

35-1907 

835-1909 

35-1910 

835-1912 

35-1916 

35-1918 

35-1920 

835-1923 

835-1931 

835-1934 

835-1939 

835-1942 

835-1945 

835-1950 

835-1952 

35-1954 

35-1956 

835-1960 

35-1961 

835-1964 

35-1965 

35-1806 
35-1809 
35-1811 
35-1815 

835-1818 
35-1819 

835-1821 
35-1826 
35-1829 

835-1832 

835-1837 
35-1839 
35-1842 
35-1846 
35-1848 

835-1850 
35-1852 

835-1856 
35-1857 

835-1859 
35-1861 
35-1866 
35-1869 
35-1872 
35-1877 
35-1879 

835-1881 
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DCH 
OLE 
DLEF 

DSC 

EBCflCK 

EBCCCT 

EBCNRK 

EBCRTR 

EBCSYN 

EBCXTR 

EBCXTl 

ECH 

EKT 

ENO 

ENQRGN 

ENQflGl 

ENOCNT 

ENQSET 

ENQTIM 

ENUt' 

ENQ2 

EOT 

ESNT 

ETfl 

ETB 

ETX 

ETXF 


00G0G4 
GG0020 
00G2GG 

004000 
GOOOIG 
GOOOOO 
000024 
004006 
000016 
001752 
001770 
GC0121 
000140 
000005 
006220 
006256 
000010 
GG6J00 
006322 
006352 
006270 
000004 
GO  1000 
003052 
000027 
000003 
000400 


P 
R 
R 
R 
P 
P 
R 


RG 


REFERENCES 
35-1881 

»35-1887 
35-1889 
36-1892 
35-1896 
35-1899 
35-1902 
35-1907 
35-1910 
35-1913 
35-1918 
35-1920 

»35-1922 
35-1929 
35-1932 
35-1935 
35-1940 
35-1943 
35-1946 
35-1951 
35-1954 
35-1959 
35-1962 

835-1965 

«2-4S4 

n5-374 

n7-H54 
42-243'! 

«S-494 

811-575 

811-567 

811-579 
11-591 

811-577 
11-590 
20-1063 

86-417 

86-427 

85-379 

844-2620 
44-2621 

84-332 
22-1193 
44-2646 
44-2652 

85-37S 
8S-50S 
^3-250 
85-3S2 
85-377 
8S-507 


35- 

36- 

36- 

36- 

36- 

36- 

36- 

36- 

36- 

36- 

36- 

835- 

35- 

835- 

835- 

835- 

835- 

835- 

8  35- 

835- 

835- 

835- 

8i5- 

35- 

44- 

3S- 

37- 

42- 

42- 

11- 

21- 

11- 

837- 

11- 


820- 

820- 

6-4 

6-4 


1881 

1887 

1889 

1892 

1896 

1899 

1902 

1907 

1910 

1913 

1918 

1921 

1922 

1930 

1933 

1936 

1941 

1944 

1949 

1952 

1955 

1960 

1963 

1965 

2593 

2140 

2094 

2437 

2439 

592 

1126 

593 

2032 

5SS 

1060 

1071 

IS 

28 


844-2633 

22-11S9 

44-2634 

844-2S51 

844-2657 

42-2514 

lS-924 
20-1067 


16-SOO 


836-1881 

36-1887 

836-1890 

836-1893 

835-1897 

836-1900 

836-1903 

836-1908 

836-1911 

836-1916 

836-1919 

35-1921 

835-1923 

35-1930 

35-1933 

35-1936 

35-1941 

35-1944 

35-1949 

35-1952 

35-1965 

35-1960 

35-1963 

35-1965 


3S-213S 


*lb-"96 
6-425 


26-1475 
844-2639 


844-2635 

25-1431 
827-1486 


16-SOb 


PRGE  5 
CREF 

36-1881 
835-1887 
36-1890 
36-1893 
36-1897 
35-1900 
35-1903 
35-1908 
36-1911 
36-1916 
36-1919 
36-1921 
35-1923 
35-1930 
35-1933 
35-1936 
35-1941 
35-1944 
35-1949 
35-1952 
35-1955 
35-1960 
35-1963 
83F.-1966 


n  6 


7s?. 


:144 


*  16- 799 
*22-llS9 


41-2360 
44-2653 


836-1882 

36  1887 

36-1890 

36-1893 

35-1897 

36-1900 

36-1903 

36-1903 

36-1911 

36-1916 

36-1919 

836-1921 

36-1923 

836-1931 

836-1934 

836-1939 

835-1942 

835-1945 

835-1950 

835-1953 

835-1956 

835-1961 

835-1963 

:5-l?66 


41-2325 


*17-S42 

.*  2b- 14  75 


36-1882 

ff36-1888 

#35-1891 

1135-1894 

«I35-1898 

1135-1901 

1135-1906 

#36-1909 

836-1912 

835-1917 

836-1919 

35-1921 

835-1923 

35-1931 

35-1934 

35-1939 

35-1942 

35-1945 

35-1950 

35-1953 

35-1956 

35-1961 

35-1963 

35-1966 


U  ■?_'■'  7  -7  7 


19-100? 
*39-2lS4 


36-1882 
36-1888 
35-1891 
35-1894 
36-1898 
35-1901 
36-1906 
36-1909 
36-1912 
36-1917 
35-1919 

835-1922 
35-1923 
35-1931 
35-1934 
35-1939 
35-1942 
35-1945 
35-1950 
35-1953 
35-1956 
35-1961 

835-1964 


19-1012 
*41-2346 


835-1882 

36-1888 

35-1891 

35-189^ 

35-1898 

36-1901 

35-1906 

36-1909 

35-1912 

36-1917 

836-1920 

36-1922 

836-1929 

835-1932 

836-1935 

836-1940 

835-1943 

835-1946 

836-1951 

835-1954 

835-1959 

835-1962 

35-1964 


''-  ? 


2395 


:r21-1139 
*41-2360 


36-1882 

836-1889 

835-1892 

835-1896 

835-1899 

835-1902 

835-1907 

835-1910 

835-1913 

835-1918 

35-1920 

35-1922 

35-1929 

35-1932 

36-1935 

36-19H0 

35-1943 

35-1946 

35-1951 

36-1954 

35-1959 

35-1962 

35-1964 


42-2400 


37-2034 


^  n  r  OTr  r\  n  w 
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SYMBOL 
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REFERENCES 

FBF 

=  OOOHOO 

»8-491 

37-2082 

41-2314 

41- 

•2328 

FRSRT 

0C373fe 

R 

»36-2004 

42-2368 

GENQIO 

0G51E)H 

R 

41-2340 

«41-2352 

GETCHR 

G0H07fe 

R 

37-2070 

»37-2072 

GETCHP 

0G^06^ 

R 

<»37-2061 
42-2480 

37-2083 
43-2535 

37-2104 

11- 

■2108 

37-2132 

GETCHl 

OOBHIG 

R 

36-2010 

42-2370 

42-2413 

842- 

•2432 

42-2435 

GETl 

oomofe 

R 

37-2072 

»37-2074 

GETIR 

com  26 

R 

37-2075 

»37-2078 

GETIB 

oomBG 

R 

37-2079 

»37-2082 

GET2 

GGm76 

R 

37-2086 

»37-2088 

44-2613 

GET3 

00432H 

R 

37-2093 

«38-2135 

:Em 

C0H246 

R 

37-2096 

«37-2103 

GET5  ■  ^ 

G0H21fe 

R 

37-2090 

»37-2092 

GET9  ' 

C0H306 

R 

37-2111 

»37-2113 

GNXl 

004362 

R 

38-2139 

JJ38-2144 

GOUOF 

004412 

R 

38-2150 

«38-2152 

GTBCC 

004232 

R 

36-1989 

36-1997 

36-2001 

n  J,  - 

■2095 

38-2141 

GTBCl 

006136 

R 

44-2590 

«44-2597 

GTBC2 

006130 

R 

44-2592 

844-2594 

GTENQ 

006040 

R  ' 

36-1999 

843-2573 

GTENQl 

006056 

R 

43-2574 

843-2577 

GTEOT 

006060 

R 

37-20S1 

41-2352 

843-25-b 

GTETB 

005736 

R 

36-1994 

843-2538 

GTETX 

006002 

R 

36-1995 

843-2560 

GTETO 

005744 

R 

t;43-2539 

43-2561 

GTETl 

005752 

R 

S43-2540 

43-2567 

43-2569 

GTFRST 

005170 

R 

37-2091 

842-2365 

GTFRTl 

005206 

R 

36-2004 

36-2006 

36-2007 

Z6- 

2008 

42-2366 

GTGET 

005732 

R 

«43-2535 

43-2557 

43-25S4 

43- 

25S6 

44-2595 

GTITB 

006012 

R 

36-1996 

843-2564 

GTITBl 

006012 

R 

843-2565 

GTITl 

006156 

R 

44-2598 

844-2603 

GTNONE 

004736 

R 

37-2071 

841-2277 

GTNOPE 

005120 

R 

«41-2339 

GTNOl 

004744 

R 

U41-22S0 

GTN02 

004760 

R 

41-2279 

41-2281 

841-:2S9 

GTN03 

005012 

R 

41-2292 

41-2299 

8U1-23C2 

GTNSflP 

004370 

R 

3S-2137 

838-2145 

GTSflT 

003712 

R 

f;36-1989 

38-2145 

GTSTX 

005710 

R 

36-1990 

36-2000 

84  3-2517 

GTSYN 

006070 

R  V 

36-1998 

843-2583 

GTUOF 

004374 

R 

37-2106 

838-2149 

HALT 

=  000000 

«2-4 

INt 

=  000400 

«7-455 
42-2501 

15-737 

18-925 

9  7- 

1220 

25-14  19 

INIENQ 

006210 

R 

42-2502 

844-2616 

INIENl 

006252 

R 

44-2600 

44-2617 

844-2630 

■„.  :  .^,  .  ■ 

INTBCC 

005340 

R 

42-2396 

842-2401 

INTCl 

004676 

R 

40-2256 

40-2258 

840-2260 

INTC  2 

004716 

R 

40-2261 

40-2263 

840-2265 

INTTIC 

004656 

R 

40-2238 

840-2255 

38-2153 


41-2329    42-2391 


42-2432 


25-1436 


:5-14H0    39-217U    42-2482 
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SYMBOL 

SVMB'JL 

INTVTM 

INTUTl 

IPL 

IPC 

IRS 

ISC 

ITB 

iTBfi 


ITS 

KGBCCP 

y  GC 
' GDRTh 

^GSTf.T 

-H^SBYT 
LOW 


R 
R 
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O0U610 

O0H6J2 
=  000002 
=  000062 
=  000036 
=  000072 
=  000037 
=  002000 


OOHOOO 
170702 
00003H 
17070H 
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'0700 


000031 
OOOOOb 


LDGRPH 

LGC 

LS'll 


LSN 


000007 
0G0152 

T*  ^  T  ^  T-  * 


=  OOOOIO 


LTL 

=    000776 

MBX 

=    0000 3H 

ncF 

=  nooooH 

MDC 

=    000060 

MEND 

=    010000 

niP 

=    lOOGOO 

MPC 

=    0001  IB 

MSRT 

000002 

R 

riSRTO 

O0H436 

R 

nSRTOfi 

004Sm 

R 

fISPTOX 

00H630 

P 

hSPTl 

004464 

R 

nss 

=    000020 

REFERENCES 
15-684 

«40-2240 

«6-389 

;J6-400 

«S-385 

S6-404 

«5-383 

;7-473 
19-977 
44-2597 

»7-458 

«3-274 

89-539 

83-275 
43-2523 

nZ-27Z 
37-2047 

89-536 

86-3?l 
1S-S59 
19-999 

*22-i20S 
38-2136 

*42-2400 
43-2566 

84-364 

86-433 
3-242 
19-1005 
41-2302 

86-392 
16-782 
19-947 
22-1206 
25-1412 
38-2149 
41-2339 
43-2583 

86-440 

84-336 

87-450 

89-545 

8S-495 

87-478 

86-414 

84-343 

839-2170 
39-21S6 
39-2172 

839-2176 

87-452 
44-2616 


PRGE 
CREF 


B  7 


840-2229 

6-390 
6-401 

6-405 

15-722 
19-1014 


18-882 
9-540 
17-816 
43-2533 
3-274 
37-2049 
?-538 
6-392 
18-867 
19-1001 
*23-1244 
38-2138 
42-241L' 

4U-2616 
15-670 
6-434 
17-812 
19-1015 
42-2406 
6-393 
*16-791 
19-963 
24-1258 
*25-141S 
*38-2157 
*42-2393 
44-2597 
6-441 
6-400 
44-2620 
9-546 
43-2560 
37-2089 
»15-bS2 
*15-67o 

40-2261^ 
840-2203 
39-2175 
42-2492 
22-llSS 
44-2622 


40-2266 

«37-2058 

15-686 

15-743 
19-1023 


18-895 
17-845 
17-840 
43-2546 
3-275 
37-2052 
9-538 
15-737 
18-874 
20-1062 
*24-1265 
*38-2144 
*42-2434 
44-2620 
42-2498 
6-437 
17-836 
24-1303 
42-2416 
*15-715 
16-S02 
19-970 
*24-1264 
25-1425 
39-2171 
42-2412 
*44-2599 


15-708 

44-2622 

21-1160 

41-2324 

*25-1445 

25-1445 


840-2207 
22-120S 


«37-2084 


16 

24' 


782 
1378 


18-901 
19-945 
19-1009 

17-839 
41-2305 

*16-779 
18-911 

*21-1108 
25-1419 
39-2174 
42-2437 

*44-2622 

*15-670 
17-844 
24-1313 
42-2426 
15-722 

*17-843 

19-977 

24-1329 

25-1427 

*40-2219 
14  ?  -  '^  1414  7 


15-711 

44-2633 

24-13S6 

42-2393 
40-2260 


23-1240 


41-2278 


16-791 
41-2324 


19-1018 

19-988 

37-2050 

17-845 
41-2307 

16-784 

18-922 

21-1109 

25-1421 

*41-2325 

*42-Z^S2 

*44-2633 

*42-2389 
18-879 
2-4-1337 
43-2519 
*15-74l 
*18-891 
*19-1014 
*24-li36 
25-1438 
*40-2251 
42-2510 


14-1326 


43-2568 
*40-2262 


23-1243 


18-891 
42-2412 


37-2048 
37-2052 


•7- 


2101 


19-944 
42-2409 

*16-786 
)i:i8-925 
*21-1125 
t25-1436 
42-2372 
42-2501 


t42-2498 
18-892 
37-2043 
43-2529 
15-743 

19-1023 
.*24-1367 
.*26-1474 
*40-2271 
^4  3-2539 


43-2577 
*41-2341 


25- ! 4:1 


19-947 
43-2539 


41-2285 

41-2306 

19-945 
44-2610 

*16-787 
18-929 
21-1170 
25-1440 

*42-2377 
42-2512 


18-898 

37-2055 

43-2542 

16-766 

18-913 

.*  19- 1030 
24-1378 
37-2089 
41-2291 

*43-2565 


44-2599 
442-2443 


25-1436 


19-963 
43-2565 


43-2555 
42-2420 
19-987 


*16-790 
19-956 
21-1172 

*37-2094 
42-2395 
43-2517 


19-936 
37-2097 
43-2552 
)H6-770 
t\E-9\S 
^21-1120 
24-1391 
37-2095 
41-2320 
*43-2568 


*42-2470 


42-24P2 


19-970 
43-2577 


42-24.0 
19-988 


18-857 

19-968 

*22-1188 

37-2109 

*42-2397 

*43-2540 


19-979 
41-2282 
44-2607 
*16-778 
*18-917 

22-1178 

*24-1393 

37-2107 

*41-2324 

*43-2577 


42-  2512 
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SYMBOL 
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REFERENCES 

n'.OUT 

=  000100 

118-603 

39-2170 

41-2326 

42- 

•2k  89 

NRK 

=  000025 

«5-380 

NRKCHT 

=  000010 

I4-333 

16-780 

26-1464 

NRKF 

=  lOOOGO 

«8-513 

39-2191 

42-2467 

NAT 

=  OOIOOO 

»7-456 

20-1062 

23-1228 

23- 

•1231 

NEF 

=  004000 

U7-474 

18-915 

26-1474 

42- 

•2447 

NMP 

=  OOOOHH 

«9-543 

9-544 

24-1372 

NOP 

=  0002H0 

12-5 

NUB 

=  000002 

«8-483 

38-2151 

OOF 

=  000100 

«7-453 

21-1108 

21-1170 

23- 

•1248 

OS 

=  QOOOOO 

«3-237 

10-562 

OVXM 

=   000200 

»8-504 

44-2623 

PQD 

=  000177 

85-384  . 

42-2369 

PhP  iTY 

=  GIOOOO 

»10-562 

FCH 

=  000010 

»8-485 

PPC- 

=  OOOOHb 

«9-544 

9-545 

19-1026 

PTBSP 

000746  R 

»18-853 

19-995 

FICON 

00232b  R 

21-1171 

822-1176 

PTCl 

002046  R 

21-1111 

821-1114 

PTC2 

002056  R 

21-1115 

821-1118 

PTC3 

002346  R 

22-1179 

822  '188 

PTCH 

002102  R 

821-1122 

23-1250 

PTDRB 

001730  R 

19-1000 

819-1045 

PTDLE 

000756  R 

«18-S5^ 

37-2021 

PTDLl 

0010C6  P 

1S-S58 

18-860 

«  1  t-oo J 

PTD2 

001354  R 

19-94S 

819-952 

PTENQ 

001176  P 

818-911 

37-2023 

PTENQt 

001226  R 

18-914 

818-917 

PTEOT 

001244  R 

818-922 

37-2024 

PTEXIT 

002454  R 

22-1204 

822-1213 

PTEXN 

002450  R 

21-1158 

22-llSl 

22-1207 

1211 

PTEXT 

002424  P 

822-1202 

PTEXl 

002406  R 

822-1195 

22-1209 

FTEX3 

C02406  R 

822-1196 

23-1245 

PTITB 

G01012  R 

818-866 

37-2020 

PTITl 

001064  R 

18-875 

818-878 

PTIT2 

001162  R 

818-904 

PTIT3 

001040  R 

18-868 

18-870 

81S-S73 

PTim 

001124  R 

18-887 

818-889 

pTimfl 

001120  P 

18-885 

818-888 

PTMODE 

002264  P 

21-1156 

821-1160 

PTnOPS 

001456  P 

21-1112 

823-1217 

pini 

002602  R 

23-1218 

823-1248 

PTM2 

002574  R 

23-1242 

823-1244 

PTNEXT 

000616  R 

16-774 

816-805 

PTNORH 

000534  R 

16-789 

816-793 

PINO 

000600  R 

16-798 

816-801 

PTNl 

000620  R 

16-803 

816-806 

PTPl 

000630  R 

817-812 

18-871 

1S-S90 

19- 

974 

PTP2 

000660  R 

17-822 

It  1  f  -  O  ii  f 

PTFJ 

000634  P 

817-818 

IS-S62 

1S-S77 

IS- 

S97 

PTR4 

000676  R 

1 7-S29 

817-S33 

C  7 


25-1436 


37-2109 


42-2482 


19-97b 
18-903 


19-996 
18-931 


19-966 


19-967 


19-1004 
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PTSRT 

003762  R 

:8-854 

l»37-2G16 

FT5LVE 

002430  R    . 

22-1177 

r22-1206 

PTSTX 

001166  R 

M8-906 

37-2017 

PTSYN 

001272  R 

«18-929 

37-2022 

PTSl     ^ 

002H40  R 

»22-1208 

PTTERfl 

002620  R 

21-1116 

824-1253 

PTTEXT 

002660  R 

24-1259 

824-1264 

PTTl 

002642  R 

«24-1258 

24-1261 

PUTDO 

001310  R 

16-801 

819-934 

PUTD1 

000512  R 

16-783 

16-785 

816-788 

PUTDlfl 

000422  R 

« 16- 776 

PUTDIO 

001720  R 

19-1024 

819-1037 

PUTOn 

000420  R 

16-768 

816-775 

PUTD22 

001462  R 

19-972 

819-975 

PUTD23 

0Q1430  R 

19-964 

819-968 

PUTD2H 

001452  R 

19-969 

819-973 

PUTD3 

001370  R 

19-951 

819-955 

PUTDH 

00151b  R 

18-872 

19-957 

19-971 

19-978 

819-990 

19-998 

PUTD6 

001540  R 

18-S63 
«19-996 

18-907 
37-2016 

18-912 
37-201S 

18-916 
37-2019 

13-919 
37-2025 

18-923 

IS- 

-926 

18- 

-930 

19- 

-994 

PUTDBR 

001544   P 

18-932 

819-997 

PjTDfe 

001602  R 

17-847 

18-888 

19-1002 

819-1005 

(-UTD7 

001636  R 

«19-1015 

PUTD8 

001644   R 

18-904 

819-1020 

19-1054 

PUTD9 

001710   R 

19-1022 

819-1030 

RBR 

r 

000001 

»7-464 

15-715 

22-1206 

24-1258 

24-1329 

24-1336 

3S- 

-2149 

RBC 

= 

000124 

»b-419     ' 

6-420 

11-594 

*42-2402 

RBU 

: 

000004 

«6-390 

6-391 

37-206G 

RCVSIB 

= 

000000 

;i-l 

4-365 

24-1390 

24-1399 

RCVT 

- 

100000 

87-461 

33-2136 

42-2397 

42-2414 

43-2517 

43-2540 

43- 

■2566 

PCVTMT 

- 

tttttt     G 

42-2507 

tH2-250S 

RCX 

- 

000020 

»6-396 

6-397 

15-b9S 

*15-707 

15-708 

*15-71G 

RDBF 

r 

001000 

»7-472 

25-1412 

25-1418 

40-2219 

REPEPT 

005146  R 

841-2349 

42-2456 

RETNX 

z 

".000007 

83-270 

RIB 

r 

000137 

86-426 

RJT 

- 

000040 

87-469 

16-770 

:         lb-S02 

17-843 

PKT 

- 

000141 

86-428 

*16-^S0 

2a-1461 

*42-2453 

RO'JP 

= 

000100 

8S-488 

37-2077 

1 

PSTS 

r 

****** 

3-227 

3-251 

14-628 

15-717 

19-936 

19-958 

19- 

•979 

19- 

■1031 

19- 

■1036 

21-1091 

22-1180 

22-1184 

24-1257 

24-1332 

26-1457 

•J  1 

■2042 

27- 

-2055 

27- 

■2110 

37-2116 

39-2176 

39-2192 

41-2277 

41-2298 

41-2310 

41- 

■2342 

41- 

•2356 

42- 

-2374 

42-2403 

42-2422 

42-2442 

42-24H9 

42-2458 

42-2503 

43- 

■2525 

43- 

•2548 

44- 

-2624 

45-2659 

RSW 

= 

000012 

86-393 

6-394 

15-72S 

15-729 

*15-732 

*15-745 

*24- 

■1266 

*37- 

■2073 

t27- 

■2077 

37-2078 

*:37-20S0 

37-2082 

37-2103 

*3S-2151 

*3&-215: 

*40- 

•2272 

*;41- 

•2314 

*41- 

■2328 

*42-239S 

*42-2439 

*42-24S3 

*43-2533 

*43-25b0 

43-25^3 

*43- 

2576 

*44- 

■2593 

PSX 

= 

000001 

81-3 

3-235 

3-251 

10-549 

12-607 

24-1273 

24- 

1346 

27- 

■1479 

42- 

■2442 

psxiin 

— 

tttttt 

14-639 

RTll 

= 

tttttt 

3-231 

3-251 

PVl 

: 

040000 

8S-512 

42-2474 

R37S0 

- 

tttttt 

9-532 

11-5S3 

3b-19S0 

36-1983 

36-1991 

37-2026 

BISYNC 

SYMBOL 

SYMBOL 

Rb 

P7 

SBTCCT 

sec 

SEC 

SEN 

SENV 

SETfiCK. 

SETRCl 

SETflPF 

SETDLE 

-.ETENQ 

SETEOF 

SETEOT 

lETETB 

IE  T.J 

SETMIP 

SETMl 

SETNRK 

SETNl 

SETRVI 

SETSYN 

SETWOK 

SETWRG 

SEV 

SEZ 

SIS 

SOH 

SRC 

SRTP 

SRTOF 

SSRT 

SSRTM 

SSP'O 

STRRFl 

SIX 

STXBCC 

STXF 

SYN 

SYP 

TBC 

TBS 

TC  !  3 

TCJl 

TCJ2 

TCJ3 

TCP 

TCI 

TCW 

TOE  NT 
THPILT 


CREATED  BY 
CROSS  REFERENCE 
VPLUE 
=  v.000006 
=  */.000007 
=  000000 
=  000277 
=  000261 
=  000270 
=  000272 

00552^ 

005532 

005262 

005*414 


005652 

00555H 

005H2H 

002176 

005706 

005274 

00540M 

005446 

005470 

005544 

002136 

005160 

00-.622 

=  000262 

=  000264 

=  000010 

=  000001 

=  000153 

=  000400 

=  000200 

000004 

004640 

004720 

005640 

=  000002 

005726 

=  000020 

=  000026 

=  000032 

=  000070 

=  000112 

002112 

002506 

002532 

002556 

=  000130 

=  000120 

=  000142 

000532 
=  000240 


R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
P 
R 
R 
P 
R 


R 
R 
R 
R 


R 
R 
R 
R 


MfiCRO  ON  6-DEC-77  RT  08:  18 


REFERENCE^ 

»3-264 

113-265 

M12-606 

«2-15 

»2-ll 

»2-14 

»3-279 
42-2379 

»42-2469 
42-2373 
36-2009 
36-2011 
42-2438 
36-2012 
21-1135 
42-2511 
36-2005 
42-2415 


PRGE  10 
CREF 


E  7 


36-2013 
?;42-2455 

42-2385 
«21-1131 
»41-2356 

42-23SI 

»-.-  1  i^ 

»2-13 

Sr-'-451 

»5-37b 

»6-434 

87-471 

S8-489 

»4-350 

»40-2245 

40-2259 

42-2390 
»5-375 

43-2518 
»7-46S 
S5-381 
«9-538 
«6-403 
86-412 
821-1125 

21-1173 

■77-  1  '7'7"? 

23-1234 
86-422 
86-416 
86-429 
*23-1249 

19-103S 

3-:si 


3-279 

842-2468 

42-2475 
842-2389 

38-2142 
842-2501 
842-2477 
842-2437 

21-1137 
842-2514 
842-2393 
842-2426 
842-2442 

42-2513 
842-2474 

42-23S3 
842-24S9 
3-279 


*3S-2156 
3S-2157 
37-2078 

*15-677 
42-2394 

840-2271 

842-2495 

843-2529 
18-906 

9-539 
6-404 
6-413 

823-1226 
23-1230 
23-1237 
b-423 
6-417 
6-430 


842-2'l34 


821-1139 


42-2490 


*40-2247 
40-2251 
37-2080 
40-2247 

43-25S5 


lS-913 

21-1140 
*16-794 
*15-690 


823-1233 

823-1240 

*15-687 

*15-67S 

»21-111S 


40-2255 
40-2271 

Hn  _  ^  '^  7-0 


*40-2257 
41-2320 


43-2583 


26-1474 


*IS-S69 
19-953 


*19-997 


25-1423   826-1461 
4  1-2300 


22-1191 

24-1395 

*21-1122 

39-2194 


24-1364 
41-22'=)5 
22-n7b 

42-2461 


44-2655 


22-1199   ♦:3-i2:: 

44-2626 


^T  W  _'     1  ^  ^  W 


23-1241 


BISYNC 

CRERTED  BY 

MRCRO  ON  6 

-DEC-77  RT 

08:  18 

F 
PRGE  11 

7 

SYMBOL 

CROSS  REFERENCE 

CREF 

SYMBOL 

VALUE 

REFERENCES 

THC 

=  000116 

«6-Hl5 

6-416 

17-833 

118-878 

TIB 

=  000 15H 

116-437 

6-440 

15-689 

T  1  C  1  NT 

000006  R 

»4-367 

*15-675 

40-2234 

TPRNER 

005H76  R 

41-2347 

42-2448 

42-2454 

842-2457 

TRRNl 

005504  R 

«42-2458 

42-2472 

TPQN2 

0055m  R 

M42-2465 

42-2493 

TPC 

=  0001 m 

116-413 

6-414 

6-415 

17-828 

♦18-873 

18-884 

♦19-1029 

TPNREC 

=  001000 

»8-492 

42-2398 

TP't'NRK 

00017H  R 

24-1354 

824-1372 

TSR 

=  000066 

«6-402 

6-403 

«16-793 

19  955 

26-1468 

TSU 

=  oooom 

«6-394 

6-395 

♦16-800 

♦16-806 

»18-918 

*18-924 

*19-935 

19-1021 

«24- 

•1267 

25-1431 

25-1449 

♦25-1451 

26-1467 

♦26-1476 

139-2170 

*39-2191 

♦:41-2326 

*42- 

■2457 

«42-2468 

»42-2474 

42-2478 

42-2489 

♦44-2623 

44-2651 

TTM 

=  OOOllO 

«fa-411 

6-412 

TT2fl 

=  000144 

»6-430 

6-431 

25-1415 

♦40-2211 

TT2C 

=  000146 

»6-431 

6-432 

25-1416 

♦40-2212 

TT3PI 

=  OOOIBO 

;6-432 

6-433 

25-1417 

♦40-2213 

TXC 

=  000064 

»6-401 

d-402 

♦16-781 

♦17-820 

Tlfl 

=  000074 

U6-405 

6-40t) 

♦21-1140 

TIC 

=  000076 

86-406 

6-407 

♦2i-;i4i 

T2R 

=  000100 

»6-407 

♦40-2221 

6-408 

♦40-2222 

19-- 94  9 

119-954 

♦24-1355 

♦24-1358 

♦:24-1372 

*25-1415 

40- 

■?''n 

T2C 

=  000102 

86-40S 
♦24-12S? 

6-409 
♦24-1373 

*!7-S19 
♦25-1416 

17-821 
40-2212 

t\7-S33 
♦40-2223 

18-878 

18-886 

19-950 

«19- 

■952 

T3R 

=  000104 

«6-409 
40-2213 

b-41G 
♦40-2224 

♦i?-1011 

♦19-1012 

♦19-1047 

♦19-1048 

♦24-1361 

♦24-1362 

*25- 

■1417 

T3C 

=  000106 

»b-4lC 

6-411 

*19-1013 

♦19-1049 

♦24-1363 

UPPTIM 

=  000000 

U3-236 

40-2246 

4-323 
44-2641 

4-342 

4-349 

4-352 

4-356 

15-671 

25-1444 

40- 

•2233 

UBL 

=  000026 

P6-399 

b-400 

15-700 

24-1302 

UOVR 

=  000020 

»S-4S6 

15-732 

37-2103 

38-2152 

XflC 

=  010000 

87-475 

16-766 

19-1030 

22-1178 

26-1474 

41-2324 

XMTTMT 

=  tttttt     G 

39-2181 

♦39-21S2 

XPT 

=  C20000 

87-460 

16-784 

16-787 

23-1235 

23-123S 

XRC 

=  000001 

87-44S 

7-449 

21-1123 

XXP 

=  010000 

87-459 

16-786 

1S-S57 

lS-Sb7 

1S-S74 

lS-929 

19-968 

19-1001 

X. 

=  000002 

87-449 

XI 

001776  R 

20-106S 

820-1073 

BISVNC  CRERTED  BY     flRCRO     ON  fe-DEC-77  RT  08   18 

nQCPO  rPOSS  REFERENCE 

MRCPO  NRME  REFERENCES 

HEX  «35-178b  Il35-l80^  II35- 

»35-l815  1135-1816  »35- 

U35-1827  1135-1829  II35- 

R35-18H0  »35-18m  »35- 

»35-18C2  M35-1855  »35- 

»35-18b6  »35-1867  »35- 

»36-1878  »35-1879  »35- 

»35-1892  M35-1893  »35- 

»3B-1903  «35-190fe  «35- 

»35-1917  »35-1918  »35- 

»35-l932  «35-1933  »35- 

S3S-19HH  »35-19H5  IJ35- 

»3E-1956  «35-19E9 


PRGE 
CREF 


12 


G  7 


«35- 


1805 
1817 
1830 
18H2 
1856 
1868 
1880 
189H 
1907 
1919 
193H 
19H6 
1960 


It35-1806 
1135-1818 
#35-1831 
II35-18H5 
« 35-1857 
#35-1869 
#35-1881 
#35-1896 
#35-1908 
#35-1920 
#35-1935 
#35-19H9 
#35-1961 


#35-1807 
#35-1819 
#35-1832 
#35-t8H6 
#35-1858 
#35-1870 
#35-1882 
#35-1897 
#35-1909 
#35-1921 
#35-1936 
#35-1950 
#35-1962 


#35-1808 
^35-1820 
#35-1835 
#35-18H7 
#35-1859 
#35-1871 
#35-1887 
#35-1898 
#35-1910 
#35-1922 
#35-1939 
#35-1951 
#35-1963 


#35-1809 
#35-1821 
#35-1836 
#35-18H8 
#35-1860 
#35-1872 
#35-1888 
#35-1899 
#35-1911 
#35-1923 
#35-19H0 
#35-1952 
#35-1964 


#35-1810 
#35-182H 
#35-1837 
#35-18^9 
#35-1861 
#35-1875 
#35-1889 
#35-1900 
#35-1912 
#35-1929 
#35-19m 
#35-lb'53 
#35-1965 


#35-1811 
#36-1825 
#35-1838 
#35-1860 
#36-1862 
#36-1876 
#36-1890 
#36-1901 
#36-1913 
#36-1930 
#35-1942 
#35-195H 
#35-1966 


#J6-i8m 

#36-1826 
#36-1839 
#36-1861 
#36-1866 
#36-1877 
#36-1891 
#36-1902 
#36-1916 
#36-1931 
#35-1943 
#35-1955 


L 
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H  7 


[ 


t 

2 
3 

5 
h 
7 

8 

9 

10 
11 
12 
13 
\^ 
IB 
lb 

IS 
19 
20 
21 

n  .-^ 
Li. 
O  "» 

24 
25 
26 
27 
28 
29 
30 
31 

34 

3b 

37 

3S 
39 

io 

m 

42 

44 
4  5 
4b 
47 
48 
49 
BO 
51 
52 
53 
54 
5B 
5b 


OOOOGl 
OOOGGl 
000002 
000000 


OCOOOG 


;PREFIX  FILE   FOR   2780  UflP   RUNNING  UNDER   RSXllM 

RSX=1 

RSXnh=l 

NTRNSF  =  2  ;NUMBER  OF  FILES  -  1  TO  TRANSFER  IN  ONE  CflMD  STRING  (3) 

NRCVSF  =  G  ;NUriBER  OF  FILES  -  1  TO  RECEIVE  (1) 


; MACRO 

DEFINITIONS 

TflGNUn= 

0 

.  MACRO 

ERROR   TEXT 

ERRORK 

<TEXT> 

JSR 

PC, PROMPT 

.  ENDM 

;  MfiCRO 

TO  DO  A 

KILL  AND  QUE 

f 

. MACRO 

ERRORK  TEXT 

TAGNUM= 

TAGNUM+1 

.  IRP 

N, <  TAGNUM) 

JSR 

R5,TYPriSG 

.  WORD 

TAG'N 

.  WORD 

TRGE'N-TAG'N 

. PSECT 

MESAG2.GBL 

TRG'N; 
TRGE'N: 

.  RSCII 

"TEXT" 

. PSECT 

rifl  i  N 

.  ENDM 

.  ENDM 

MACRO  TO  QUEUE  A  MESSAGE  ONlY 


.  MACRO 

ERRORM  TEXT 

TRGNUM= 

TAGNUM+1 

.  IRP 

N, <  TAGNUM> 

JSP 

R5, TYPMSl 

.  WORD 

1-AG'N 

.  WORD 

TAGE'N-TAG'N 

. PSECT 

MESAG2.GBL 

TAG '  N: 

.  ASCI  1 

"TEXT" 

TRGE'N: 

. PSECT 

MA!N 

.  ENDM 

.  ENDM 

;  MACRO 

TO  QUEUE  A  MESSAGE  AND  P 

/ 

.  MACRO 

ERRORP   TEXT 

ERRORM 

vTEXT) 

JSR 

PC  PROMPT 

.  ENDM 

f ,' 

MACRO 

FATAL   TEXT 

ERRORK 

aEXT) 

JSP 

R5.DIE 

.  ENDM 

CLOSE       liOCPO  nnOH     Ob-DEC-77  08:19     PPiGE   2 


t 
1 
3 

% 
S 
6 
7 

8 
9 

to 
n 

12 
13 
IH 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2H 
2& 
tk 

tr 

28 
29 

30 

31 
32 

21 
2M 

:6 

36 
37 
38 
39 

m 

^5  000000 

«*§ 

•♦9 
50 
St 

52 

SI 

55 
5b 
57 


000000 
000000 


000000 


000000 
000004 
000010 
000012 


012700 

i03mb 


GOOOOOG 


.TITLE  CLOSE 
.  I  DENT  /00006/ 

COPYRIGHT  (C)  1975.1976.1977 

DIGITAL  EQUIPMENT  CORPORRTION.  MflYNflRD.  MRSS.  01754 

THIS  SOFTWRRE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
fl  SINGLE  COMPUTER  SYSTEM  PND  MAY  3E  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   iHIS 
SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF.  MAY  NOT  BE  PROVIDED 
OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRJED  AS  A  COM- 
niTMENT  BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOP  THE  USE  OP  PELlABILlTY 
OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  Bf 
DEC. 

VERSION  0 

ROBERT  H.  POSENBAUM  12-AUGUST-^H 

LAST  MODIFICATION  ON  29-rifiY-75 

ROUTINES  TO  CLOSE  RECEIVE  FILES 


nOCPO  CALLS 
.  MCALL 


CLOSE't-FCSBTS-FDOFFS-  C^LL.PETIjPN 


FCSBT%  DEFSL 
FDOFF%  DEFSL 

INPUTS: 

NONE 

OUTPUTS: 

BOTH  INPUT  FILES  APE  CLOSED  AND  THE  PECE  n/E  BLOCK  flPEfl 
IS  UPDATE  TO  POINT  TO  THE  flE.XT  FiLE  TO  BE  WRITTEN 


.  PSECT   MAIN 


CLOSER: 


.  IF  DF 

MOV 

JSR 

WAIT 
.  CLOSE 
.  ENDC 
.  IF  DF 
MOV 
CALL 
BCS 
CLOSES 

ENDC 


PTll 

nCHANL-PB 

PC-FILBUF 

12 

12 

RSK 

«FDBOUO-PO 
DLT2ER 
20S 


GET  THE  FIRST  FOB  ADDRESS 

DELETE  THE  FILE  IF  IT  IS  EMPTY 

IT  WAS,  NOW  CHECK  FOP  SELECTIVE  REfV 

NOT  EMPTY  -  CLOSE  THE  ^  ILE 


r 


LLOSE       riQCPO  nnO^     Ob-DEC-??  08:  19     PRGE   2-1 


J  7 


58  000016 

59  000022 
bO 

bl 
62 
bZ 
bH  00002^ 

66  000030 
bb 

67  000032 
63  000036 
69  OOOOWO 
70 

71 


73 

75 


77 
7S 
79 
SO 
SI 

82  0000W6 

83  000052 

8^  0000514 

85  000060 

86  000064 

87  OOOObb 
SS  000072 

S9 
90 
91  00C076 


106767  OOOOGOG 
001011 


005777 
10040b 


1057b7 
100403 


OOOOOOG 


OOOOOOG 
062767  000036G  OOOOOOG 


20s. 


1057b7  OOOOOOG 

00141 1 

012700  OOOOOOG 

103402 

OC5G60  000120 


000207 


20S; 


25S- 


10*- 


TSTB 
BNE 

.  IF  DF 
ROD 
.ENDC 
.  IF  OF 
TST 
BMI 

TSTB 

BMI 

ROD 

.  ENDC 

.  IF  DF 

TSTB 

6EQ 

MOU 

JSP 
ENDC 
IF  DF 
WRIT 
CLOSE 
ENDC 
IF  DF 

TSTB 

BEQ 

r\0\i 

CRLL 

BCS 

CLOSES 

CLR 

.  ENDC 
RTS 


RCHN 
20) 
RTH 
«12,RCVBLK 

RSX 

dRCUBLK 

20s 

INCRCV 

205 

«S.  FNB^RCVSWT, 

RTll 

SWPSL 

30% 

SCHRNL2.P5 

PC.FILBUF 

PTll 

13 

12 

RSX 

SWPSL 

30% 

«FDB0U1-P0 

DLTZER 

25% 

F.FVEP'RO) 


PC 


; RECEIVE  CHRIN  MODE? 

;YES  -  DON'T  INCREMENT  TO  NEXT  FILE 

;N0.  GET  NEXT  RECEIVE  FILE 


;RNY  MORE  RECEIVE  FILES? 
;N0,  -  DON'T  INCREMENT  TO  NEXT  FILE 
;  SINCE  THERE  IS  NONE! 
; INCOMPLETE  RECEIVE  PENDING? 
;YES,  DON'T  INCREMENT  TO  NEXT  FILE 
RCVBLK    ;N0,  GET  NEXT  RECEIVE  FILE 


;SELECTIVE  RECEIVE'' 
;N0 


•SELECTIVE  RECEIVE  RCTIVE? 

;  NO 

;PUT  PRINT  FILE'S  FOB  IN  PO 

;YES.  DELETE  THE  PRINT  FILE  IF  EMPTY 

, I T  NRS 

;IN  CRSE  SELECTIVE  RECEIVE  RCTIVE 

;CLERP  THE  VERSION  «  SO  FCS 

;  WILL  USE  THE  NEXT  RVfllLPBLE 

;kETUPN 


L 


r 


CLOSE   neiCPO  nnO^  Ob-DEC-77  08:  19  PPGE  3 


K  7 


93 
9H 

95 

9e 

97 
98 

99 
100 
101 
102 
103 
ICh 
105 
10b 
107 
lOS 
109 
110 
111 
112 
113 

im 


;•♦• 


000100 
000106 
000110 

oooim 

000116 
000124 
000126 
000132 
00C13H 


000142 
000144 
000!  4b 


«*-DLTZER-DELETE  fl  FILE 
INPUTS: 


F  IT  IS  ZERO  LENGTH 


132760 
GC1016 
005760 
001013 
022760 
001007 
00E760 
001004 


000001  000017  DLT2ER: 


000010 
000001 
000014 


000012 


000140  000261 


000^401 
000241 


RO=FDB  ADDRESS 


BITB 
BNE 
TST 
BNE 

crip 

BNE 
TST 
BNE 
CALL 


SEC 


BR 

105 

CLC 

20S 

RETURN 

«FD. REC.F.  RCTL(RO)  /IS  THIS  fl  RECORD-ORIENTED  DEUICE' 


lOS 

F.EFBK(RO) 

ID'S 

»1,F. EFBK+2fR0) 

105 

F.FFBY(RO) 

IDS 

.DLFNB 


20S 


YES.  JUST  CLOSE  THE  FILE 
LOST  BLOCK  NUMBER  1? 
NO 


FIRST  FREE  BYTE  0^ 

NO 

ALL  ZERO  -  FILE  IS  EMPTY 

SO  DELETE  IT  AND  USE  IT  RGRIN  FOP 

NEXT  RECEIVE  OPERPTION 
INDICATE  TO  CRLLER  THAT  FILE 

WAS  DELETED 
RETURN 
INDICATE  THAT  FILE  WAS  NOT  EMPTY 


r 


LOSE       mc,90  MllOH     Ob-DEC-77  08:  19     PRGE   H 


L  7 


['f 


116 

117 

lis 

119 

UO 

121 

1  Artte 

123 

1 24   000150 

i:s 

IZb  000 ISO 

12" 

12S  000 IbO 

000207 

129 

130 

OOOOGl 

;  ROUTINE  TO  CLOSE  TRRNSMIT  FILE 

+ 
INPUTS: 

NONE 
OUTPUTS: 

INPUT  FILE  IS  CLOSED 


CLOSET: 


.IF  DF  RSX 

CLOSES  «FDB1N 
.  ENDC 

PIS  PC 

.  END 


; Close  the  file 
:  pnd  petupn 


M   7 


n 


'-LOSE 

nflcpo  ^no^  Ob 

-DEC-77 

08:  19 

S.nBOL 

TABLE 

CH.  fir^D  = 

000001 

FD.  ISP  = 

002000 

CLOSER 

OOOCOORG 

002 

FD.  MNT= 

lOOOGG 

CLOSET 

000150RG 

002 

FD.  OSP  = 

004000 

DLTZER 

OOOIOOR 

002 

FD.  PLC  = 

GOOOOH 

Ffi  flPD= 

000100 

FD.  PSE  = 

GIGOGG 

Ffl,  CPE  = 

000010 

FD.  RfiH= 

OGGOOl 

Ffl.  DLK  = 

001000 

FD.  RflN= 

0GGG02 

FO.  ENB  = 

100000 

FD.  REC  = 

OGGOOl 

FQ.  EXC  = 

002000 

FD.  Rwn= 

000001 

i^P  EXT  = 

OOOOOH 

FD.  SDI  = 

GGG020 

FM  NSP= 

000100 

FD.  SQD= 

OOGOHO 

FP  POS= 

010000 

FD.  TTY= 

OOGOOH 

■r  Q.  RD  - 

000001 

FD.  WBH= 

000002 

"^H.  RWD  = 

OOHOOO 

FF.  CHR  = 

OOOOOB 

Ffl  SEQ= 

040000 

FF.  NV  = 

000003 

■^fl  SHP  = 

OOOOHO 

FF.  POE  = 

000002 

Fp  Tnp= 

000020 

FF.  PUD= 

000001 

FP  UCKr 

020000 

FF.  RUF  = 

OOQOOfe 

Ffl.  WRT  = 

00CJ32 

FF.  SPC  = 

OOOOOH 

FDBIN  = 

Utttt   GX 

FO.  flPD= 

000106 

FDBOUO= 

ttttift   G>; 

FO.  nFY  = 

000002 

FDB0U1= 

******  GX 

FO.  RD  = 

000001 

FD.  BLK  = 

000010 

FO.  UPD= 

000006 

FD.  CCL  = 

000002 

FO  WRT= 

000016 

FD.  COM= 

020000 

F.  flCTL  = 

000076 

FD.  CR  = 

000002 

F.  flLOC= 

GOOOHO 

FD.  DIR  = 

000010 

F.  BBFS  = 

000062 

FD.  FTN= 

000001 

F.  BDB  = 

000070 

FD.  Fn  = 

OHOOOO 

F  BGBC= 

000057 

FD.  INS  = 

000010 

F.  BKDN  = 

O00C26 

.  flBS. 

000000 
000000 

000 
001 

; 

nflIN 

000162 

002 

ERRORS  DETECTED: 

G 

PRGE   4-1 


M     7 


I'IRTUPL   riEMOPY   USED:       2523  WORDS 
DYNflniC    riEMORY:       2S10  UOPDS      (    10 
ElPPSED  TIME:       00;  CO.  16 
:&b-n20   CLOSE; 27,    256.030  ClOSE/CPF 


BKDS= 

000020 

BKEF  = 

000060 

BKPl  = 

000051 

BKST= 

000024 

BKUB  = 

000064 

CHR  = 

000075 

CNTG= 

000034 

DFNB  = 

000046 

DSPTr 

000044 

DVNri= 

000134 

EFBK= 

000010 

EFN  = 

000050 

EOBB  = 

000032 

ERR  = 

000052 

FfiCC  = 

000043 

FFBY= 

000014 

FNfln= 

000110 

FNB  = 

000102 

FTYP  = 

000116 

FVER  = 

30120 

H1BK  = 

000004 

LUN  = 

000042 

nBCT  = 

000054 

riBCl  = 

000055 

nBFG= 

000056 

NRBD= 

000024 

NREC  = 

00Q030 

OVBC= 

000030 

RflCC  = 

000C16 

(  10  PAGES) 
PAGES' 


SP  =  UflFPXri..  CLOSE 


RflTT= 
RCNMs 
RCTL  = 
RSIZ= 
RTYP= 
SEQN= 
SPDV= 
S?UN= 
STBK= 
UNITS 
URBD- 
VBN  = 
VBSZ= 
INCRCV= 
NB.  DEV= 
DIR  = 
Nfln= 
SD1  = 
SD2= 
SNn= 
STP  = 
SVR  = 
TYP  = 
VER  = 
NRCVSF= 
NTRNSF= 
N.  D  I  D  = 
N.  DVNn= 
H.  FID  = 


F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 


NB. 
NB. 
NB. 
NB. 
NB. 
NB. 
NB. 
NB. 
NB. 


OGGOOl 
000034 
0GGG17 
QG0GG2 
OGGGGG 
CCJIGO 
0G0G72 
000074 
000036 
000136 
OG0020 
0GG064 
000060 
tttttt 
000200 
000100 
000004 
000400 
001000 
000040 
000020 
000010 
000002 
GOOGOl 
000000 
G00002 
000024 
G00032 
000000 


GX 


N. 
N. 
N. 
N. 
N. 
N. 


FNfln= 
FTYP= 
FVERs 
NEXT= 
STflT= 
UNIT= 
PRRSSS: 
RCHN  = 
RCVBLKs 
RCVSWTs 
RSX  = 
RSX11M= 
R.  FIX  = 
R.  SEQ  = 
R.  VRR  = 
SURSL  = 
S.  FPTT= 
FOB  = 
FNPri= 
FNB  = 
FNBW= 
FNTY= 
FTYP  = 
NFEN= 
TflGNUri= 
.  CLOSE= 
DLFNB= 
.  .  .  GBL  = 
.  .  .  TPC  = 


c 
S. 

s' 

S. 

S. 
c 


000006 
G00014 
000016 
000022 
000020 
000034 
G00027 

tnttt 
tttttt 
tttttt 

OGGOOl 
000001 
000001 
000003 
000002 
tttttt 
000016 
000140 
OOOOOb 
000036 
000017 
000004 
000002 
000020 
OCOGOO 
****** 

/^  ^  ^  ^  ^  ^ 

000000 
000140 


GX 
GX 
GX 


D( 


3X 


G 
GX 


N  7 


CLOSE 

CRERTED  BV 

nflCRO  ON  6-DEC-77 

S'MBOL 

CROSS  REFERENCE 

SYMBOL 

VRLUE 

REFERENCES 

CLOSER 

OOCOOO 

RG 

«2-45 

CLOSET 

000150 

RG 

»4-124 

DLT2EP 

000100 

R 

2-54      2-85 

FOB  IN 

z 

ttttt* 

GX 

4-126    .  4-126 

FDBOUO 

z 

tttttii 

GX 

2-53 

FDBOUl 

~ 

****** 

GX 

2-84 

FO  REC 

z 

000001 

3-99 

F.EFBK 

: 

000010 

3-101      3-103 

F  FFBY 

= 

ooQom 

3-105 

F.  FUEP 

r 

000120 

*:-S8 

F  RCTL 

r 

000017 

V-QQ 

1  NCR  CI' 

r 

****** 

GX 

2-67 

NPCVSF 

r 

GOOOOO 

«l-5 

NTRNS^^ 

3 

C00002 

8  1-U 

PflPSSS 

= 

00002:^ 

84-126      4-126 

PCHN 

- 

****** 

GX 

2-5S 

RCUBLh 

- 

****** 

GX 

2-b4      *:-69 

PCl'SUT 

z 

****** 

GX 

2-b9 

PSX 

r 

000001 

81-:        2-52 

PSXllM 

= 

C00001 

81-3 

PTH 

= 

****** 

2-46       2-60 

SWRSL 

z 

****** 

GX 

2-s: 

S.  FNB 

z 

000036 

2-69 

TRGNUn 

z 

000000 

81-S 

.  Close 

z 

****** 

G 

:-5b     :-B6 

DLFNB 

z 

****** 

GX 

>I07 

AT  08:  19 


PRGE  1 
CREF 


N  7 


DP 


83-99 


'-"1 


'-C- 


2-Sl 
2-77 

2-s:- 


4-12S 


U-lZn 


4-126 


B     8 

CLOSE  CRERiED  BY     MACRO     ON  6-DEC-77   PT   08   19              PFlGE    ^ 

MRCPO  CPOSS  PEFlRENCE  CREF 

riRCRO  NflnE  REFERENCES 

C«LL  «2-33              »2-5^              S2-8B              JIJ-107 

CLOSES  «2-33              »2-56              »2-87              ;^-126 

EPPOP  i;i-9 

EPPOPK  Sl-lb 

ERPORM  81-32 

EPPOPP  81-^7 

EPPS  «2-5b              «2-ES              «2-87              ;2-87              ;H-126            «H-12b 

FRTflL  »i-53 

FCSBTS  «2-33              «2-3'4 

FDO'^FS  «2-33                2-35 

LDFDBS  n2-Sb                2-56              «2-S7                2-87              8^-126              H-12e 

PETiJPN  nl-ZZ              «3-llH 


DELETE  MPCPO  nilOH  06-DEC-77  08:20  PRGE  1 


C  H 


2 

OOOOOl 

7 

000001 

H 

000002 

S 

000000 

s 

ocoooo 

q 

10 

n 

i: 

\3 

14 

IB 

lb 

17 

IS 

19 

20 

21 

22 

23 

■■ 

2H 

25 

26 

27 

28 

29 

30 

31 

32 

ZZ 

34 

35 

3b 
Z7 
38 

HO 
43 

ti 

«♦& 

47 

4S 

49 
50 

it 

SI 

m 
u 


; PREFIX  FILE  FOR  2780  UfiP  RUNNING  UNDER  RSXllM 
RSX=1 

Rsxnri=i 

NTRNSF=2  ;NUnBER  OF  FILES  -  1  TO  TPPNSFER  IN  ONE  CnttD  STRING  (3) 

NRCVSF=0  ;NUnBER  OF  FILES  -  1  TO  RECEIVE  (1) 


; MACRO 

DEFINITIONS 

TfiGNUM=0 

.  nPCRO  ERROR   TEXT 

ERRORK  <TEXT> 

JSR     PC, PROMPT 

.ENDM 

;  MRCRO 

TO  DO  9  KILL  RND  QUE 

/ 

.MACRO  ERRORK  TEXT 

TflGNUrirTflGNUM  +  l 

.  IPP    N, <  TOGNUM) 

JSR     R5,TYPriSG 

. UORD   TfiG'N 

. WORD   TRGE'N-TRG'N 

PSECT  MES0G2.GBL 

TflG'N: 
TflGE'N: 

.  flSCI 1   "TEXT" 

. PSECT  MfliN      , 

.  ENDM 

.  ENDM 

> 
* 


MPCRO  TO  QUEUE  R  MESSAGE  ONlY 


. MACRO 

ERRORM  TEXT 

TflGNUM= 

TAGNUM+1 

.  IRP 

N, <  TflGNUM> 

JSR 

R5, TYPMSl 

.  WORD 

TAG'N 

.WORD 

TAGE'N-TAG'N 

. PSECT 

MESAG2.GBL 

TflG'N: 

.  ASC 1 1 

"TEXT" 

TflGE'N: 

.PSECT 

MAIN 

.  ENDM 

.  ENDM 

MACRO  TO  QUEUE  A  MESSAGE  AND  PROMPT 

.  MACRO  ERRORP  TEXT 

ERRORM  <TEXT> 

JSR  PC. PROMPT 
.  ENDM 


.MACRO  FATAL 

ERRORK  aEXT) 

JSR  R5.D1E 
.  ENDM 


TEXT 


DClETE      MflCPO  nnOH     O6-DEC-77  O?;  20     PfiGE   2 


D  8 


1 

.  3 

% 

i 

i 

T 

i 

f 

i§ 

it 

\Z 

13 

ti 

If 

I& 

17 

18 

If 

20 

21 

22 

^  7 

<:.:> 

2H 

25 

2b 

27 

28 

29 

30 

31 

32 

ZZ   000000 

3^ 

36 

3fc 

37 

38 

39 

40 

HI  000000 

U2  000000 

012700 

OOOOOOG 

Hi  OOOOOH 

HH  000010 

012700 

OOOOGOG 

45  000014 

46  000020 

000207 

47 

•TITLE  DELETE 
I  DENT  /OOOGl/ 

COPYRIGHT  (C)   1975.  1976.  1977 

DIGITPL  EOUIPnENT  CORPORRTION,  MflYNflRD.  MflSS.  01754 

THIS  SOFTWRRE  13  FURNISHED  UNDER  P  LICENSE  FOR  USE  ONLY  ON 
fl  SINGLE  COMPUTER  SYSTEM  AND  flRY  SE  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  RBOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWRRE,  OR  RNY  OTHER  COPIES  THEREOF,  MRY  NOT  BE  PROVIDED 
OR  OTHERWISE  MRDE  RVRILRBLE  TO  RNY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  RND  TO  ONE  WHO  PGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  RND  OWNERSHIP  OF  THE 
SOFTWRRE  SHRLL  RT  RLL  TIMES  REMRIN  IN  DEC. 

THE  INFORMRTION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  PS  P  COn- 
niTflENT  BY  DIQITRL  EQUIPMENT  CORPORPTION. 

DEC  ASSUMES  NO  PESPONS I B IL I TY  FOR  THE  USE  OP  RELIABILITY 
OF  ITS  SOFTUAPE  ON  EQUlPtlENT  WHICH  IS  NOT  SUPPLIED  BY 
DEC. 

VERSION  0 

POBEPT  H.  POSENBAUn  12-AUGUST-74 

DELETE  OUTPUT  FILES 

MACPO  CALLS 

. nCALL   CALL 

.P SECT   MAIN 


;  + 


INPUTS: 

NONE 
OUTPUTS: 

FILES  WITH  FOB'S  AT  LABELS  FDBOUO  h   FDBOUl  APE  DELETED 

AND  CLOSED 


DELETE: 


48 


OuOOOl 


MOV 

CALL 

MOV 

CALL 

RTS 

.  END 


«FDBOUC.RO 
.  DLFNB 
SFDBOUKPO 

DLFNB 
PC 


PUT  ADDR  OF  FDB  INTO  RO 

AND  DELETE  FIRST  FILE  BY  «^NB 

PUT  ADDP  OF  FDB  INTO  PO 

AND  DELETE  SECOND  FILE  BY  FNB 

AND  PETUPN 


DELETE     nflCPO  nilOH     06-DEC-"^7  08:20     PRGE   2-1 
SYMBOL    TPBLE 


E  8 


DELETE  QOQOOOPG 
FDBOUO=  ititit   GX 

PIBS.   OGOOOO 
000000 
MAIN    000022 
EPROPS  DETECTED: 


002  FDBoui=  nttn  GX 

NRCVSFr  000000 

000 
001 
002 


NTRNSFs  000002 
PSX   =  000001 


Rsxiin=  000001 

TRGNUn=  000000 


DLFNB=  «l*l«l  GX 


VIPTUOL  riEnOPY  USED:   m6  UORDS   (  2  PAGES) 
DVNPMIC  MEMORY:   2810  WORDS  (  10  PAGES) 
ELPPSED  TIME:   00:  00:  04 
:BbO:0  DELETE ;£".  2St.0Z0  DELETE/CPF/-SP=UfiPPXM. DELETE 


DELETE 

CRERTED  BY 

MRCRO  ON  6-DEC-77 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

^ifiLUE 

Rf-FERENCES 

DELETE 

000000 

RG 

»2-Hl 

FDBOUO 

=  *»»«** 

GX 

2-H2 

FDBOUl 

=  tttttt 

GX 

2-Hi* 

NPCVSF 

=  000000 

»l-5 

NTPNSF 

=  000002 

»l-H 

PSX 

=  000001 

»l-2 

psxiin 

=  000001 

M-3 

TRGNUn 

=  OQOOOO 

»l-8 

OlFNB 

=  ***tl* 

GX 

2-43       2-45 

AT  08   20 


PfiGE   1 
CREF 


F     8 


L 


G     8 
DELETE  CRERTEO  BY     nRCRO     ON  6-DEC-77  AT  08  20  PfiGE   2 

MfiCPO  CPOSS  REFERENCE  CREF 

MRCPO  MflflE  REFERENCES 

CRLL  «2-3l  2-U3  2-i*5 

EPPOP  81-9 

EPPOPt"  «l-lfc 

EPPOPn  81-32 

EPPOPP  81-H7 

FnTPL  «1-53 


['Pvn2    npcpo  rinoi4    ob-OEC-??  08;  20    prge  1 


H  8 


000001 

3 

000001 

H 

000000 

B 

000000 

;PREFiy  FILE  FOR  RSX-lin  DPll  OR  DUll  ISR 

RSX=    1       .SET  FOR  CUTBACK  CODE  JflN 

RSXliri=l 

RCVSIB=0 

CRBINT=0 


•77 


L 


DP'iu:    :iocpo  nnon    Ob-DEC-77  08:  20    prge  2 


8 


t 
2 
3 


H 

000000 

S 

0002H0 

6 

0002m 

7 

000242 

8 

0C02H4 

9 

000250 

10 

000257 

u 

000261 

12 

000262 

13 

000264 

14 

000270 

IB 

000277 

;PREFIX 

; WHICH 

;RPPEfiR 

HPLT=0 

N0P=240 

CLC  =  2m 

CLV=242 

CL2=2H4 

CLN=250 

CCC=257 

SEC=2fel 

SEV=262 

SE2=264 

SEN=27n 

SCC=277 


FILE   FOR  RSXnn  ASSEMBLER  AND  ANY  OTHER  ASSEMBLER 
DOES  NOT  RECOGNIZE   OPCODC   MNEMONICS  EXCEPT  WHEN  THEY 
IN  THE   OPCODE   FIELD 


DP^ni:  nflcpo  nnoH  Ob-DEC-??  08:  20  PfiGE  3 


J  8 


t 
2 
3 

7 
Z 

to 

It 

12 
13 
IH 
IS 
16 
17 
18 
If 

m 
at 
n 

a«i 

2S 
2i 
t7 


30 
31 
32 

^ 

^ 
37 

38 

39 

HO 

m 

42 

HH 

4b 
47 
HS 
49 
BO 
51 
52 
53 
54 
55 
5b 
57 


;COMTEX-n  DPll  SYNCHRONOUS  LINE  fiOflPTER  I SR 


COPYRIGHT  (C)   1975.  1976. 
DIGITAL  EQUIPMENT  CORPORfiT 


1977 

ON,  MflYNflRD, 


MASS  01754 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON 
R  SINGLE  COMPUTER  SYSTEM  AND  MAY  3E  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED 
OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 


THE  INFORMATION  IN 
WITHOUT  NOTICE  AND 
MITMENT  BY  DIGITAL 


THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONS IB iL ITY  FOR  THE  USE 
OF  ITS  SOFTWARE  ON  EQUIPMEir  WHICH  IS  NOT 
DEC. 


OP  PELlABIL 
SUPPLIED  BY 


TY 


KLl 
CP. RST 


NED 


SYSTEfl  INTO 
CODE  FOR  RSXllD 

S  THAT 

AS  IT 
N  A  SEPARATE  MODULE) 


VOl-01  1/9/74  HMS 

SUPPORT  ADDED  FOR  PSTS,  PSXllD 

VOl-02  7/2/74  RHR 

SUPPORT  ADDED  FOR  RSXllM 

V'01-03  7/23/74  JLH 

CORRECTIONS  TO  CP. RST.  CP 

DISCONNECT  FROM  VECTOR  IN 

vol -04  7/24/74  RHP 

MOVE  CONNECT  TO  INTERRUPT  CODE  FOR  RSXllM 

THE  EXEC'S  BUFFER  POOL.   AS  R  RESULT  THIS 

AND  RSXllM  LOOKS  THE  SAME.   THE  MAIN  DIFFERENCE 

.  .CINT  IS  A  ROUTINE  IN  THE  EXEC  FOP  PSXllD  WHERE 

IS  A  ROUTINE  IN  THE  USERS  AREA  (DEF 

FOP  RSXllM 

VOl-05  10/15/74  RHR 

REPLACE  OFFSET  (60000) 

LOADERS  WHEN  ASSEMBLED 

VOl-06  1/22/75  JLH 

CORRECT  DEFINITIONS  OF  DEVICE  ADDPESS  AND  ViECTiP  FOp  P'-.T'^/E 

vol -07  7/2/75  RHR 

MAKE  DEVICE  PRIORITY  A  GLOBAL  DEFINITION  FOR  PSX 

vol -10  9/5/75  BLP 

FOR  RTll  r"/B 

7/21/76  CEP 

TO  RUN  WITH  VbB 

8'77  CEP 

FOR  CUT-CODE  VERS 


IN  TABLE  FOR 
FOP  RSX-llD 


ADDRESSES  OF  CPB  AND  SIB 


MODIFY 
VOl-11 
MODIFY 
VO 1-12 
MODIFY 


OF  PSTS/E 


C^W 


TITLE  DPV112 


; TABLE  PORTION  ,  INCLUDES  OEFINTIONS>  ISP  TABLES  "EC TOP  DEFINITIONS 
.  IF  DF  PS/HD'PSXliniRTn 


r 


DPvn2    npcpo  nno^    ob-OEC-77  08:  20    prge  3-1 


K  8 


S8 
B9 

bO 
bl 
62 
63 


000000 


0S=0 

os=o 


ENDC 

IF  DF  RSTS 

ENDC 


oH 

65 

bb 

67 

68 

69 

70 

71 

'■     it 

'^''4 

^c. 

7b 

•77 
1  < 

7S 

7q 

SO 

SI 

000000 

82 

83 

OGOOOl 

84 

86 

86 

S7 

SS 

S9 

;DP11  ISR  GLOBRLS 


GLCBL 

GLOBL 

GLOBL 

IF  DF 

nCflLL 

.  V2.  . 

GLOBL 

ENDC 

l"^  DF 

GLOBL 

ENDC 


C.SPS,C.S«RR 

CPR2,CPT2 

CP.  OSU.CP.  MDM.CP.  nOD.CP.  IN!,CP.  KLL 

Pin 

•  DEVICE..  .  V2.. 

. .  CIMT..  .  DlNT,CFKLU.RMON 


RSTS 


CFKLU.CSR.  RJ 


.  IF  DF  03 
LNO=    0 

.  ENDC 
CPD26=1 


DPll  LINE  NUMBER  =-  FOR  RSTS/RSXllD 


DEF 
FOR 


NE   flS    1    TO   CONFIGURE   DPll    ISR 


DECC0rinilD2b 


SYSTEM,  (LINE  2- 
=174770,  VECTORS 
300  THRU  400). 


2780  EMULATOR 
DPll  PSP  ADDRESS 
DEFINED  FROM 


93 

94 

9B 

96 

97 

9S 

QQ 

lO'J 

101 

in: 

103 

177776 

104 

000000 

106 

000001 

106 

000002 

107 

000003 

lOS 

000004 

109 

000006 

110 

000006 

1  11 

00C007 

112 

000006 

113 

000007 

114 

DEFINE  flS  0  TO  CONFIGURE  FOR 

GENERRL  DPll  SUPPORT.   LINE  1. 

DPll  RSRM74760.  VECTOR  310,  GENERAL 

CRB  ROUTINES  (CRBX). 

LINt  2:  DPll  RSR=174770,  VECTOR  300, 

CPB2  ROUTINES. 

ADDITIONAL  DPll'S  CAN  BE  SUPPORTED 

BY  ADDING  ADDITIONAL  VECTOR  DEFINITIONS, 

ISR  LINE  TABLES  AND  CRB  ROUTINES 


START  OF  DPll 

INTERRUPT 

VECTOR  PAIRS 

nttttuu 

DEFINITIONS  OF 

PEGI 

STEPS 

.-    ETC. 

PS=1777:'b 

ROr:;0 

Rl  =  ::l 

R2=%2 

R3=>.3 

R4  =  >,4 

R6=*;6 

Pb-'ib 

R7=*/;7 

SP  =  *.6 

PC  =  ';7 

s 


n 


dpmh:    ti«rpo  ^llO^    ob-DEC-??  08:  20    PRGE  3-2 


L     8 


Di 


lis 

0002H0 

lib 

000254 

117 

Q0027H 

lis 

0002B2 

119 

i:c 

N0P  =  2i*0 
CL2N=254 
SEZN=274 
CLVN=252 


M 


n 


DPVltZ     nPCPO  niiOV      Ofc-OEC-77  08;  20     PPiGE   4 


n    8 


1:2 

123 

1  :h 

i:b 

IZb 

127 

12S 

129 

1:0 

1:1 

132     ' 

177 

GOOrjOO 

!3H 

i:b 

010000 

13fe 

o:oooQ 

137 

040000 

!i8 

130000 

^.3? 

mo  , 

ILH 

m2 

m3 

OOOOuO 

m4 

m5 

mb  ooooco 

m? 

;DP11  ISP  DEFINITIONS 


IF  DF 

6L0BL 

GLOBL 

GL08L 

ENDC 

IF  D*^ 


RSXllDlRSXnri'RTll 
CPRSR 


CPVP 
DE.  PR 

RSTS 


VECTOR 
DEVICE 


ADDRESS  GLOBALLY  DEFINED 
PRIORITY  GLOBPLLV  DEFINED 


DE 
.  E 

CPRTC=0 


ENl' 


PRI=300 


DEFflULT  TO  LEVEL  6   ; 

TYPE  CODE  FOP  INPUT  FPOH  DPI 


CPBi:=10000 
CPB13=2G000 
rPB14=H0000 
CPB15=100000 
.  IF  DF  PSXllP 
.  PSECT  ISP-CON 
OFFrbOOOO 
.IFF 
:iFF  =  0 

ENDC 

IF    DF 

PSECT 

ENDC 


PSXliri 
'.SP.CON 


I 


Ji_8 


I~ 


DP'iUZ     nflCPO  nilQi.     Cb-DEC-<^7  08:20     PfiGE   5 


N  8 


DP 


U9 

ISO 

ISl 

152 

153 

1E4 

ISE 

IBb 

IE" 

IBS 

^  OOOGOH 

IB9 

000010 

160 

161 

OOGOIO 

162 

000012 

163 

000013 

I  >oH 

0000  m 

\  65 

ooonib 

lc6 

000C20 

167 

000022 

IbS 

00002H 

169 

000026 

170 

000030 

171 

000032 

172 

0000 3^ 

173 

000036 

17^ 

nooouo 

175 

oooch: 

176 

OOCOi+H 

177 

OOOOHb 

NDEX  DEFINTIONS  FOR  DPll  LINE  TABLE 


R: 


THESE  GIVE  THE 
FROM  THE  STRRT 
WHEN  USED  BY  THE 
THE  OFFSEiS  RRE  R 
THESE  ARE  USED  IN 
THUS  PRESERVING  fi 
PROV 
^.^ 

:10 


DISPLRCMENTS  OF   THE  VARIOUS  PflRfl*1ETERS 
OF   THE    ISR   LINE   PflRflMETER  flREP  FOR  EACH  LINE 
NTERRUPT  ROUTINES  THEY  REQUIRE  PN  OFFSET 
FOR  RECE'VE  RND  X  FOR   TRflNSniT 

THE  FORn  flflfi-R  OR  flRP-X    IN  THE    l^'TERRUPT  ROUTINES 
CONSISTENT  flNEMONIC  USRGE   FOi?!   EP;:h    'NDEX  WHILE 
DING  TKE   CORRECTLY  OFFSET  VALUE   REQUIRED  BY  THE    inPLEflENTRT  !0N 
, SUBTRACTED  FROM  ANY    INDEX  USED  BY  CPRIS 
SUBTRACTED  FROM  ANY    INDEX  USED  BY   CPTIS 


SRP.r 

LNR- 
STC  = 
XFR  = 
XBR  = 
RPR  = 
RBR  = 
C3L  = 

■:bu= 

CBI  = 
SBL  = 

yup  = 

XBR= 
XBC  = 
SSC  = 
WBF  = 
CPTL 


A. 

LNP+l 
STC-^l 
XFR  +  2 
XBR  +  2 
RPR  +  2 
RBR  +  2 
CBL-^-2 
CBU+2 
CCl+2 
?RL  +  2 
XUP  +  2 
XBO+: 
XB''  +  2 

ss;>: 
=weF+: 


DPll  STATUS  REGISTER  ADDRESS 
(BYTE)  LINE  NUMBER 
(BYTE  J  SIB  TYPE  CODE 
INTERRUPT  SEP  MCE  PRIORITY  -  XhlV 
BR  BUSY  WORD  IN  SCHEDULER  -  XM i T 
INTERRUPT  SERVICE  PRIORITY  -  PCV 
BR  BUSY  WORD  IN  SCHEDULER  -  RC\' 
CRB  LOADER  FOP  THIS  LINE 
CRB  UNLOADER  FOR  TH  :.  LINE 
CRB  'NIT  ROUTINE  FOR  THIS  LINE 
SIB  LOADER  FOR  THIS  LINE 
POINTER  TO  NEXT  XM I T  WORD  PAiR 
CURRENT  XMIT  PUFFER  r^DDRESS 
CURRENT  XMIT  RESIDUAL  BYTE  COUNT 
STRiP  SYNCH  CONTROL  FLAG 
UOPD.'BY^E  SELECT  FLAG 
SIZE  OF  ISP  LINE  TPBi  E  M  BYTES. 


^  _. .-  >^  — n  "•  in- 


0P'in2     hRCPO  nil04     Ob-OEC-??   08:20     PfiGL   6 


B  9 


179 
18C 
181 
182 
183 
184 
ISt. 
186 
IS? 
188 
189 
190 
191 
192 

193 

\Q^ 

196 

19b 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 


000000' 


;STRRT  OF  DP  11 
IF  NDF 

cpns=. 

.THIS  SERIES  OF 
;fiLL  DPll  LINES 

ttttttttn 

LINE  TABLE  FOP  DPll  »2 


NTERRUPT  SERVICE 
RSTS 

CODING  WOULD  BE  CONTINUED  FOR 
IN  THE  SYSTEM. 


000000 


CPP2: 


OGOOOO 
000004 


004267  00Cb4b 


cpt; 


000004   004267  000" 1 4 


000010 
000010 
000012 
000013 


OOOOCOG 
000 
100 


CPS2: 


213 

000014 

OOOOOOG 

214 

000016 

OOUOOOG 

215 

000020 

OOOOOOG 

216 

000022 

OOOOOOG 

217 

000024 

000076' 

218 

000026 

000160' 

219 

000030 

000046' 

220 

000032 

OOOOOOG 

221 

000034 

rooooo 

222 

000036 

oooooc 

223 

000040 

000000 

224 

000042 

000000 

000044 

000000 

llh 

227 

o  ■■>q 

000046 

230 

231 

,-^  ^  r\ 

^Ji^ 

CPB' 


.  IF  OF 
.  GLOBL 
JSP 

,  WORD 
.  ENDC 
JSR 

.  IF  DF 
JSP 

.  WORD 
.  ENDC 
JSP 


RTll 
DC  PR  I 
R5. iPnON 

DC  PRI 

R2.CPPIS 

RTll 
PS-iPnON 

DC.  PRI 

R2.CPTIS 


NOTIFY  RT-11  OF  INTERRUPT  &  CHNG  PRIOR. 
RLSO  SAVES  R5  &.  P4 
RPGUMENT  FOR  INTEN 


NOTIFY  PT-11  Ot     INTEPPUFT  t 
ALSO  SAVES  R5  I   R4 
A-'GUMENT  FOR  INTEN 


CHNG   PRIOR. 


WORD 

CPPSP 

BYTE 

LNO 

BYTE 

100 

WORD 

DE. PRI 

WORD 

C  SPS 

WORD 

DE. PRI 

WORD 

C.  SPS 

WORD 

CRBL2+0FF 

WORD 

CPGU2 

WORD 

CRBIN2 

WORD 

CFKLU 

WORD 

0 

WORD 

0 

WORD 

0 

WORD 

0 

WORD 

0 

:END   OF    !SR    TflBLEi.S) 
ENDC 

IF    DF    PSTS 

GLOBL      CPP2-CPT2.CP3:.CPBS,  I C  i  N2. CS I N2- CF i N2.  rPBLn2 
ENDC 


DF'iUZ     MRCPO  nnOH     C6-D£C-77  08:20     PRGE   7 


C  9 


234 

235 

23b 

237 

238 

239 

240 

241 

242 

243 

244 

245 

24b 

£4"' 

-'  --  -.- 

24  S 

249 

250 

251 

252 

253 

:       254 

255 

25fa 

257 

258 

259 

000400 

260 

261 

000005 

262 

000004 

263 

000007 

264 

265 

266  000046 

016705 

000102 

267  000052 

010567 

000100 

268  000056 

010567 

000166 

269 

270  000062 

005065 

000652- 

271  000066 

062705 

000002 

272  000072 

001373 

273  000074 

274 
275 

000207 

'■ 

276 

277  000076 

052704 

100000 

278  000102 

016705 

000050 

279 

280 

2S1 

282  000106 

005765 

000652' 

283  000112 

100413 

284  0001 m 

010465 

000652* 

285  000120 

062767 

000002  000030 

286  000126 

001003 

287  000130 

016767 

000020  000020 

28S  000136 

000250 

289  000140 

000207 

290 

; CIRCULAR  RECEIUE  BUFFER  L09DER  RNO  UNLOPDER  ROUTINES 

; THESE  TWO  ROUTINES  PROVIDE  fl  FfiCILITY  FOP  LOADING  SINGLE 
;WORD  ENTRIES  INTO  AND  RETRIEVING  SINGLE  WORD  ENTRIES  FROM 
.nN  internally  provided  circular  RECEIVE  BUFFER 

;t   t'ER  SIZE  IS  specified  AT  ASSEMBLY  TIME  VIA  THE  PARAMETER  CRBSZX 

;THE  USER  MUST  DEFINE  THE  RETURN  REGISTER  RETNX,  AND  THE  WORK 
.REGISTERS  CBAX  AND  CBBX  AT  ASSEMBLY  TIME  (CBAX  AND  CBBX  DEFINE  WHICH 
;REGISTERS  THE  TAP  MUST  UTILIZE  FOR  CRB  UNLOADER  SERVICE.  ) 

;THE  ROUTINES  REQUIRE  THAT  BITS  15  AND  14  BE  CLEARED  BEFORE  THE 
;LOADER  IS  CALLED,  SINCE  THESE  ARE  RESERVED  FOR  USE  BY  THE  ROUTINES 

;T0  CREATE  A  UNIQUE  COPY  OF  THESE  ROUTINES  FOR  A  MULTI-CRB  ENVIRONMENT 
; REPLACE  X  WHEREVER  IT  APPEARS  AT  THE  END  OF  A  SYMBOL 
;BY  A  UNIQUE  CHARACTER 

;CRB  FOR  DPll  LINE  2 

.CRB  DEFINITIONS  '     , 


.IF  NDF  RSTS 
CRBS22=40Q 
.  ENDC 
CBA2=:;5 
CBB2=-i4 
RETN2  =  ^i7 

;CPB  INITIALIZATION  ROUTINE 
CRBiN2:  nOV     ICIN2,CBfi2 
m\J  CBA2,  CSIN2 

MOV     CBA2.CFIN2 

CPBLP2:  CLP  CRBLt12(CBP2) 

ADD  »2.CBfi2 

BNE  CRBLP2 

RTS  RETN2 

;CRB  LOADER 


64  CHARACTER  BUFFER 


CPBL2: 


BIS     »100000.CBB2 
MOV     CSIN2.CBfl2 
.  IF  DF  RSXllD 


CPBPS2. 
CRV02: 


ADD 

.  ENDC 

TST 

BMI 

MOV 

ADD 

8NE 

MOV 

CLN 

PIS 


80FF,CBA2 

CRBLn2(CBA2) 

CRB0V2 

CBB2,CRBLf12(C9fl2) 

»2,CSiN2 

CRV02 

ICIN2,CSIN2 

PETN2 


DP'/nz    MPCPO  finoH    ofc-oec-??  os;  20    prge  7-1 


:?i  oooiHz 

292  000150 

293  000152 

295 
29b 

297  000l5^ 

298  00015b 


052765 
000270 
000207 


177400 
17:^400 


OHOOOO  000652'  CRB0V2: 


BIS 
SEN 

RTS 
.  IF 


NDF 


ICIN2; 
CSIN2: 


WORD 
WORD 
ENDC 


D  9 


»H0000.CRBLn2(CBfi2) 

RETN2 
RSTS 


-CRBSZ2 
-CRQS22 


0P''ni2 

nor.  po  Mil  OH  Ob 

-DEC-77 

301 

302 

303 

3014 

OOOlbO 

01b70B 

0000b4 

30S 

GOOlbH 

OlbBOH 

000b62' 

30b 

000170 

100025 

307 

000172 

QOSlbS 

0Q0bS2' 

308 

00017b 

0b27b7 

000002 

309 

C0020H 

001003 

310 

00020b 

01b7b7 

177742 

311 

0002m 

03270H 

040000 

312 

000220 

001004 

313 

000222 

042704 

140000 

314 

G0022b 

000252 

315 

000230 

000207 

31b 

317 

0C0232 

042704 

140000 

31S 

0G023b 

000250 

319 

0C0240 

0002b2 

320 

000242 

G00207 

321 

322 

000244 

000270 

323 

0C024b 

G00207 

32H 

325 

32b 

327 

328 

0G0250 

177400 

329 

330 

331 

332 

000652" 

333 

G00b52' 

zm 

zzs 

33b 

08;  20  PAGE  8 


E  9 


;CRB  UNL ORDER 


CRBU2 


000044 
000034 


CRY02: 


CRBSV 


^. 


CP^No; 


nou 

CnN2.CB92 

nou 

CRBLri2(C8Q2).CBB2 

BPL 

CRBN02 

COM 

CR8Ln2(CBfi2^ 

ODD 

»2.CFIN2 

BNE 

CRY02 

MOV 

ICIN2,CFIN2 

BIT 

»40000,CBB2 

BNE 

CRBSV2 

BIG 

«140000,CBB2 

CLVN 

PTS 

PETN2 

BIC 

»140GG0.CBB2 

CLN 

SEV 

RTS 

PETN2 

SEN 

PTS 

RETN2 

.  IF  NDF 

PSTS 

CFIN2;   .  WORD   -CPBSZ2 

; BUFFER  STOPPGE  FOP  CPB;2. 

.  =.  +C7BSZ2 
CRBLri:  =  . 
.  ENC'C 

;;;;;;;;; ;END  OF  DP i i  tel: 


; BUFFER  LIMIT 


//'//// 


0P"\i:  MRCPO  nno^  oe 

-DEC-77  1 

1 

2 

3 

«i 

5  000662 

b 

7  000652 

01031*6 

8 

9 

10 

11 

12 

13  000fe5^ 

01fc20H 

000004 

m  ooofcfco 

005762 

000036 

15  00066^ 

100002 

lb  OOObbfe 

0427m 

000001 

17  000672 

0im03 

IS  00067^ 

016H0H 

000002 

19  000700 

032703 

010000 

20  00070M 

como2 

^     21  000706 

052701+ 

010000 

22  000712 

004772 

000020 

23 

m 

2S 

m 

tr 

28  000716 

oi:b03 

29 

30  000720 

012602 

31 

12 

33 

3«l 

3S 

3^ 

37 

3s  0007:: 

000207 

39 

08:  20  PAGE  10 


F  9 


;DP11  ISR  TRPE  2  OF  2 


;DP11  ISR  connoN 

;ENTERED  WITH  R2 
CPRIS; 

.IF  NDF 

nov 

IF  NOF 
MOV 

nov 


CPPBl 


CPPB2; 


PROCESS  I 
SRVED  ON 

RSTS    ; 

R3.-(SP) 

RSXliniRT 

R4,-(SP) 

R5.-(SP) 


NG  -  RECEIVE 
STACK  VIA  JSR  R2.  CPRIS 

RSTS  HAS  ALREADY  SAVED  ALL  PEGS 

;SAVE  THREE  MORE  REGS 
11     ;5I.NTSV  ALREADY  HAS  SAVED  R4  8.  R5 


NDF 
NDF 


.  ENDC 

.  ENDC 

MOV 

TST 

BPL 

BIC 

nov 
nov 

BIT 
BEQ 
BIS 
JSR 
.  IF 
.  IF 

nov 

nov 

.  ENDC 

nov 

.  ENDC 

nov 

.  IF  DF 

jnp 

.  ENDC 
.  IF  DF 
RETURN 
.  ENDC 
.  IF  DF 
PTS 
.  ENDC 


SRA-R(R2).R4 

SSC-R(R2) 

CPRBl 

%\,  (R4) 

(R4),R3 

2(R4)-P4 

KCPB12,R3 

CPRB2 

«CPB12<R4 

PC,o)CBL-R(R2) 

RSTS 

RSXllMlPTll 

(SP)+.R5 

(SP)+,P4 

(SP)+,R3 

^SP)+.R2 
RSXllD 
olw.  .  INTX 

PSTS 


'SXlltl'RTl 
PC 


1 


;GET  RECVR  STATUS  ADDR 

;TEST  FOR  CLR  STP  SYNC  ON  1ST  NON-SYNC 

;NOT  SET 

; CLEAR  STRIP  SYNC 

.GET  DPll  PECVR  STATUS  REG 

;GET  DATf,  CHARACTER 

;TEST  FOR  PARITY  BIT  SET 

;BR  IF  EVEN  PARITY 

;SET  ODD  PARITY  CHECK  BIT 

;G0  LOAD  CIRCULAR  RECEIVE  BUFFER 


:PE5T0PE  PEGS 


; RETURN  TO  CODE  IN  THE  EXEC  BUFFER  POOL 


DP'/nz  riRCPo  nnoH  oe-DEC-?? 

G  9 
08:  20  PRGE  11 

m 

;OPn  iSR  connoN  processing  -  transmit 

42 

.ENTERED  WITH  R2  SRVEO  ON  STRCK  VIA  JSR  R2,CPTIS 

H3  00072^ 

CPTIS: 

44 

.IF  NOP  RSTS           ;RSTS  HRS  SPVED  ALL  THE  REGS 

45  000724   C1D34I3 

nOU     R3. -(SP)       ;SflVE  REGS 

4b  000726  01004b 

MOV     RO.-(SP)       ; 

47 

.  IF  NDF  RSXnniRTll 

48 

MOV     R4,-(SP) 

49 

MOV     R5. -(SP) 

50 

.  ENDC 

51 

.  ENDC 

52  000730  016204  000000 

MOV     SRfi-X(R2),R4    ;GET  RECVR  STATUS  ADDP 

53  000734   016403  000004 

MOV     4(R4),R3        ;GET  XMIT  STATUS 

54  000740  042703  013577 

BIC     »13677,R3      ;  CLEAR  ALL  BUT  INTERRUPT 

55 

;  CAUSING  FLAGS  ... 

56  000744   040364  G00004 

BIC     R3.4(R4)        ;.  .  .  IN  TCSR 

57  000750  032703   160000 

BIT     «160000,R3      ; TEST  FOR  ERROR 

5S  000754   001062 

BNE     CPPER          ;BR  IF  ERROR 

59  000756  005362  000030 

CPTIO:   DEC     XBC-X(R2)       ;DECR  BYTE  CNTR 

60  000762  001423 

BEQ     CPTB4          ;CNTR  NOU  ZERO 

61  000764   005262  000026 

INC     X&fl-X(R2)       ;UPDATE  BUFF  ADDR  POINTER 

62  000770  032762  000200 

000034         BIT     »200,WBF-X(R2^   ;IS  IT  BYTE  TYPE 

63  000776  001004 

BNE     CPTB2           :N0 

64  001000   117264  000026 

000006  CPTBl;   nOVB    ilX9fl-X(R2),  6(R4 )        ;  OUTPUT  THE  CHAR 

65  001006  000405 

BP      CPTIX          :G0  EXIT 

66  001010  005262  000026 

CPTB2;   INC     XBfl-X(R2)       ; UPDATE  BUFF  ADDR  POINTER 

67 

;T0  NEXT  WORD 

68  001014   017264   OOOOCb 

000006   CPTB3:   MOV     iXBfl-X(R2 J. 6(P4 )        .OUTPUT  THE  CHAP 

69  001022 

CPTIX; 

70 

.IF  NDF  RSTS 

71 

.  IF  NDF  RSXllM&PTll 

72 

MOV     (SP)+.R5        ; RESTORE  PEGS 

7Z 

MOV     (SP)+.P4 

74 

.  ENDC 

75  001022  012600 

MOV     (SP)+-PO 

76  001024   012603 

MOV     (SP)+<R3 

■77 

1  1 

.  ENDC 

■ 

7S  001026   012602 

MOV     (SP)+.R2 

79 

.  IF  DF   RSXllD 

SO 

JMP     ii».  .  INTX 

SI 

.ENDC 

S2 

.  IF  DF   RSTS 

S3 

RETURN 

S4 

.  ENDC 

85 

IF  DF  RSXliniPTll 

86  001030  000207 

RTS     PC             ;  RETURN  TO  CODE  IN  THE  E.XEC  BUFFER  POOL 

87 

.  ENDC 

88 

89  001032  016203  000024 

CPTB4:   MOV     XWP-X(R2)..P3    ;  WORD  PPIP  PTR 

90 

.  IF  DF   RSXllD 

91 

ADD     II0FF,R3 

92 

.  ENDC 

93  001036  012362  000026 

MOV     (R3)+,XBR-X(R2)  ;  OUT  IN  CURP.  XMIT  ADDR  FTP 

94  001042  001411 

BEQ     CPTB5          ;  IF  ZERO-  WE'RE  DONE 

95 

.  IF  DF   RSXllD 

96 

ADD     80FF.XBfl-X(R2) 

97 

.  ENDC 

^ ■ ^ — 

DP'/n2     MRCPO  nilOH     Ob-OEC-77  08:  20     PfiGEll-1 


H  9 


9S  00104H 

012362 

000030 

MOV 

(R3)+,XBC-X(R2) 

99 

.  IF  OF 

RSXllO 

iOO 

SUB 

II0FF.R3 

101 

.ENDC 

i02 

03 

04  001050 

010362 

000024 

MOV 

R3/XWP-X(R2> 

105  001054 

032762 

000200 

000034 

BIT 

«200,WBF-X(R2) 

106  001062 

001354 

BNE 

CPTB3 

iC7  001064 
OS 
0?  001066 

000745 

BR 

CPTBl 

CPTB5: 

10 

.  IF  OF 

RSX 

11  001066 

016700 

OOOOOOG 

MOV 

TflSKflD.RO 

12 

.  IF  DF 

RSXllD 

13 

BIS 

840<fl.  EF(RO) 

m 

BISB 

8EV  SE.iS.  SERFG 

15 

.  IFF 

lb  0010:^2 

052760 

000040 

OOOOOOG 

BIS 

«40.T.  EFLG(RO) 

17  001100 

016767 

OOOOOOG 

OOOOOOG 

MOV 

STSKHD.^RQSCH 

IS  001 106 

005067 

OOOOOOG 

CLP 

SSIGFL 

19 

.  ENDC 

20 

.  IFF 

21 

MOV 

LN9-X(R2),R5 

22 

ADD 

II1000.R5 

23 

SIC 

»40000,P5 

24 

JSP 

PC.aSBL-X(R2) 

25 

.  ENDC 

26  001112 

042764 

000100 

000004 

BIC 

«100.4(R4) 

27  001120 
29  001122 

000740 

BR 

CPTIX 

032703 

040000 

CPPEP: 

BIT 

«CPB14,R3 

30  001126 

001410 

BEQ 

CPER2 

31  001130 

016404 

000002 

rioH 

2(R4).R4 

32  001134 

052704 

020000 

BIS 

nCPB13.R4 

2Z   001140 

004772 

000014 

JSP 

PC,iCBL-X(P2) 

34  001144 
35 

016204 

000000 

MOV 

SRfl-Xi.R2).P4 

3b 

37  001150 

CPEP2: 

22   001150 

105703 

CPER6: 

TSTB 

P3 

39  001152 

100701 

BMI 

CPTIO 

40  001154 

000722 

BR 

CPTIX 

41 

.  IF  DF 

RSXllDIPSXl in 

42  000000 

PSECT 

xxx 

43 

.  ENDC 

PUT  IN  CURR.  XMIT  BYTE  CN*R 


;PUT  IN  PTR  TO  NEXT  WORD  PfiR 
; IS  IT  BYTE  TYPE 
;N0.-  GO  OUTPUT  CHfift 
;G0  OUTPUT  CHPR 


;SET  'SIB  lNTRY  event  FLAG' 

;SET  SIGNIFICANT  EVENT 

;SET  SIB  ENTRY  EVENT  FLOG 
;DECLPRE  SIG  EVENT 


;GET  LINE  NUMBER  -  CODE 

:flDD  2  TO  TYPE  CODE 

; IWORD  WORK  ENTRY 

;G0  LOAD  INTERFACE  6 JFFER 

; CLEAR  INTERRUPT  ENABLE 
;N0  EXIT 

;TEST  FOR  DATA  OVERRUN  FLAG 

;BR  IF  NOT  SET 

;READ  DATA  REG  FOR  CHRP 

;SET  RECEIVER  OVERRUN  BIT 

;G0  LOAD  CRB 

; RESTORE  STATUS  POINTER 


;  TRANSMIT  DONE  ALSO"? 
;YES.  GO  PROCESS  IT 
;N0.-  GO  TO  EXIT 


DP'Mi:    MRCPO  nnoH    ob-DEc-77  os;  20    PfiCE  12 


\^b 

1U7 

m9 

150 
151 
152 
153 
15H 
1E5 
15to 
15^ 
15S 
159 
IbO 
161 
lb2 
lb3 
lb^ 
165 
166 
167 
16S 
169 
170 
171 
172 
173 
17H 
175 
176 
177 
178 
179 
ISO 
ISl 

is: 

1S3 
\SM 
1S5 
ISb 

!s;- 

ISS 
1S9 
190 
191 
192 
193 
191+ 
195 


000000 
00000^ 
000010 
000012 

oooom 

000016 
000022 
000024 
000032 
000034 
000042 
000044 
000046 
000052 
000054 
000062 
000064 
000072 
000074 
000076 
000102 
000104 
000106 
000112 
000116 
000124 
G00126 
000134 
000136 
000144 


000144 
000152 
000154 

000156 
000160 


000002 


016203 
016305 
012104 
105704 
100012 
032704 
001404 
052763 


000407 
042763 
005704 
100012 
032704 
001404 
052765 
000403 
042765 
012104 
001426 
010463 
012102 
003424 
010263 
01U163 
032763 
001004 
117365 
G00403 
017365 


052765 
0002^^0 

000207 

000270 
000207 


DPll  OUTPUT  STRRTUP  ROUTINE 

ENTERED  FROM  nOTRIX  TYPE  SWITCH  UITH 

REGS  SET  flS  FOLLOWS 

Rl  -  POINTER  TO  INDICfiTOR  WORD 

FIRST  X-rilT  WORD  PAIR  FOLLOWS 
R2  -  POINTER  TO  B9SE  OF  LINE  TABLE 
P3  -   LINE  «   fiS  fl  WORD    INDEX 

IF  ILLEGAL  ADDRESS  OR  BYTE  COUNT,  RETURN 

WITH  N  CONDITION  CODE  SET 


NDICATOR  WORD 


000002 
000010 


000100 

000200  000044 

000200  000044 

04G0G0 

000002  GGGOOH 

000002  000004 

000036 

000040 
000034 
000200  000044 

00003o  000006 

000036  000006 


CP.  OSU: 


CPOSUl: 
CP0SU2: 


':posu3: 

CF0SU4: 


CF0SU9: 


CP0SU5: 
CPOSUb: 


OOGIOC  000004 


CPOSUX: 


CP0SU7 


CPINX=2 

nov 
nov 

MOV 

TSTB 

BPL 

BIT 

BEQ 

BIS 

BP 

BIC 

TST 

BPL 

BIT 

BEQ 

BIS 

BR 

BIC 

nov 

BEQ 

MOV 

MOV 

BLE 

MOV 

MOV 

BIT 

BNE 

MOVB 

BR 

MOV 

.  IF  DF 
ADD 

ENOC 
BIS 
CLN 
PTS 

SEN 
RTS 


CPINX(R2),R3 

SRA(R3),R5 

(P1)^-,R4 

R4 

CP0SU2 

«100.R4 

CPOSUl 

»200,WBF(R3) 

CF0SU2 

«200,WBFCR3) 

R4 

CP0SU4 

«40000,P4 

CP0SU3 

«2,4(R5) 

CP0SU4 

82,4fR5) 

(R1)+,R4 

CPOSUX 

R4,XBfl(R3) 

(Rl  )+,P2 

CP0SU7 

R2.XBC(R3) 

R1,XWP(P3^ 

«200.WBF(P3) 

CP0SU5 

i)XBfi(R3nb(R5) 

CPOSUb 

i)XBA(R3),b(R5) 

RSXllD 
»OFF.,  XBR(R3) 

»100,4(R5) 

PC 


PC 


;LINE  TABLE  INDEX  TO  I SR  TABLE  POINTER 

;GET  ISR  TABLE  PTR  FOR  LINE 

;SET  POINTER  TO  RCSR 

;PUT  INDICATOR  WORD  IN  R4 

; BYTE/WORD  FLAG  TO  BE  SET 

;N0 

;  IS  BIT  6  SET 

;N0 

;SET  FOR  WORD  TYPE 

; CLEAR  FOR  BYTE  TYPE 

;  IS  IDLE  SYNC  TO  BE  CHANGED 

;N0 

: iS  BIT  14  SET 

;N0 

;SET  IDLE  SYNC 


; CLEAR  IDLE  SYNC 

;PUT  BUFF  ADDP  PTR  IN  R4 

;(IF  ZERO,  THIS  WAS  IDLE  SYNC  REQ.  ONLY) 

;AND  IN  CURR.  XMIT  ADDP  PTR 

;PUT  BUFF  BYTE  CNT  PTR 

;  ILLEGAL  BYTE  COUNT 

;PUT  IN  CURR.  XMIT  CNTP 

;PUT  IN  PTR  TO  NEXT  XM 

; IS  IT  BYTE  TYPE 

;  NO 

; OUTPUT  1ST  CHAP 


N 


R2 


PTR 
T  WORD 


PAIR 


; OUTPUT  1ST  CHAR 


;SET  INTEPPUFT  ENABLE 
MATRIX  SWIKH  EXIT 

MATRIX  SWITCH  EXIT 


Dpini:    hQCPO  niiOH    os-dec-??  o8:  20    Pf^GE  \z 


J  9 


I 


197 
198 
199 
200 
201 
202 
203 
204 
206 
20b 
207 
208 
209 
210 
211 
212 
213 

2m 

215 
21b 
217 
218 
219 
220 
221 
222 
223 
22H 
225 
226 
227 
228 

230 

231 
232 
^j>3 

*tf  t-r  ^ 

23b 
237 


000162 
OOOlofc 
000172 
000176 
000200 
000204 
0G0210 
G00212 
000216 
G00220 
000224 
000226 
G00232 
GGG232 
G00236 
G00240 
G00242 

G0024H 
000246 

000250 
000254 
000262 


016104 
016205 
016503 
010305 
062705 
C32704 
001415 
032704 
001405 
032704 
001411 
052715 

032704 
001012 
G00254 
000207 

000270 
000207 

042715 
0'-{2765 
000763 


000002 
000002 
000010 

00G004 
100125 

000001 

000002 

000001 

1 00000 


000001 

004100   177774 


23S 

000264 

005004 

ZZ'i 

000266 

011303 

240 

OOG270 

011605 

241 

G00272 

032705 

001000 

242 

G00276 

001402 

243 

000300 

052704 

000001 

244 

000304 

032705 

002000 

245 

000310 

001402 

246 

000312 

052704 

000002 

247 

000316 

032705 

010000 

24  S 

000322 

001402 

249 

000324 

052704 

000004 

250 

000330 

032705 

000001 

251 

000334 

001402 

252 

000336 

052704 

000010 

253 

000342 

DPll  MODEn  CONTROL  ROUTINE 

ENTERED  FRO1I  DEVICE  TYPE  MRTRIX  SWITCH  WITH 

REGS  SET  flS  FOLLOWS 

Rl  -  POINTER  TO  THREE  WORD  PRRRflETER  LIST 
R2  -  POINTER  TO  BASE  OF  LINE  TABLE 
R3  -  LINE  I  flS  R  WORD  INDEX 

IF  nODEn  STPTUS  REQUESTED,  STRTUS  WORD  IS  PLACED  IN 

THIRD  WORD  OF   USER   PflRflriETERS 

IF  ILLEGAL  OPERATION,  RETURN  WITH  (N  CONDITION  CODE  SET 


FORMAT 

LOCP: 

LOCP+2: 

L0CP'»-4; 

CP.  MDM: 


OF  PARAMETER  LIST 
UNSPECIFIED 

MODEM  CONTROL  BIT  SETTINGS 
FOR  MODEM  STATUS  RETURN 


CPMCA; 
CPMCD: 

CPMGE; 


CPMER 


CPMPA: 


SENSE 


CPMCG: 


CPncH; 

CPMlJ: 
CPMCK; 
CPMCL; 


nov 

MOV 
MOV 
MOV 
ADD 
BIT 
BEQ 
BIT 
BEQ 
BIT 
BEQ 
BIS 

BIT 
BNE 
CLZN 
RTS 

SEN 
RTS 

B  I  C 

BIG 
op 

MODEM 

CLR 
MOV 
MOV 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 


2(R1),P4 

2'-R2),R5 

SRA(R5),R3 

R3.R5 

«4,P5 

»100126.R4 

CPMER 

»1.R4 

CPMCA 

»2.P4 

CPMPA 

;i  (R5) 

SIOOOOO^ 
CPMlG 


P4 


PC 


PC 

;001-  >R6' 
«4100- -4iF5) 
CPMCA 
CONTROL 

R4 

(R3).P3 

(R5)-R6 

S10C0-P6 

CPnCH 

nl,R4 

«2000,R6 

CPMCJ 

;2,R4 

S10000.R6 

CPMCK 

«4,R4 

I51-R6 

CPMCL 

;iO-P4 


R4  HAS  BIT  SETTINGS 

R5  HAS  ISR  TABLE  ADDR  FOR  LINE 

R3  HAS  RECVR  STATUS  REG  ADDR 

COPY  R3  INTO  R5 

R5  HAS  XMIT  STATUS  REG  ADDR 

IS  IT  PROPER  COMMAND 

NO- ITS  ERROR 

IS  BIT  0  TERM  PDY  I  NO  SFT 

NO 

IS  BIT  1  EQUAL  1 

NO-GO  CLEAR  TFRM  READY 

SET  TERMINAL  f^EADY 

BIT  16  SET  TO  PEAD  STATUS 
YES-GO  PEAD  STATUS 
SET  N  AND  Z  TO  0 
GO  EXIT 


SET  N  TO 
GO  E.MT 


1 


CLEAR 


;CLEAP 
RECEIVE 


TERM  READY 
ENABLE  AND 


ACTIVE 


CLEAR  R4  TO  BUILD  SENSE  UOPD 

READ  RCSR 

READ  TCSR 

IS  REQ  TO  SEND  SET 

NO-NOT  SET 

SET  REQ  TO  SEND  ON 

IS  CLEAR  TO  SEND  SET 

NO 

SET  CLR  TO  SEND  ON 

IS  DATA  SET  READY  SET 

NO 

SET  DATA  SET  READY 

IS  DATA  TERM  READY  SET 

NO-NOT  SET 

SET  DTP  IND 


DP"u: 

n«rpo  nllO^  06 

-DEC-77 

08: 

:sH 

2E.S 

0003142 

032705 

004000 

:sb 

0003^6 

001H02 

:s7 

000350 

052704 

000040 

2SS 

00036^ 

2S? 

000354 

010U61 

000004 

2bO 

000360 

000727 

K  9 


CPnCM: 

BIT 

»4000,R5 

BEG 

CPnCN 

BIS 

#40. R4 

CPncN 

CPncP; 

MOV 

R4,4(R1) 

BP 

CPMGE 

;  IS  CARRIER  ON 

;N0 

;SET  CRRRIER  ON 

; STORE  SENSE  UORD 
;NOU  GOOD  EXIT 


r 


r 


H'P-niz    riMCPo  nno^    Ob-DEC-??  08;  20    prge  m 


L  9 


ZbH  00115b 

Zbb 

266 

267 

268 

2b? 

270 

271 

/^  ^  n 

->-77 

£-5 

2"^ 

,^  -^  -^ 
*.<  <  > 

•"-TO 
4.  >'  O 


280 
281 

283 

28^ 

286 
28b 
287 
288 
289 
290 
291 

293 
294 
295 
29b 
297 
298 

ZOO 
301 
302 
303 
ZOH 
305 
30b 
307 
308 
309 
310 
311 
312 
313 
314 
315 
31b 
317 
31S 


CC115t 
001162 
00116b 

ooir: 

00117b 

C01200 
001204 
001206 
001212 
001214 
001220 
001220 
001220 
001224 
00122b 
001232 
001234 
001240 
001244 
001246 
001254 
0012b2 
0012bb 
001270 
001274 
00127b 
001302 
00130b 
001310 
00131b 
001322 
001324 
001330 
001332 
00133b 
001340 
001 34U 

00134b 


0161C4 
016202 
016205 
032704 
OOlU^l 

032704 
OC1405 
032704 
001447 
052715 


032704 
001405 
032704 
001442 
052715 
032704 
00140b 
llblb5 
llblb5 
032704 
nnm35 

^2704 
^24 
_:^15 
032704 
001422 
G527b2 
032704 
0C1417 
042715 
000414 
042715 
00C730 
042715 
000735 
042715 


000002 
00G002 
GOOGIO 
115nm 


GOOOCl 
000010 
000100 

001000 

002000 

000002 
0040CG 

00000b  000003 
000007  000007 
010000 

020000 

000001 
040000 


1  ^•y-^-^-y 

1  I  f  I  (  I 

100000 
004000 
OOOICO 
000002 
000001 


000042 


.  IF  DF  RSX 

.  PSECT   ISR 

.  ENDC 
DPll  nODE  CONTROL  ROUTINE 

ENTERED  FROn  DEVICE  TYPE  HflTRIX  SWITCH  WITH 
REGS  SET  flS  FOLLOWS 

Rl  -  POINTER  TO  FOUR  WORD  P^^^RflHETER  LIST 

R2  -  POINTER  TO  BfiSE  OF  LINE  TABLE 

R3  -  LINE  »  RS  fi  WORD  INDEX 


;FOPnfiT 

;L0CP: 

;L0CP'H 

;L0CP+2 

-  LUCP'»'4 

.LOCP-^b 

■:P  MOD: 


CFCGfi 


CPCHfl; 
CPCP; 

CPCB. 


CPCC: 


:pcd: 


CPCPR: 
CFCPB: 

CFCH: 
CPCn 

CPCP: 


OF  PflPRMETER  LIST 

UNSPECIFIED  (LOW  BYTE) 
40=SENSE  REQUESTED 
MODE  CONTROL  BIT  SETTINGS 
FOP  MODE  STOTUS  RETURN 
SrNC  CHOROCTER  UORD 


nov  2(Pn.P4 

MOU  2'P2),P2 

MOU  Sf^P(P2).P5 

BIT  »11504  1.R4 

BEQ  CPCEX 

BIT  «1.P4 

BEQ  CFCfl 

BIT  »10.P4 

BEQ  CFCH 

BIS  S100-'P5) 


BIT   .    81000  P4 

BEQ  CFCC 

B!T  ^  ^  82000. P4 

BEQ  CFCn 

BIS  «2  (P5) 

BIT  84000. R4 

BEQ  CPCD 

nOUB  b'.Rl  ).  3R5  ' 

MOVB  7(P1,>,7'R5> 

BIT  810000. P4 

BEQ  CPCS 

BIT  820000. P4 

BEQ  CPCP 

BIS  81, (R5) 

BIT  840000- P4 

BEQ  CPCP 

BIS  ;   8-l.SSC'P2' 

BIT  8100000.-R4 

BEQ  CPCS 

BIC  84000. 'P5) 

BR  CPCS 

BIC  8100-  ^P5) 

BP  CPCHfi 

BIC  82. 'P5) 

BR  CPCC 

BIC  81.(P5> 


R4  HOS  BIT  SETTINGS 

R2  HAS  CPRi  flDDR  FOR  DPll  LINE 

P5  HfiS  RECVR  STATUS  REG  flODR 

IS  IT  SET  MODE  COMMAND 

NO-GO  SEE  IF  SENSE 

GO  EXIT  -  SINCE  DON'T  DO  SENSE 

iS  INT  AND  M  IND  SET 

NO-GO  TEST  NEXT 

IS  RCUE  INT  ENAB  IND  SET 

NO 

SET  RCVE  INT  ENPB  IN  PCSR 


IS  HALF  DUPLEX  i ND  SET 

NO-GO   TEST   FOP   riFXT 

eiT    10   SET 

NO 

SET  BIT  1  IN  PCSR  FOP  HALF  DUPLEX 

IS  SYNC  CONTROL  IND  SET 

NO-GO  TEST  FOP  NEXT 

MOVE  iCU   BYTE  OF  SYNC  CHAP 

MOVE  HIGH  BYTE  OF  SYNC  CHAP 

BIT  12  SETiSTPlF  SYNC  !ND) 

NO-GO  TEST  FOP  SENSE 

BIT  13  SET 

NO 

SET  BIT  0  IN  PCSR 

BIT  14  SET 

NO 

SAVE  CLP  STP  IP  S'NC  IND 

RECEIVE  ACTIVE  TO  BE  C LEAPED 

NO 

;YES      CLEPF    IT 
GO    TEST   FOP    SENSE 
CLEAR   RCVE    INT   ErifiB    IN   PCSP 

CLEAR    BIT    1     !N  PCSP 

CLEAR    BIT   0    !N  PC  IP 


u         n 


DPuli:  n^^CfO  nnO^  Ob-DEC-77  08:  20  PftGE  m-1 


n  9 


Ci 


319  001352 

000753 

320  0013S4 

005062 

221  001360 

000<'56 

322 

323 

324 

32E.  001362 

326  001362 

000254 

327  001 36H 

00020^ 

32S 

330 

:>31  000362 

332 

333 

33*4 

335 

336 

33:- 

33S 

33? 

340 

3m 

3H2 

Z^Z   0003b: 

3144  00036: 

ooo::*o 

346  000364 

000207 

000042 


CPCR: 


BR 
CLR 


CPCPfi 

SSC(R2) 

CPCPB 


; SENSE  MODE  CONTROL 


CPCS: 
CPCEX: 


CL2N 
PTS 


PC 


;SflVE  DON'T  CLP  STRIP  SYNC  I  NO 


SET  GOOD  EXIT  CODE 
RETURN  TO  USER 


IF  DF  PSX 
PSECT   XXX 
ENDC 


;DPn  KILL  I/O  ROUTINE 

.ENTEi^ED  FROM  'JVH^i    TYPE  HPITRIX  SWITCH 

,UlTH  REGISTERS  PRESET  flS  F0LL0t4S: 


PI-POINTED  TO  KILL  I/O  PflPRMETEP  LIST 
R2-P0 INTER  TO  BASE  OF  TOP  LINE  TPBlE 
P 3- LINE  ;  flS  P  MOPD  INDEv 


CP  KLL 

CP  KEF 


SEN 
PTS 


PC 


;  I  NO  I C ATE  EPPOP 


N 


n 


DP<ni2     m^lPO  nnOH     06-0£C-77  08:  20     PfiGE    IB 


N     9 


3h7 

;DP11  LINE  TABLE  INITIRL I2PTI0N 

ROUTINE 

!4S 

; ENTERED  FROM 

DEVICE  TYPE  flRTR  1 

^  SWITCH  WITH 

34  » 

;REGS  SET  flS  FOLLOWS 

^0 

Rl  -  POINTER  TO  USER 

PPRRMETER  LIST 

361 

;       R2  -  POINTER  TO  BASE 

or 

LINE  TABLE 

362 

;      R3  -  L 

INE  «  nS  fl  UORD 

INDEX 

353 

; REPORTS  BRCK 

ERROR  CODE  4  IF 

LINE  NUMBER  NOT  FObND 

35i» 

.  GLOBL 

CPRS 

■'."'  ■.•■.■'  ^  '■■■■.-'.''-.-■■  ' 

355 

36b 

36:*  GGG366 

CP.  INI: 

36S  000366 

012700 

000000' 

tlQM 

«CPRS,RO 

;STORT  OF  DPll  LINES 

369  000372 

010062 

000002 

CPTINB:  m\f 

R0,2'R2) 

;SET  UP  DPll  flDDR 

3b0  0003""6 

016062 

000026  nonnn4 

MOU 

CBU'P0).4(R2) 

;SET  POINTER  TO  CRB  UNLOflDER 

361  000404 

004770 

000030 

JSR 

PC- aCBl (PO^ 

;CflLL  CRB  INIT  ROUTINE 

362 

.  IF  DF 

PSTS 

363 

CMP 

SPO'P0^«170000 

.MPS  THE  POINTER  THAT  THE  MONITOR  GIVES  US 

364 

;BEEN  CHANGED  TO  THE  ADDRESS? 

3bb 

BHI 

CPTINI 

;YES 

3bb  . 

nov 

iSPfi(P0).P3 

;N0  -  SET  IT  UP  RIGHT  FOR  THIS  CODE 

367  ■ 

MOV 

P3.SRfi'P0) 

368 

CMP 

SPfl(P0.i.»170C00 

,   IS  CSR  PJ  SET  RIGHTS 

369 

BLO 

EPPOR 

;N0  -  IS  ERROR 

370 

CPTINI; 

371 

.  ENDC 

372 

.  IF  DF 

PsyiiD'Psxiin 

'PTll 

Z7Z   000410 

010006 

MOV 

P0-i?6 

:COPV  TRBLE  ADDPESS 

37^   000412 

012700 

OOOOOGG 

MCI' 

»CPVP..  RO 

375  000416 

012701 

000006' 

MOV 

«CPP2.R1 

376  000422 

006002 

CLP 

P2 

377  000424 

016603 

000020 

MOV 

PPR(P?-  KP3 

37S  0004  30 

00473/ 

OOOOOOG 

J^" 

PC, in.  .  C INT 

; CONNECT  TO  INTERRUPT  VECTOR 

37'^   000434 

1Cj3424 

BCS 

LRPOP 

380  000436 

022020 

CMP 

(R0)•^.  fPO^  + 

;UP  TO  TRANSMIT  VECTOR 

381  000440 

012701 

000004' 

MOV 

»CPT2,P1 

3S2  000444 

016603 

000014 

MOV 

XPP(P6)-P3 

3SZ   000460 

004737 

OOOOOOG 

JSP 

PC-i)«.  .  CI  NT 

; CONNECT  TO  TRANSMIT  VECTOR 

;'?4  C0046'» 

103414 

BCS 

EPROP 

3bi   000466 

012700 

000000' 

MOV 

;CPOS-P0 

;RI-.SET  START  ADDP  rflijSE  CLOBBERED  IT 

3?b 

.  ENOC 

iS7  000462 

016003 

0000 10  - 

MOV 

SRfi'R0.'.P3 

;NOU  GET  STATUS  REGISTER 

3SS  0034 bb 

006023 

CLR 

(P31  + 

;AND  ILEAP  IT 

3S9  0004^0 

006723 

T^-'' 

(R3^  + 

390  000472 

006023 

CLR 

(R3)  + 

/ 

391 

1  F  DF 

PTM 

392 

:    ^  MOV 

;PT.  END-FO 

;SET  UP  FOP  EXiT  TIME 

393 

vr-  ^ 

1 

; DISABLE  INTERRUPT  UHEN  THE 

394 

, PROGRAM  ABORTS  FOR  ANY  REASON 

395 

.  £NDC 

396  0C0474 

000260 

CLN 

397  0004  76 

000207 

CPTlND:  RTS 

PC 

; MATRIX  SWITCH  EXiT 

39S  000500 

062761 

000010  000004 

CPTINC:  BIS 

ffl0.4iRl) 

.SET  USER  ERROR  CODE 

399  000506 

000270 

EPPOR:   SEN 

400  000610 

401 

402 

000207 

RTS  PC 

;NOU  EXIT 

IF  DF 

RTll 

40j 

'  /  '  .»  •   t   f    t   1   .'   .•    r   :   r    . 

"///.' 

^  T  iT  ■— "r--7-^--^  Tir  '  '"in      ii  nr 


pBKjgjgij arsan trifiiSirr i,iinrii*iiBi*^iTi  n     \*n  ski  ,~xw.sssnssmm 


DP'/n2     MRCPO  n:iOH     Ob-DEC-77  08:  20     PRGElB-l 


B    10 


^os 

407 
408 
409 
410 
411 
412 
413 
414 
41B 
41b 
417 
41S 


;    PRRRnETEP   BLOCK   FOR     DEUICE 
AT.  END:    .  BYTE        0 
BYTE        14 
.  WORD        ATTEND 


CRLL 

.NO   CHANNEL 

; FUNCTION  CODE 

;LIST  OF   WORDS   TO  BE   LOADED 

, AT   PROGRAM   TERrtNATlON 


ATTEND 

WORD 

CPRSR 

.  WORD 

0 

.  WORD 

CPRSP*4 

.  UOPu 

0 

/ 

.  UORD 

G 

ADDRESS  OF   COPIM 
FORCE    IT   TO  0 
TPANSniT   CSW 

AlSC   force    TO  C 
END  OF   LIST 


:sw 


///.»///// 


ENDC 


DP'iHZ    n«cPO  nnoH    Ob-OEC-??  08: 20    prge  ib 


C   10 


U20 

1+21 

•422 
1423 
•42U 

428 
^Zb 
U27 
42S 
429 
430 
431 
432 
433 
4  34 


472 
473 
474 
47B 
47b 


;DP-11  RESTRRT  ROUTINE 

;ENTERED  FROn  DEVICE  TYPE  flPTRlX  SWITCH  WITH 

;REGS  SET  PS  FOLLOWS: 

;       Rl  -  POINTER  TO  USER  PRRflMETER  LIST 

;      R2  -  POINTER  TO  BRSE  OF  LINE  TPBLE 

;       R3  -  LINE  «  flS  R  WORD  INDEX 


000B12 

000E12  01270B  000000' 


CP.  RST: 


4  35 

000516 

012700 

OOOOOOG 

43b 

000522 

004737 

OOOOOOG 

437 

000526 

022020 

43S 

000530 

004737 

OOOOOOG 

439 

440 

000534 

C165G3 

000010 

441 

000540 

005023 

442 

000542 

005723 

443 

00G544 

005023 

444 

445 

000546 

000250 

446 

000550 

O0C207 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

45S 

45? 

4bQ 

4bl 

462 

463 

464 

465 

466 

467 

46S 

469 

4  70 

471 

GLOBRL 

RJEPPT: 


GLOBL  CP.RST 


.IF  NDF  RSTS 

nOV     »CPfiS,R5       ;GET  P.DDR  OF  START  OF  T^^LE 

.  IF  OF  RSX11D!RSX11«!RT11 


nov 

JSP 
CMP 
JSR 
.  ENDC 

riov 

CLP 

TST 

CLP 

.  ENDC 

CLN 

PTS 


«CPVP,RO 
PC,5)«.  DINT 
fR0)+, rRO)+ 
PC,ii«,  .  DINT 

S^fl(R5),R3 
(R3)  + 
«P3i  + 
( P  3)  + 


PC 


SET  UP  TO  DISCONNECT  FROh  VECTOR 
f^ND  DO  IT 

THEN  BUMP  TO  NEXT  VECTOR  ADDRESS 
AND  DISCONNECT  FROn  IT 

RND  THEN  ADD  OF  STATUS  REG 
CLlAR  THE  REGISTER 


.  IF  or  PSTS 

THPOPG  C'nih.T,34 

.  UOPD  CTPLR 
UNORG 


GLOBAL   <CTPLR> 

TMPr.Pi: 
.  UORD 
UNORG 

TriPORG 
.  WORD 
UNORG 


RjnCTL  12 
CPPIS 


RJMCTL- 16 
CPUS 


GLOBAL   <CPRIS,CPTIS> 

TMPORG  PjnCTL.34 

.  WORD  CRBL2 

.  WORD  CPBU2 

.WORD  CRBIN2 

.  WORD  CFKLU 


<CRBL2, CRBU2. CPB IN2. CFKLU> 


DEFOPG  RJEPAT 
.  BLKW   2 
UNORG 


DP'MIZ     nPCPO  nllO^     Ofe-DEC-??  08-.  2C     PRGE    16-1 


0  10 


U77 
H78 

^■'9 


f 


000001 


.  ENDC 

,  ttttttttttittttttttttttttt 
.  END 


op^/n2 

MfiCPO  nnoH 

Ob 

SYMBOL 

TFIBLE 

CBR2  = 

V.OOOOOB 

CBB2  = 

•<00000H 

CBl 

000030 

'■BL   = 

00002H 

.BU   = 

000026 

DEC-77  08:  20     PRGE   lb-2 


E   10 


1 


CCC  =   000257 

CnN2       000250R  002 

CFKLU  =  tttttt   GX 

CLC  =  0002m 

CLN  =  000250 

ClV  =  00021*2 

CLVN  =  000252 

CLZ  -  0002'4^ 

ClZN  =  000254 

CPflS  =  GOOOOORG    002 

lPBS    OO00H6P     002 

CPB12  =  010000 

lPBH  =  020000 

CPBm  =  040000 

CPB15  =  100000 

CPCfi    001220P 

CPCB    00122GR 

CPCC    G0i240R 

CPCD    G012o2R 

CPCEX   001362R 

CPCGfi   00120bR 

CPCH    001332R 

CPCHP   001220R 

CPCn    001340R 

CPCP    001346R 

,  OBS.  000000 
GOOOOO 
ISR  001366 
XXX  G00552 
ERRORS  DETECTED:   U 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 


GOO 
001 
002 
003 


CPCPfi 

CPCPB 

CPCR 

CPCS 

CPD26  ■ 

CPER2 

CPER6 

CPINX  : 

CPMCfi 

cpnco 

CPMCG 

CPncH 
cpncj 

CPMCK 

cpncL 
cpncn 

CPMCN 

CPMCP 

CPMER 

CPMGE 

CPMRPi 

CPOSUX 

CPOSUl 

CP0SU2 

CP0SU3 

CP05UH 

CPCSU5 

CP0SU6 

CP0SU7 

CPOSU? 


001302R 

001316R 

001354R 

001362R 

000001 

001150R 

OOllSOR 

000002 

000232R 

000232R 

000264R 

000304R 

000316R 

000330R 

0003H2R 

0003H2R 

000354R 

000354R 

000244R 

000240R 

000250R 

000152R 

000034R 

000042R 

000064R 

000072R 

0001 36P 

OOOmHR 

0001 56R 

000  UbR 


002 
002 
002 
002 

002 
002 

003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 


CPRBl 

CPRB2 

CPRER 

CPRIS 

CPRSR  : 

CPRTC  ' 

CPR2 

CPS2 

CPTBl 

CPTB2 

CPTB3 

CPTB4 

CPTB5 

CPTINB 

CPTINC 

CRT  I  NO 

CPTIS 

CPTIX 

CPTIO 

CPTL   : 

CPT2 

CPVP   : 


CP. 
CP. 

CP. 
CP, 
CP. 
CP. 
CP. 
CPB 


INI 
KER 
KLL 

non 
noD 

OSU 
PST 

INT: 


000672R 

000712R 

00n22R 

000652R 

tutu   G 

000000 

OOOOOORG 

OOOOIOR 

OOIOOOR 

OOIOIOR 

OOIOIHR 

001032R 

001066R 

000372R 

000500R 

000476R 

000724R 

001022R 

000756R 

0000H6 

OOOOOHRG 

yXXtliil  G 

000366RG 

000362R 

000362RG 

000162RG 

001156RG 

OOOOOORG 

000512RG 

OOOOOQ 


002  CRBIN2 
002  CRBLn2: 
002  CRBLP2 
002  CRBL2 
CRBN02 
CRB0\/2 
002  CRBRS2 
002  CRBSV2 
002  CR6SZ2: 
002  CRBU2 
002  CRV02 
002  CRY02 

002  CSIN2 

003  C.  SPRR: 
003  C.  SPS  : 
003  DE.  PRI: 
002  ERROR 
002  HOLT  : 
002  ICIN2 

LNO   : 

002  LNR   : 
NOP 

003  OFF 
003  OS 

003  PS    : 
003  R 

002  RBR 

003  RCVSIB: 
0C3  RETN2  = 


VIPTUflL  MEMORY  USED:   S03  UOPDS   (  4  PAGES) 
DYNAMIC  MEMORY;   2810  WORDS   (  10  PAGES) 
ELAPSED  TIME:   00:  00:  14 
26b.  0:0  DPI  1.27.  256,030  DPI  1/C(RF/-SP=  i  SRPXM,- OPDEF  .  DP  1 1  TBL  DPll  ISP 


G0Q048R 
000652R 
G00062R 
000076R 
0002HHR 
000  m2R 
0001 30R 
000232R 
000400 
000160R 
OOOUbR 
0002mR 
0001 66R 
tttttt   G 
tttttt   G 
tttttt   6 
G00506R 
GOOOOO 
G00154R 
000000 
000012 
000240 
000000 
000000 
177776 
000004 
000022 
000000 
X000007 


002  RPR 
002  RSX 
002  RSXliri: 
GG2  R6 
002  R7 
002  SBL 
002  sec 
002  SEC   : 

SEN 
002  SEU   : 
002  SE2 
002  SEZN  : 

002  SRP   : 
SSC 

STC  : 
TflSKPD: 

003  T.  EFLG: 
UBF 

002  X  : 

XBA  : 

XBC  : 

XBR  : 

XPR 

XWP    : 

SRQSCH^ 
SSIGFL: 
STSKHD: 

..CINT: 
..DINT: 


00G020 
000001 
000001 
^.000006 
V.000007 
000032 
000277 
000261 
000270 
000262 
000264 
000274 
000010 
000042 
000013 
tttttt 
tttttt 
000044 
000010 
000036 
000040 
000016 
000014 
000034 

^n   ^  ^  ^r  "r  -^ 

tttttt 
tttttt 
tttttt 
tttttt 


GX 
GX 


GX 
GX 
GX 
GX 
GX 


F 

10 



DPll 

CRERTED  BY 

nflCRO  ON 

6-DEC-77  RT 

08:  20 

PPGE  1 

SVnBOL 

CROSS  REFERENCE 

CREF 

SYMBOL 

VRLUE 

REFERENCES 

CBQ2 

=  V,OOOOOB 

I7-261 
7-291 

«7-266 
«8-304 

7-267 
8-305 

7-268 
8-307 

7-270 

«7-271 

«7-278 

CBB2 

=  V.OOOOOH 

»7-262 

17-277 

7-284 

18-305 

8-311 

18-313 

18-317 

•:bi 

=  000030 

»5-170 

5-171 

15-361 

CBL 

=  000Q2H 

115-168 

5-169 

10-22 

11-133 

CBU 

=  000026 

»5-169 

5-170 

15-360 

CCC 

=  0002B7 

«2-10 

CF!N2 

000250  R 

17-268 

8-304 

*8-308 

«8-310 

88-328 

CFKLU 

=  tttttt      GX 

6-220 

CLC 

=  oco2m 

112-6 

CLN 

=  000250 

«2-9 

CLV 

=  0J0242 

«2-7 

CLVN 

=  C00252 

«3-118 

8-314 

clZ 

=  fJ002^^ 

«2-8 

CLZH 

=  000254 

»3-116 

13-227 

14-326 

•:prs 

=  000000  RG 

«6-182 

15-354 

15-358 

15-385 

16-433 

CPBS 

000046  R 

«6-22S 

CPB12 

=  010000 

«4-135 

10-19 

10-21 

CPB13 

■-    020000 

»4-136 

11-132 

cpsm 

=    040000 

«4-l37 

11-129 

CPB15 

=  100000 

84-138 

CPCP 

001220  R 

14-2S7 

814-292 

CPCB 

001220  R 

814-293 

CPCC 

001240  R 

14-294 

814-298 

14-317 

CPCD 

001262  R 

14-299 

814-302 

CPCEX 

001362  R 

14-284 

S14-326 

CPCGfi 

001206  R 

814-2SS 

CPCH 

001332  R 

14-289 

814-314 

CPCHW 

001220  R 

814-291 

14-315 

cpcr^ 

001340  R 

14-296 

814-316 

CPCP 

001346  R 

14-305 

814-3IS 

CPCPfl 

001302  R 

81U-307 

14-319 

CPCPB 

001316  R 

814-310 

14-321 

CPCR 

001354  R 

14-308 

814-320 

CFCS 

001362  R 

14-303 

14-311 

14-313 

814-325 

CPD26 

=  000001 

83-83 

CPER2 

001150  R 

11-130 

811-137 

CPER6 

001150  R 

811-138 

CPINX 

=  000002 

812-155 

12-157 

CPMCO 

000232  R 

13-220 

813-224 

13-235 

CPnCD 

000232  R 

813-225 

CPMCG 

000264  P 

13-226 

813-238 

CPnCH 

000304  R 

13-242 

813-244 

CPMCJ 

000316  R 

n-245 

813-247 

CPMCK 

000330  P 

13-248 

813-250 

CPMCL 

000342  R 

13-251 

813-253 

CPMCM 

000342  R 

813-255 

CPMCN 

000354  R 

13-256 

8i:  -258 

CPMCP 

000354  R 

813-259 

CPMER 

000244  R 

13-218 

813-230 

CPMGE 

000240  R 

813-227 

13-260 

CPMRfl 

000250  R 

13-222 

813-233 

7-282 


7-284 


DP  1 1 

SYMBOL 

SYHBOL 

CPOSUX 

CPOSUl 

CP0SU2 

CP0SU3 

CPOSUH 

CPOSUS 

CP0SU6 

CP0SU7 

':posu9 

CPPBt 

>:ppb2 

CPPER 
'■.PP  IS 
•PPSP 
lPPTC 

CPRZ 

r  p  c  2 

CPTBl 
CPTB2 
CPTB3 
CPTBH 
CPTB5 
CPTINB 
CPTINC 
CPTIND 
CPTIS 
CPTIX 
CPTIO 
CPTL 
CPT2 
CPl/P 
CP.   INI 
KER 
KLL 
MDM 
MOD 
OSU 
RST 
INT 


CP. 

CP. 

CP. 

CP. 

CP. 

CP. 

CRB 

CPBIN2 

CPBLM2 

CRBLP2 

CPBL2 

CRBN02 

CRB0V2 

CRBRS2 

CRBSV2 

CRBS22 

CRBU2 

CPl'02 

CPV02 

CSIN2 


CREATED  BY 
CROSS  REFERENCE 
VfiLUE 
Q001B2 
00003H 
0000»*2 
OOOObH 
000072 
000136 

ooomi* 

000156 
000116 
000672 
000712 


MflCRO  ON  6-DEC-77  AT  08:  20 


001122 
000652 
tttttt 
000000 

ooocoo 

000010 
001000 
001010 

ooiom 

001032 
001066 
000372 
000500 
000H76 
00072H 
001022 
000756 
0000H6 

ooooo^ 

tttttt 
000366 
000362 
000362 
000162 
001156 
000000 
000512 
000000 
0000H6 
000652 
000062 
000076 
0002HH 

ooom2 

000130 
000232 
OOOHOO 
000160 
000136 

noo2m 

000156 


R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 


RG 

R 

R 

R 

R 

R 

R 

P 

R 

R 

R 

R 

R 

RG 
G 
RG 
R 

RG 
RG 
RG 
RG 
RG 

R 
R 
R 
R 
R 
R 
R 
R 

R 
R 
R 
R 


REFERENCES 

12-175 

12-163 

12-161 

12-170 

12-168 

12-182 

12-18H 

12-178 
«12-181 

10-15 

10-20 

11-58 

6-198 

4-126 
»'4-133 

3-69 
»6-209 
«ll-64 

11-63 
»ll-68 

11-60 

11-94 
S15-359 
S15-39S 
815-397 

b-205 

11-65 
Ull-59 
85-177 

3-69 

4-127 

3-70 
814-344 

3-70 

3-70 

3-70 

3-70 

16-428 
81-5 

6-219 
*7-270 
87-270 

6-217 

S-30b 

■^  -  7  Q  - 

87-28^ 

Q—  j>  1  ^ 
87-259 

6-218 

7-286 

8-309 
*7-267 


PAGE  2 
CREF 


G  10 


1112-191 
1112-166 

12-165 
»12-173 

12-172 
1112-185 
812-186 
812-194 

810-17 
810-22 
811-129 
81C-5 
6-210 

86-191 

11-107 
81i-6b 

11-106 
811-S9 
811-109 


811-43 
811-b9 
11-139 

86-199 

15-374 
815- J57 

814-343 
813-212 
814-280 
812-157 
816-431 

87-266 
7-282 
7-272 

87-277 


87-291 


88-317 

7-297 

88-304 

u-7       '•?  O  C 

88-311 


812-167 

812-::^ 


15-375 


ii-i:; 


15-3S1 
lb-42B 


11-140 


*7-:?i 


*S- 


17 


8S-333 


7_ 


7-253 


*7-:S5 


S-32S 


i  "7  _  '^  C  "7 


S-332 


87-29S 


DPU 

SYtlBOL 

SYMBOL 

C  SRRP 

C.  SPS 

DE.  PPI 

EPPOR 

HRLT 

I C  I  N2 

LNO 

LNP 

NOP 

OFF 

PS 
P 

CBP 
FlV-SiB 

fetn: 
ppp 

PSTS 

PSX 
RSXllD 


CRERTED  BY 
CROSS  REFERENCE 
VRLUE 

=  tttttt  G 
=  tttttt  G 
=  tttttt     G 

GOOSOb  R 
=  000000 

00015H  R 
=  000000 
=  000012 
=  0002H0 
=  000000 
=  000000 
=  177776 
=  COOOOH 
=  000022 
=  000000 
=  ^.000007 
=  000020 
=  ittiii 

=  000001 


MRCRO  ON  6-DEC-77  RT  08:  20 


RTll 


XBR 

XBC 

XBR 

XPP 

XWP 

5RQSCH 

SSlGFL 


PSXllM  =  OOCOOl 


=  ****** 


R6 

z 

v.OOOOOb 

R7 

s 

V.000007 

SBL 

= 

000032 

sec 

— 

000277 

SEC 

X 

000261 

SEN 

— 

000270 

SEU 

~ 

000262 

SEZ 

X 

C0026H 

SEZN 

— 

000274 

SRfl 

— 

000010 

SSC 

- 

000042 

STC 

:: 

000013 

TPSKflO 

- 

****** 

T.  EFLG 

z 

****** 

UBF 

- 

000044 

X 

z 

000010 

=  000036 

=  000040 
=  000016 
=  000014 
=  000034 

=  ****** 
-    ****** 


GX 
GX 


GX 
GX 


REFERENCES 

3-68 

3-68 

4-128 

15-379 
«2-4 

7-266 
»3-81 
»5-162 
«2-5 
«4-143 
«3-58 
«3-103 
»5-158 
»6-167 
«l-4 
87-263 
»5-166 

3-60 

10-23 
81-2 

3-87 

11-112 

;i-3 

11-S5 

3-57 

11-71 
83-110 
83-111 
85-171 
82-15 
82-11 
82-14 
82-12 
82"  1  3 
83-117 
85-161 

16-440 
85-175 
85-163 

11-111 
*11-116 
85-176 
85-159 

n-S9 
85-173 

12-lSB 
85-174 
85-165 
85-164 
85-172 
*11-117 
*11-1  IS 


6-214 
6-213 
16-384 

7-287 
6-211 
5-163 
83-115 
6-217 
3-80 

10-13 
5-168 

*7-273 
5-167 

3-76 

10-34 

11-110 

4-125 

11-141 

3-57 

11-141 

3-71 

11-85 


5-172 


5-162 

5- 17b 
5-164 


5-177 

5-lbl 

*ll-?3 

5-174 

5-175 
5-  Ibb 
5-165 

5-173 


6-216 

fa-215 

815-399 

87-297 


10-14 


*7-2S9 
15-377 
4-130 
11-44 
14-263 
4-139 
12-1S7 
4-125 
15-372 
4-125 
15-372 


10-13 
10-14 


11-62 

11-52 

*11-9S 

*Il-bl 

*ll-59 

15-3S2 
11 -S9 


PRGE  3 
CREF 


H  10 


8-310 


10-22 


*7-293 

6-181 

11-70 

14-330 

7-279 

15-372 

4-145 

16-434 

b-192 

15-391 


11-52 
*14-309 


11-105 
*ll-59 
*11-104 

11-64 

*11-9S 


*11-104 


*8-315 

6-230 
11-82 

10-31 

16-434 

10-S 

6-2G0 
15-402 


11-134 
t 14-320 

*12-lb4 
*ll-bl 

11-105 
*ll-bb 

*12-179 
♦12- ISO 


«8-320 

7-258 
15-362 

11-79 

10-24 

10-S 
lb-434 


12-15S 


*12-lbb 
11-62 
11-133 
11 -bS 


*8-323 

7-294 
16-432 

11-90 

10-37 

10-24 


13-214 


12-lSl 
11-64 
11-134 
*ll-93 


8-325 
16-447 

11-95 

11-47 

10-37 


10-6 

11-99 
11-71 
11-47 


14-282 


15-387 


*ll-66 
*12-1^6 


11-68 
12-183 


I  10 

DPU       CPERTED  BY  MfiCRO  ON  6-0EC-77  RT  08  20  PfiGE  '^ 

SYMBOL  CROSS  REFERENCE  CREF 

SYMBOL  \ffiLUE  REFERENCES 

STSKHD  =  tttttt     GX  11-117 

..CINT  =  tttttt     GX  15-378     15-383 

..DINT  =  tttttt     GX  lfc-436     16-438 


J   10 
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1 

2 

000001 

3 

000001 

H 

000000 

c, 

000000 

;PREFiy  FILE  FOR  RSy-llfl  OPll   OR  DUtl    ISR 
RSX=  1  ;SET  For   CUTBACK  CODE    JflN    '77 

psxiin=i 

RCVSIB=0 
CRBINT=0 
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K   to 


% 

t 

t 

% 

000000 

1 

000240 

ib 

000241 

T 

000242 

i 

000244 

Q 

000250 

10 

000257 

11 

000261 

12 

000262 

13 

G0C264 

14 

000270 

IB 

000277 

;PREFIX 

; WHICH 

;RPPEfiP 

HfiLT=0 

N0P=240 

CLC=241 

CLV=242 

CL2=244 

CLN=250 

CCC=257 

SEC=261 

SEV=262 

SEZ=264 

SEN=270 

SCC=277 


FILE   FOR   RSXnn  flSSEHBLER  AND  ANY  OTHER   flSSEriBLER 
DOES  NOT  RECOGNIZE   OPCODC   MNEfiONICS  EXCEPT  iJHEN  THEY 
IN  THE  OPCODE  FIELD 


r" 
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L  10 


t 

z 

3 
H 
S 

& 
7 
t 

to 
ti 

12 

IS 
16 
17 
18 
19 
20 
21 
22 
23 
2H 
2& 


m 

31 
32 
33 
3«» 
^ 
36 
37 
38 
39 
HO 

m 

42 

Hi 
HH 
45 
Hb 
H7 
US 
h9 
50 
51 
52 
53 

5'4 

55 
5b 
57 


COPYRIGHT    (C)      1975,    1976,    1977 

DIGITAL   EQUIPMENT  CORPORPTION,    MflYNflRD,    MflSS. 


0175H 


THIS  SOFTWRRE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
«  SINGLE  COnPUTER  SYSTEM  AND  nflY  3E  COPIED  ONLY  UITH 
THE  INCLUSION  OF  THE  RBOVE  C0PYRI3HT  NOTICE.   THIS 
SOFTWRRE,  OR  ANY  OTHER  COPIES  THEREOF,  riRY  NOT  BE  PROVIDED 
OR  OTHERWISE  tlRDE  RURILRBLE  TO  RNY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  RND  TO  ONE  WHO  RGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  RND  OWNERSHIP  OF  THE 
SOFTWRRE  SHALL  RT  ALL  TIMES  REMRIN  IN  DEC. 


THE  INFOPnATlON  IN 
WITHOUT  NOTICE  AND 
niTMENT  BY  DIGITAL 


THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
SHOULD  NOT  BE  CONSTRUED  AS  A  COn- 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOP  THE 
OF  ITS  SOFTWARE  ON  EQUIPHENT  WHICH  IS 
DEC. 


USE  OP  RELIABILITY 
NOT  SUP PL  I  ED  Br 


COMTE.X-ll  DUll 
VERSION  VOl-01 

ON 

ON 

ON 

ON 


VERS 
"EPS 
VERS 
VfERS 


VOl-02 
VOl-03 
V02-01 
V02-02 

CORRECTS  UNDEF 

VERSION  V02-03 

CHANGES 

VERSION 


ISR  TABLES 

JLH  10/31/73 

JLH  11/15/73 

JLH  1/28/7H 

HMS  H/1/7H 

JLH  7/23/7H 

NED  IN  RSTS  ASSEMBLY 

PI^P  9''H/7H 

TO  ASSEMBLE  FOR  RSX-llM 
V02-0H  RHR  7/2/75 


F.  B 


!N  "DU  MODE" 


MAKE  DEVICE  PRIORITY  A  GLOBAL  DEFINITION  FOP  PSX 

VERSION  V02-05  RHR  9/5/75 

MODIFICATIONS  TO  RUN  WITH  PTll 

VERSION  V02-06  RHR  12/11/75 

MODIFICATIONS  TO  RUN  THE  DUP-ll 

VERSION  V02-07  CEP  11/76 

MODIFICATIONS  TO  RUN  WITH  RSTS  VbB 

VERSION  V02-08  CEP  6/77 

MODIFICATIONS  TO  RUN  WITH  LSMl 

VERSION  V02-09  CEP  9/77 

MODIFICATIONS  TO  PUN  CUT-CODE  VERSION 

INTERNALLY  DEFINED  GLOBALS 
GLOBL  CU,  FST  CU.  cST 


; EXTERNALLY  REFERENCED  GLOBALS 
.  IF  DF  RTll 

.  GLOBL   CFKLU 

.  GLOBL   .  .  CINT. .  ,  DINT.PMON 

.  mlhll  .  DEVICE.-. .  v:. . 

.  .  V2.  . 
.  ENDC 
IF  DF   P^.TS 
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n  10 


Di 


SS 


B9 

bO 

bl 

b2 

63 

bi+ 

65 

bb 

'■■    ' 

br 

bS 

b9 

70 

CiOCOOO 

71 

n 

71 

7H 

n 

76 

77 
1  1 

78 

79 

^  .  OCOOOl 

SO 

000000 

81 

82 

S3 

SH 

86 

.  GLOBL  CFKLU^CSR.RJ 
ENDC 

.2780  PCS  DePlNlTiON.  DEFAULTS  TO  USE  IN  2780  EnULPTlON 
.  IF  NDF  PCS 

;RCS=1  IMPLIES  USE  'N  2780  EMULflTOR 


RCS= 
.  ENDC 


1 


.  IF  DF  PSTS 

0S  =  0 

.  ENDC 

.  IF  DF   RSyilDIRSXllMlPTii 

OS  =  0 

.  ENDC 

.  iF  NDF  OS 

LN0  =  2 

:.  ENDC 

.  IF  DF  r-c 

.  IF  NDF  PS^£ 

. GLOBL  DUCSR 

.  ENDC 

VECTCP=1 

LNO  =  0 
ENDC 
;  VECTOR  DE F  I  rn  T  I  ON  P f? OC E  --S.  DE F  P JL  T S  TO  USE  TABLE 

IF  NDF  VECTOR 
VECTOP=  0 
ENDC  ; 


.DEVICE  ADDRESS  E.^TEPNALLV  DEFINED 


:USE    VECTC'F    DEf^irnTlON   VlH   .  AiECT 


ki    1  n 
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N  10 


Dl 


87 
S8 
89 
90 
91 
92 
93 
9^ 
95 
90 
97 
98 
99 

1 66 

101 
102 
103 

104 

105 
10b 
107 
lOS 
109 
110 
111 
112 
113 

im 

115 
lib 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
12b 
127 


.  IF  2  UECTOR 

;DU11  VECTOR 

.  RSECT 

.  s      300 

.  UORD 
.  WORD 
.  WC^O 
.  WORD 
.  UORD 
.  WORD 
,  WORD 
.WORD 
,  WORD 
.  WORD 
.  WORD 
.  WORD 
.  WORD 
.  WORD 
.  WORD 
.  WORD 

.  CSECT 

.  ENDC 


RDDRESS  definition: 


OLlOGOO 


000000 


CURl, 
C'jRl, 
CURl, 
CURl, 
CURl. 
CURl, 
CURl. 
CURl. 
CURl. 
CURl. 
CURl. 
CUPl, 
CUPU 
CUPl, 
CUPl^ 
CURl. 


3H0,CUT1 
3^0,CUT1 
3H0,CUTl 
3H0. CUTl 
3H0,CUT1 
3H0,CUT1 
3H0, CUTl 
3^0,CUTl 
3H0,CUT1 
3H0,CUT1 
3^0,CUT1 
3H0,.  CUTl 
340-CUTl 
3^0.CU'1 
340.CUT1 
340.CUT1 


,  3^o 
,  3^o 

,3140 
,  3H0 
,  3H0 
,  3H0 

<3^0 
,  3^0 

,  3«40 

,  3^o 
.  3^o 

.340 
,  3H0 
.340 
,-  34  0 
.340 


.  IF  DF   PSXUD 
.  PSECT   ISR 
0FF=b0000 
.  ENDC 


.  IF  or 

.  PSECT 
.  ENDC 
.  IF  NOF 
OFF  =  0 
.  ENDC 

.  IF  OF 
.  GLOBL 
.  ENDC 
.IF  NDF 

CPV'Pr 

DE.  PPI= 
.  ENDC 


RSXllM 
ISP 

PSXUD 


PSXIIDIPSXIUMRTU 
CPVP.DE  PPI 


OS 

60G 

240 


; VECTOR  hDDPESS 
: PPI OP  I  TV  =  5 


f»'MMflMFtn>B'«^n^BlSnii'^«tff<WV'y'nttim«»r.--f?-:*»Bi».tft-«iiS«.^J«».iia^ 
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B  tl 


129 

130 
131 

133 
133 
134 
13B 
136 
137 
138 
139 
luo 

mi 
142 

m3 

mM 

IHB 
IHb 

mr 
ms 

m9 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

ISO 

ISl 

1S2 

1S3 


OOOGOO 
COOOGO 


GGOOOO 
000GG4 


OOODIG 
000010 
0G0C12 
000014 
000015 
000016 
000020 
000022 
00CG24 
000026 
0Q0G30 
000036 
00C037 
000040 
000042 
000044 
00G046 


000050 


DUll  ISP  TRBLE  RDDRESS.  ONE  IS  GIVEN  HERE 
RDDlTlONflL  DEVICES  MAY  BE  SUPPORTED  BY  THE 
RDDITION  OF  FUNCTIONRLLY  SlfllLfiK  TABLES  FOR 
THE  flDDITIONfiL  DEVICES. 
THE  FIRST  LABEL  OF  THE  FiRST 
THE  FIRST  CELL  FOLLOWING  THE 
-  IF  DF  RSTS 

^ .  GLOBL  CURUCUTUCUSUCRBLX.CPBUX.CPB 
.  IFF 


LAST 


CU.  FST, 
IS  CU. 


LST. 


NX 


CU.  FST: 

CURl: 


004  167  000652 


CUT1 


000004  004  167  GGG"2b 


OOOOOOG 
OOOOCOG 
OGOG 
000 
OOOOOOG 
OGOIOO' 
000160" 
000050' 
OOOOOOG 
OOOOGO 
000 
000 
OOOGOO 
000000 
036062 
101062 


:usi 


000000  000000 


.  IF  DF   PTU 
•  GLOBL   DC.PPI 
JSP     R5.alRf10N 

.WORD   DC  PR  I 

.  ENDC 

JSR  RhCURlS 

.  IF  DF   PTU 
JSR     R5  iPnON 

.WORD   DC.  PR  I 
.  ENDC 

JSR  r:<cutis 


;N0TIFY  RT-ll  OF  INTERRUPT  ^  CHNG  TRIOR. 
-ALSO  SAVES  R5  \   R4 
; ARGUMENT  FOR  INTEN 

;RECEIVE  VECTOR  ENTRY  POINT 


NOTIFY  RTll  OF  INTERRUPT  &.  CHNG  PRIOR 
:ALSO  SAVES  P5  &  P4 
.^ARGUMENT  FOR  INTEN 

;TPPNSn!T  VfECTOR  ENTRY  POINT 


.  WORD 

DUCSP 

.  WORD 

CPUP 

.  BYTE 

DE.  PRI 

.  BYTE 

0 

.  WORD 

C.  SPS 

.  WORD 

CRBLX+OFF 

.  WORD 

CRBUX 

WORD 

CRBINX 

.  WORD 

CFKLU   .; 

.  WORD 

0.  0-  C 

.  BYTE 

LNO 

.  BYTE 

0 

WORD 

0 

.  WORD 

0 

.  WORD 

36062 

.  WORD 

101062 

;THE  FOLLOWING 

'  LABEL  MUST 

CU.  LST: 

ENDC 

.  IF  DF 

RSTS 

DEFOPC 

I  PJDV3 

.  ENOC 

DUCSR  ADDRESS  FllLS  HERE 

VECTOR  ADDRESS 

DE'iMCE  PRIORITY 

DEVICE  RTS  COUNTER  (TEMP) 

DEVICE  RElEIVE/TRANSMIT  BR 

DEVICE  CRB  LOADER 

DEiMCE  CRB  UNLOADER 

DEVICE  CRB  !NIT  ROUTINE 


BUSY  LOC 


FAKE  SIB  LOADER 
; DEVICE 


CELLS 


tpansmit  temporal 

;LINl  NUMBEP 
OLE  FLAG 
CE  PARCSR  INITIAL  CONTENTS 
CE  DEFERRED  STRIP  SYNC  FLAG 
DU-11  PARCSR  INITIAL  CONTENTS 
DUP-11  PARCSR  INITIAL  CONTENTS 


SYNC 

DEV 

DEV 


FOLLOW  THE  LAST  DUll 


%%%%%   THIS 


IS 


ISP 
THE 


TABLE 
END  OF 


DUll  'SR  TABLES 
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c  i: 


185 

186 

187 

188 

187 

190 

191 

192 

193 

191* 

195 

19b 

197 

198 

199 

200 

201 

202 

2o: 

204 

205 

206 

207 

20S 

209 

210 

0C0400 

211 

177400 

212 

213 

2m 

215 

21b 

000005 

217 

000004 

2!8 

000007 

219 

220 

221 

■->r,.-) 

^i.i.     - 

■  ■  i , 

223 

224  000060 

012705 

177400 

225  000054 

010567 

000076 

22b  OQOCbO 

010567 

000164 

22?  000064 

005065 

00C652 

22S  000070 

062705 

000002 

22?  000074 

001373 

23C  000076 

000207 

,xttt%tttt%ttttttxttt%xt%%tttttt 
,tttt%tx%%tt%t%ttt%t%ttttttttt%t%t 

;CIRCUL«R  RECEIVE  BUFFER  LOADER  fiNO  UNLOflDER  ROUTINES 

; THESE  TUO  ROUTINES  PROVIDE  9  FACILITY  FOR  LOADING  SINGLE 
;WORO  ENTRIES  INTO  AND  RETRIEVING  SINGLE  WORD  ENTRIES  FROM 
;AN  INTERNALLY  PROVIDED  CIRCULAR  RECEIVE  BUFFER 

; BUFFER  SIZE  IS  SPECIFIED  AT  ASSEMBLY  TIME  VIA  THE  PARAMETER  CRBS2X 

.THE  USER  MUST  DEFINE  THE  RETURN  REGISTER  RETNX,  AND  THE  WORK 

; REGISTERS  CBAX  AND  CBBX  AT  ASSEMBLY  TIME  (CBAX  AND  CBBX  DEFINE  WHICH 

;REGISTERS  THE  TRP  riUST  UTILIZE  FOR  CRB  UNLOADER  SERVICE.  ) 

;THE  ROUTINES  REQUIRE  THAT  BITS  15  AND  14  BE  CLEARED  BEFORE  THE 
;LOADER  IS  CALLED,  SINCE  THESE  ARE  RESERVED  FOR  USE  BY  THE  ROUTINES 

;T0  CREATE  A  UNIQUE  COPY  OF  THESE  ROUTINES  FOR  A  MULTl-CRB  ENVIRONMENT 
; REPLACE  X  WHEREVER  IT  APPEARS  AT  THE  END  OF  A  SYMBOL 
;BY  A  UNIQUE  CHARACTER 

,  ttttxtxxxxxtttttxxtt 

.CPB  DEFINITIONS  'USED  BY  DUll  LINE  1) 


,  IF  NDF  RSTS 

CRBSZX=400 

CRBn2X=-CRBSZX 

.  IFF 

.  GLOBL   CRBnZX 

.  ENDC 

CBRX  =  -.5 
CBBX=-.4 
PETNX  =  >.7    > 


; DEFAULT  IS  64  CHPPflCTEP  BUFFER 
,-(THE  BUFFER  SIZE) 


WORK  REGISTER  A,  MUS"!"  BE  SAVED 
; PEG  I  STEP  B.  FOR  CHARRCTLP  PASSING 
:PETURN  REGISTER 


;CIRCULfiP  RECEIVE  BUFFER  INITIALIZATION  ROUTINE 

;MUST  BE  CALLED  PRIOR  TO  USING  CRB  LOADER  AND  UNLOPDER 


CPBINX: 

MOV 

»CPBriZX,CBAX 

;PICK  UP  START  INDEX 

MOV 

CBAX,CSINX 

; STORE  INDEX 

MOV 

CBAX.CF'NX 

; FETCH  INDEX 

CPBLPX: 

CLP 

CPBLnX(CbHV) 

; CLEAR  CURRENT  UOPOK 

ADO 

;2,  CBAX 

;DONE^ 

8NE 

CPBLFX 

;N0.  DO  NEXT  UQPD 

RTS 

PETNX 
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D  11 


2i2 

im   J   J 

22S 
23b 
237 

238 
239 
240 
2m 

2H3 
2U'4 
245 
:4b 

:h:' 

2HS 
2H9 
250 
251 
252 
253 
25^ 
255 
25fc 
257 
258 
259 
260 
2b  1 


000100 
000104 


OOOllO 

oooim 

0001 Ife 
000122 
000^30 
000132 

ooomo 
ooom: 

OOOWH 
000162 
000154 


00015b 


052704 
016705 


005765 
100413 
010465 
062767 
001003 
012767 
000250 
000207 

C52765 
000270 
000207 


'400 


100000 
000046 


000652 

000652 
000002 

177sOO 


000026 
000016 


.CIRCULfiR  RECEIVE  BUFT 
;EXIT  CONDITIONS: 


OQOEP 


CRBLX: 


CRBRSX 

CR^'OX; 


Lli 


NX: 


N=0  -  CONTENTS  OF  CBBX  HPVE  BE:n  STORED  IN  THE  BUFFER 

N=l  -  BUFFER  OVERRUN  H«S  OCCURED.   CBBX  CONTENTS  NOT  STORED 


BIS 

nov 

.  IF  DF 
ROD 

.  end: 

TST 
BMI 

nov 

ADD 
BNE 

CLN 
RTS 


mOOOOO.CBBX 
CSINX.CBflX 
RSXllD 
llOFF,CflfiX 


;SET  BIT  15  OF  INCOMING  WORD 
; FETCH  THE  CURRENT  INDEX 

; ADJUST  OFFSET  FOR  MAPPING 


CRBLMXCCBAX)    ;  IS  THE  LOC'-iTlON  AVAILABLE? 
CRBOVX         ;N0.  SET  OVERRUN  FLAG 
CBBX,CRBLMX(CBfiX)      ; STORE  THE  ENTRY 
»2,CSINX       ; UPDATE  THE  STORE  INDEX 
CRVOX         ;WE'PE  NOT  AT  END  OF  BUFFER 
«CPBM2X,CSINX   , RESET  TO  START  OF  BUFFER 


040000  000652'  CPBOUX.  6  IS 

SEN 
PTS 


RETHX 

»40000-CRBLnX(CBAX) 
PETNX 


;SET  BIT  14  OF  ENTRY 


IF  DF  RSTS 
GLOBL   CSINX 
IFF 


.  UOPO 
.  ENDC 


-L'PBSZX 


.CIJPPENT  BUFFtP  3T0PE  INDEX 
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E  n 


263 
26H 
265 
266 
267 
268 
269 


270 

000160 

016705 

000064 

271 

000164 

016504 

000652' 

272 

000170 

100025 

273 

000172 

005165 

000652' 

27H 

000176 

062767 

000002 

275 

000204 

001003 

27b 

000206 

012767 

177400 

277 

000214 

032704 

040000 

27S 

G00220 

001004 

279 

000222 

042704 

140000 

2S0 

000226 

000257 

281 

000230 

000207 

282 

283 

000232 

042704 

140000 

28^ 

000236 

000250 

286 

000240 

000262 

286 

000242 

000207 

287 

288 

000244 

0002^0 

289 

00024b 

000207 

290 

291 

292 

293 

294 

295 

296 

000250 

177400 

297 

298 

299 

300 

000252 

000652' 

:ci 

000652* 

302 
303 

ZQH 

30b 

000044 
000034 


/CIRCULPR  RECEIVE  BUFFER  UNLOQOER 

;EXIT  CONTITIONS: 

;       N=0, V=0  -  CBBX  CONTAINS  ENTRY.   NO  OVERRUN 

N=0, V=l  -  CBBX  CONTAINS  ENTRY.   OVERRUN  HOS  OCCURED 

;       N=1.V=?  -  NO  ENTRY  flVfllLflBLE 


CRBUX: 


CRYOX. 


CPBSVX: 


CPBNOX: 


MOV 
MOV 
BPL 

con 

ADD 

BNE 

MOV 

BIT 

BNE 

BIC 

CLflLL 

RTS 

BIC 
CLN 
SEU 
RTS 

SEN 
PTS 


CFINX.CB9X      ;GET  CURRENT  FETCH  INDEX 

CRBLnX(CBfiX),CBBX       ;FETCH  ENTRY  CONTENTS.   WAS  IT  DfiTfl? 


CRBNOX 

CRBLnX(CBOX) 

«2.CFINX 

CRYOX 

HCRBMZX^CFINX 

<J40000.CBBX 

CRBSVX 

»140000,CBBX 

RETNX 

»140000.CBBX 

RETNX 

PETNX 


;N0.   SET  N=l  AT  EXIT 

;FREE  ENTRY  LOC  (BUT  LEAVE  DEBUG  TRACE) 

;  IF  P,T  END  OF  BUFFER,  RESET 


UAS  THERE  AN  OVERRUN-? 

YES.   SET  V 

NO.   CLEAN  UP  THE  ENTRY 


CLEAN  UP  ENTRY 


NO  ENTRY  AVAILABLE 


.   IF   OF    PSTS 

.  GLOBL      CF  INX-CRBXXX.CRBLflX 

.IFF 


CFINX;   ,  WORD   -CPBS2X 

;THE  FOLLOUING  RESERVES  THE  BUFFER  STQREPGE 


CRBXXX:  .  =.  +CPBS2X 

CRBLMX=. 

.  ENDC 
:  tittttttllttttttttt 

;,;;;;;;;;  END  OF  DUU.  TBL 


BUFFER  UniT 


///f//'f 
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F  VI 


2 

I 

H 

1 

^ 

7 

8 

Q 

10 

t1 

12 

000257 

i2 

m 

IS 

17777fe 

Ife 

000000 

17 

000001 

18 

GG0002 

19 

000003 

2Q 

000004 

U 

G00005 

n 

000006 

n 

000007 

a^ 

n 

u 

000001 

tf 

00000: 

» 

000004 

n 

000010 

n 

000020 

3t 

000040 

n 

000100 

n 

000200 

T^ 

000400 

3S 

001000 

3^ 

002000 

37 

004000 

38 

0:0000 

39 

020000 

40 

040000 

\\ 

100000 

12 

»»5 

m 

i|S 

^ 

%7 

%z 

«I9 

50 

St 

000002 

%t 

000004 

S3 

000010 

§t| 

00C020 

IS 

000040 

1^ 

000100 

ir 

000200 

COMTEX-ll  OUn.  ISR 

VOO-01  JLH  18-0CT-73 

VOO-01  JLH  n/l5/73 

V02-09  CEP  9/77 

nOD IF  I  CAT  IONS  TO  RUN  WITH  CUT  CODE 

(SEE  DUll.  TBL  FOR  HODIFICflTION  HISTORY) 


TITLE  DUV2G9 

, INSTRUCTION  DEFINITIONS  QS  REQU 

Ci.OLL=  CLC!CLU!CLN!CLZ 

.•REGISTER  DEFINITIONS 

PS=  17777b 

R0=  -/.G 

Rl=  y,\ 

R2=  \1 

R3=  XI 

P4=  ^4 

R5=  y,h 

SP=  \h 

pc=  yj 

;B!T  DEFINITIONS  flS  REQUIRED 

EITOO=  1 

BIT01=  2 

BIT02=  4 

BiT03=  10 

elT0^=  20 

BIT05=  40 

BlTOb=  100 

BIT07=  200 

BIT08=  400 

BIT09=  1000 

BIT10=  2000 

BITllr  4000 

BIT12=  10000 

BIT13=  20000 

BIT14=  40000 

BIT15=  100000 


RED 
CLEPiR 


ALL  CONDITION  CODES 


DUll  EXTERNPLLY 
GLOBL  C.  SPS 


REFERENCED  GLOBRLS 


DUll  INTERNALLY  DEFINED  GLOBflLS 

GLOBL  CURIS. CUTIS, CU.  OSU.CU.  non^CU.  MOD, CU.  INI  CU.  t^LL.rij  Rcj 

GLOBL  CUFSTP.CULSTP 


CONTROL/STATUS  REGISTER 

;DRTR  TERMINAL  RERDY 

; REQUEST  TO  SEND  STATE 

;SECONDRRY  TRRNSMIT  DRTR 

;SERRCH  SYNC  -  SET  IMPLIES  CLERP  RCV  ACTIVE 

;DATA  SET  INTERRUPT  ENABLE 

;REUEI:E  INTERRUPT  ENABLE 

; RECEIVE  DONE  CHRPRCTEP  RVRIlRELE 


;DU11 

RXCSR  (RECEIVE 

DTR  = 

BITOl 

PTSA= 

BIT02 

STD= 

BIT03 

SSYN= 

BIT04 

DSINTE 

=  BIT05 

RINTE= 

BITOfe 

RDONE= 

BIT07 
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G  n 


58 

OOGHOO 

S? 

OOIDUO 

bO 

002000 

61 

OOHOUC 

62 

OlOOOO 

63 

L'2000Q 

bH 

040000 

bS 

ICOOCO 

6b 

67 

6S 

000010 

6? 

000020 

70 

000040 

71 

OOOIOO 

000200 

•^  -^ 

000400 

71* 

014000 

75 

100000 

76 

7*' 
1  ( 

78 

000377 

79 

000400 

80 

001000 

81 

002000 

82 

004000 

83 

84 

85 

0000C2 

86 

87 

88 

OOIGOO 

89 

0^0400 

90 

91 

93 
94 


95 

9b 

000004 

Q7 

000010 

9S 

99 

000010 

100 

000012 

101 

000014 

102 

000014 

103 

000015 

104 

000016 

105 

000016 

106 

000020 

107 

000022 

108 

000024 

109 

000026 

110 

000030 

111 

00G032 

112 

000034 

113 

000036 

114 

000037 

STRSYN=  BIT08 

DSR=  BIT09 

SRO=  BITIO 

RRCT=  BlTll 

CDs  BIT12 

CTS=  BIT13 

»ING=  BITIH 

L'ETC=  BIT15 


.oun 

HDUPL= 

SEND= 

DNfiINT 

TINTE= 

TDONE= 

MRESET 

MnOOE= 

DNR= 


TXCSR  (TRflNSniT  CONTROL 
81X33 


B 

=  B 

B 

B 


134 
T05 
T06 
TO"' 


=  BITOS 

BlTlHeiT12 
BIT15 


.STRIP  SYNC.  CHflRflCTERS 

;DflTP  SET  REPOY 

; SECONDARY  RECEIVE  DPTP 

; RECEIVER  ACTIVE 

; CARRIER  DETECT 

; CLEAR  TO  SEND  nOOEM  LEAD 

;RIN6  DETECT  nODEM  LEAD 

;DATA  SET  CHANGE  HAS  OCCURRED 

STATUS  REGISTER) 
;HALF  DUPLEX  STATE 
;SEND,  I.  E.  TRANSMIT  DATA 
;DATA  NOT  AVAILABLE  INTERRUPT  ENABLE 
.TRANSMIT  INTERRUPT  ENABLE 
; TRANSMIT  DONE 
; DEVICE  MASTER  RESET 
, MAINTENANCE  MODE 
;DATA  NOT  AVAILABLE 


;DUn  PARAMETER 
SYNREG=  377 


EVNPARs 
ENBPfiR= 
CHL68= 
CHL7S= 

;DU11  M 
TCOUNT= 


BITOS 
BIT09 
BITIO 
BITll 


SELECTION  REGISTER  PARCSR 

;SYNC  CHARACTER  BITS  0-7 
;EVEN  PARITY  SELECTION 
:  ENABLE  f-ARITY  CHECK/GENERATION 
;CHAR  LENGTH  6  OR  8  B I TS 
:CHAR  LENGTH  7  OR  8  B I TS 


SCELLANEOUS 
2 


DEFINITIONS 


COUNTER  FOP  RTS  DROP  ON  TCOMPLETION 


;DU11  S'B  ENTRY 
XnTSIB=  1000 
STSSIB=  40400 


;DU11  ISR 


TYPES  -  W/0  LINE 


NUMBER 
TRANSM 
STPITUS 


T  COMPLETE  SIB  ENTRY 
SIB  ENTRY  -  1ST  UORD 


-  1ST  WORD 


TABLE  DEF INT 
.  IF  DF  PSTS 

R=      4 

S=      10 

.  IFF 

R=      CUTl-CURl 

S=      CUSl-CURl 
.  ENDC 

RCSR=   S 

RVECT=  RCSR+2 

RPRIOR=  RVECT+2 

TPRIOR=  RPRIOR 

RTSCTR=   TPRIOR+1 

RBUSY=  RT5CTR+1 

TBUSYr  RBUSY 

CRBLDR=  TBUSY+2 

CRBUNL=  CRBLDP+2 

CRBINT=  CRBUNL+2 

SIBLDR=  CRBINT+2 

NTWP=   SIBLDRt2 

CTBA=   NTWP'I-2 

CTBC=   CTBA+2 

LINEN0=  CTBC*2 

SYNIDL=  LINENO+1 


I  NT  I  ON  -  RELATIVE  TO  BEGINNING 


OFFSET  FOR  RECEIVE  VECTOR  ENTRANCE 
OFFSET  FOR  TRANSMIT  VECTOR  ENTRANCE 

RECEIVE  CSR  ADDRESS.  WORD 

RECEIVE  VECTOR  ADDRESS.  WORD. 

RECEIVE  PRIORITY.  BYTE 

TRANSMIT  PRIORITY.  BYTE 

RTS  COUNTER.  BYTE 

RECEIVE  BR  LEVEL  BUSY  LOC.  WORD 

TRANSMIT  BR  BUSY  LOC.  WORD 

CRB  LOADER  ADDRESS.  WORD 

CRB  UNLOADER  ADDRESS.  WORD 

CRB  INITIALIZATION  ADDRESS.  WORD 

SIB  LOADER  ADDRESS.  WORD 

NEXT  TRANSMIT  WORD  PAIR.  WORD 

CURRENT  TRANSMIT  BUFFER  ADDRESS 

CURRENT  TRANSMIT  BYTE  COUNT.  WOPD 

LINE  NUMBER.  BYTE 

SYNC  IDLE  FLAG.  BYTE 


J 
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H  11 


ns 

OOOOHO 

Ub 

000040 

117 

000042 

US 

000044 

119 

000046 

12C 

000050 

121 

1  ?'? 

123 

000652 

000000' 

124 

000654 

000050' 

12S 

12b 

1 '"'"' 

12S 

12? 

13C 

131 

1  7  "> 

I  WW 

133 

t3U 

135 

1 3b 

13:^ 

13S 

139 

SYNCHRs  SYNIDL^I 

DEVSTS=  SYNCHR 

STPSYNs  SYNCHRf2 

DUSTS=  STPSYN*2 

DUPSTS=  DUSTSi2 

ISRSI2=  DUPSTS+2M77776 

;DU11  ISR  TRBLE  POINTERS 

CUFSTP:  .  WORD  CU.  FST 

CULSTP:  .  WORD  CU.  LSI 


;2780  EnULRT 
.  IP  NDF  PCS 
RCS=    1 
.  ENDC 


; VECTOR  DEFiNT 

.IF  t^OF  VECTOR 

VECTOR=  0 
.  ENDC 


ON  MODE  DEFINiTHN 


SYNC  CHflRflCTER/DEVSTS.  WORD 
; DEVICE  STATUS.  HO  BYTE  OF  SYN  CHRR. 
; STRIP  SYNC  FLAG/  DELRYED.  BYTE 
;DU-n  INITIRL  PRRCSR  SETTING 
DUP-U  INITIRL  PRRCSR  SETTING 
ISR  TRBLE  LENGTH  NOT  RN  ENTRY. 


;RDDRESS  OF  FIRST  DUll  ISR  TRBLE 
;RDDRESS  OF  LRST  DUll  ISR  TABLE 


.DEFAULTS  TO  2780  EMULATION  USE 


BYTE 


ON  DEFOULTS  TO  UTILIZE  .  ASECT  CODING 

; DEFAULT  TO  COnnON  COMTEX  PRACTICE 


; PARITY 

.IF  NDF 
USEPflP= 
.  ENDC 


CALCULATION 

USEPflP 

n 


DEF  INI  HON 


DEFAULT  TO  ODD.  EVEN  MEANING 
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11 


IHI 

m2 

iw] 

l^^ 

m5 

-     : 

iHb 

m? 

ms 

149  000656 

150 

151  000656 

010246 

15:  000660 

010346 

153 

154 

155 

15t 

15? 

158  000b62 

016102 

000004 

159 

160 

161  C'G0666 

011203 

162 

163 

164  000670 

105^03 

165  000672 

100015 

166  0D0674 

046112 

000036 

167 

168 

169  000700 

016204 

000002 

170  000704 

010405 

171  OC0706 

030527 

040000 

172  000712 

001402 

173  000714 

052704 

020000 

174  003720 

004771 

000014 

175  00  3724 

000760 

176 

177 

178 

179  00C726 

ISO 

181 

182 

18  J 

1S4 

1S5  000726 

012603 

186  000730 

012602 

187 

ISS  000732 

012601 

1S9 

190 

191 

192 

193 

194 

195 

196  000734 

000207 

197 

;DUn  RECEIVE  INTERRUPT  SERVICE  ROUTINE  --  CURIS 

;ENTERED  FROM  ISR  TABLE  Vlfi  JSR  Rl. CURIS. 

;UPON  ENTRY  ROUTINE  flUST  SET  LEVEL  BUSY. 

; LOWER  PRIORITY,  QNO  SAVE  ANY  NECCESSflRY  REGISTERS. 

;iT  nusT  EXIT  viq  jnp  c.sps  (priority  scheduler) 

; AFTER  RESTORING  ANY  REGISTERS  AND  CLEARING  THE 
; LEVEL  BUSY  FLAG. 


CURIS: 


.  IF  NDF  RSTS 

MOV  R2.-(SP) 

MOV  R3.-(SP) 

.  IF  NDF  RSXllMiPTll 

MOV  R4,-(SP) 

MOV  R5.-(SP) 

.  ENDC 

.  ENDC 

MOV  RCSR-R(.R1),R2 


;RSTS  HAS  SAVED  ALL  REGS 

;THEN  SAVE  REGISTERS  P2-R5  FOR  USE 


SINTSV  ALREADY  HAS  SAVED  R4  S  R5 


GET  DEVICE  RCSR  ADDRESS 


•PCV  INTERRUPT  OCCURRED  TEST  FOR  INTERRUPT  CAUSE 
PGOT:    nOV  i)P2.R3  ;  OBTAIN  RCSR  CONTENTS 

, INTERRUPT  CAUSE  UAS  NOT  DATA  SET  CHANGE.  DID  RCV  CHAR  OCCUR 

CUTPDN:  TSTB  R3  ; IS  PCV  DONE  SET 

BPL  CUPXIT  :N0.  NO  SERVICE,  LEAVE 

BIC  STPSYN-P(R1  ).i)P2    .:  CLEAR  STRIP  SYNC  IF  DEFERRED  FLAG  SET 

RECEIVE  CHARACTER  INTERRUPT  HftS  OCCURRED.  SERVICE  CHARACTER 


CUGRCH-  MOV  2(R2).R4 
MOV  P4,R5 
BIT  P5.«BIT14 
BEQ  NORCVO 
BIS  «BIT13.R4 

NOPCViO:  JSR  PC-i)CPBLDP-PfPl) 
BR  ROOT 


,LOAD  RECIEVED  CHARACTER  INTO  P4 

;AND  REPLICATE  CHARACTER 

;DID  OVERRUN  OCCR 

;N0 

; YES, SET  INDICATOP 

; STORE  CHRPflCTEP  IN  CPE 

;RND  LOOK  FOP  MOPE 


; RECEIVE  INTERRUPT  ROUTINE  EXIT  POINT 
CUPXIT: 

.IF  NDF  RSTS 

.  IF  NDF  RSyilM&PTll 

MOV  (SP)+.P5 

MOV  (SP)+P4 

.  ENDC 

MOV  iSP)+-P3 

MOV  (SP)+-R2 
ENDC 

MOV  fSP)+.Pl 
IF  DF   RSTS 


RESTORE  REGISTERS  P5-P2 


AND  FINRLLV  RESTORE  ENTRY  PEGISTPE 


RETURN 
ENDC 
IF  DF 

JMP 
ENDC 
IF  DF 

PTS 

.  ENDC 


RSXllD 
i)».  .  INTX 

PSXliniPTll 
PC 


; RETURN  TO  CODE  iN  THE  E-Er  BUFFER  POOL 
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199 
200 

201 
202 
203 
204 
20S 
206 
207 
208 
209 
210 

:ii 
:i: 

213 

2m 

21B 
21b 
217 
218 
219 
220 
221 

Ill 
11^ 
llh 
llh 

117 
IIZ 
229 
230 
231 
232 
233 
234 

2_Nb 
>->  -^  -^ 
—  jf' 

239 
2U0 
241 
242 
24  3 
244 
245 
246 
247 

248 
249 
250 
251 

253 
254 
255 


000736 

000736 
000740 
000742 


000750 
000754 
000756 
000760 
000764 
000766 


000770 
000774 
000776 


001002 
001006 


001010 
001016 
001022 
00102b 


001030 
001034 
001040 


001042 
001046 
001052 


010246 
010346 
010046 


0007U4  016102  000000 


016203 
105703 
100104 
105761 
001406 
100071 


031227 
001450 
105061 


005761 
00145b 


000004 


000005 


020000 


OOCOilB 


000024 


117162  000022 

005261  000022 

005361  000024 
0G1060 


016105  nono2n 
012561  nooo:2 
001405 


012561 
010561 


000024 
000020 


001052  000446 


000006 


;TRfiNSniT  INTERRUPT  SERVICE  ROUTINE  -  CUTIS 

;ENTERED  FROM  ISR  TfiBLE  VIR  JSR  Rl. CUTIS 

;UPON  ENTRY  ROUTINE  nUST  SET  LEVEL  BUSY 

.LOUER  PRIORITY  LEVEL  TO  THPT  OF  DEVICE.  AND  SRVE 

;PNY  NECCESSflRY  REGISTERS. 

;UPON  EXIT,  IT  MUST  RESTORE  REGISTERS,  CLEAR 

;LEVEL  BUSY  RND  EXIT  VIR  jnP  C.  SPS  (PRIORITY  SCHEDULER), 


CUTIS: 


.IF  NOF  RSTS 
nOV  R2.-(SP) 
MOV  R3,-(SP) 
MOV     RO, -(SP) 
.  ENDC 
MOV  RCSR-S(Rn,R2 


;RSTS  ALREADY  SAVED  ALL  REGS 
;SAVE  REGISTERS  P2,  R3 

;RSX11D  NEEDS  RO  ALSO 

; OBTAIN  RCSR  ADDRESS 


N'EFRUPT  HAS  OCCUPED  GET  TCSR  CONTENTS. 


MOV  4(R2LP3 

TSTB  P3 

BPL  CUTEXT 

TSTB  RTSCTR-S(Rl) 

BEQ  TRANSI 

BPL  WINDUP 


OBTAIN  TCSR  CONTENTS 
IS  TDONE  SET 

NOT  NOW,  EXIT  FROM  INT  SVC  RTM 
; IS  RTS  COUNTER  ACTIVE 
NO  -  TRY  TRANSMISSION 
WAITING  FOR  RTS  DROP 


;WfllTlNG  FOR  CTS  PRESENCE  BEFORE  TRANSMISSION 

BIT  i)P2.»CTS  .;  IS  CTS  PRESENT 

BEG  OUTCHP  ;N0,  SEND  CHARACTERS  TO  WAIT 

CLPB  rTSCTP-S(Rl)       ;CTS  PRESENT,  CLEAR  DELAY  FLAG 

■  mu   TPV  TO  SEND  SOME  DATA  CH»;RACTERS 

TPANSI:  TST  CTBC-S(Pn         ;IS  TRANSMISSION  ACTIVE 

BEQ  EXITT  ;TRANSMISSION  NOT  ACTIVE,  CLEAR 

; TRANSMISSION  IS  IN  PROGRESS  OUTPUT  DATA  CHARACTER 
TRANS:   MOVB  olCTBA-S^  P  P  .  b  '  P2 -^   ;OBTfllN  TRANSMIT  CHARACTER 
INC  CTBA-S(Rl)         ; UPDATE  ADDRESS 
DEC  CTBC-S(Pl)  :AND  BYTE  COUNT  REMAINING 

BNE  CUTEXT  ; TRANSMIT  DEFINITELY  NOT  COMPLETE 

: TRANSMIT  BYTE  COUNT  WENT  TO  ZERO.  UPDATE  TO  NEXT  CA-BT  PAIR 
.IF  NDF  PSX11I1 


NTERRUPTS 


CUTXTl 


MOV     R5,-'SP' 

.  ENDC 

MOV  NTWP-S'RP.PS 

MOV    iR5)+CTBfi-S'Pn 

BEQ  TFINI 

.  IF  DF  R3X11D 

ADO     UOFF..  CTBfl-S(Pi 

.  ENDC 

MOV  (R5)+,CTBC-S(R1) 

MOV  R5-NTUP-S(Rl) 

.  IF  NDF  RSXllM 

MOV     (SP)^^R5 

.  ENDC 

BR  CUTEXT 


Sfl^.'E  R5 

AND  OBTAIN  NEXT  TWP  -  BA  SPECIFICALLY 
OBTAIN  NEXT  BUFFER  ADDRESS 
THAT'S  END  OF  THIS  TRANSMISSION 


THEN  UPDATE  BYTE  COUNT 

AND  FINALLY  NEXT  T  WORD  PAIR 


; RESTORE  P5 

;AND  EXIT  FROM  INTEPPUPT 
;TPRN3MIT  BUFFER  ADDRESS  HAS  GONE  TO  ZERO.  TERMINATE  TPPNSM! SS I  ON. 


C 

c 

C 
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K   II 


0010514 
00105H 


OOlGbO 
OOlOfeb 
00107H 


:5b 

2S7 

:ss 
:59 

2b0 
2fcl 

264 
265 
2t.b 
2b7 
2bS 
2b9 
270 
271 

273 

Art  t  ^ 

A.  I  o 

277 
278 
279 
280 
281 
282 
2S3 
284 
285 
286 
287 
288 
289 
290 

292 
293 
29H 
295 

29b 
2Q7 

29S 

299  001152 

300  001156 
301 

302 

303  001160 

304  001164 
305 

306 

307  001170 

30S 

309  001174 

310  001176 

311  001200 
312 


TFIN 


G16700  OOOOOQG 


001100 
001104 
00110b 
001114 


001116 
001122 


001124 
001132 


001134 
001142 


001144 

001150 


iF   DF   RSX 
nOV  TRSKRCRO 

.  IF   DF   RSXllD 


052760 
016767 
005067 


105761 
00101" 
112"bl 
0004  25 


105761 
001004 


012762 
000416 


116162 
000412 


042703 
000407 


105361 
001362 


042712 
042703 


000040 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 


000005 


000027 
000002 

000027 

000777  000006 

0C0030  000006 

000140 

000005 


000004 
000020 


010362  000004 

012600 
012603 
012602 


BIS 

BISB 

.  IFF 

BIS 

MOV 

CLP 

.  ENDC 

.  IFF 

MOV 

CLPB 


«HO.fl.  EF(RO) 
ffEV.  SE.olt.SERFG 

»40.T.  EFLG(RO) 

5TSKH0.SRQSCH 

5SIGFL 


«XMTSIB,P5 

P5 

JSP  PC,alSIBLDP-S(Pl) 
.  ENDC 

.  IF  NDF  PSXllM 
MOV     (SP)+  P5 
.  ENDC 


;SET  'SIB  EVENT  FflLG' 
;SET  SIGNIFICRNT  EVENT 


DECLARE  SIG  EVENT 

SET  UP  SIB  ENTRY  FOR  TRP  NOTiFICflTIQN 
OND  COLL  SIB  INSERTION  ROUTINE 

RESTORE  R5 


;TPP  NOTIFICATION  HRS  OCCURRED.  NOW  CLEAR  INTERRUPTS  OR  USE  DELRY 

TSTB  SYNiDL-S(Rl)       ;IF  SYNIDL  SET,  USE  SYNCS  FOP  DELAY 
BNE  EXITT  CLEAR  TRANSMIT  INTERRUPTS 

MOVB  «TC0UNT,PTSCTR-S'R1)  ; OBTAIN  RTS  DROP  COUNTER 
BP  CUTEXT  ;AND  EXIT  INTERRUPT  POUTINE 

;UAIT  IN  PROGRESS  HAS  NOT  COMPLETED  SEND  SOME  DATA 
OUTCHR:  TSTB  SYNIDL-S(Rl)       ;IS  LINE  IDLING 

BNE  OUTSYN  ; YES,  LET  IT  SLEEP  PEACEFULLY 

aiNE  IS  DELAYING  -  REQUIRES  MARK  CHARACTER  FOP  DELAYING 
OUTMRK;  MOV  «777,6fP2>  ; SEND  THIS  CHARACTER 

BR  CUTEXT  ;AND  TEST  FOR  ADDITIONAL  OUTPUT  REQUIREMENT 

;LINE  IS  DELAYING  -  REQUIRES  SYNC  CHARACTER 

OUTSYN  MOVB  SYNCHR-S' R 1  ' . 6' P2  '  ^OUTPUT  SYN  CHARACTER 

BR  CUTEXT  ;AND  LOOP  UNTIL  NO  TRANSMIT  FLAG 

;LINE  HAS  COMPLETED  -  OP  PfiLSE  INTERRUPT 

EXITT:   BIC  itTlNTE+DNPlNT,P3    :S10P  THE  WORLD 

BR  CUTEXT  ;AND  EXIT  INTERRUPT  ROUTINE 

;WAIT  IS  IN  PROGRESS  FOP  TRANSMISSION  TERMINATION 
W'NDUP:  DECB  RTSCTP-S^RP       ,  COUNT  THESE  INTERRUPTS 

BNE  OUTMRK  ;PROCESS  NOT  COMPLETE-  WAIT  BY  SENDING  CHAR 


; TERMINATION  PROCESS  COMPLETE, 
BIC  «RTSR,aR2 
BIC  SSEND-R3 


TELL  THE  WORLD 
;N0..  CLEAR  RTS  ASSERTION 
;AND  DROP  SEND  REQUEST 


;EXIT  FROM  TRANSMIT  INTERRUPT  SERVICE 

CUTEXT;  MOV  R3.4(R2)  ; AND  UP'hTE  TCSP  PRIOR  TO  EviT 

IF  Nor  RSTS 
MOV     (SP)+.RO 

MOV  (SP)4--R3  ;THEN  RESTORE  R3  AND  P2 

MOV  fSP^+.R2 
ENDC 


f,!  '■• 


:o9  ni^cpo  ^no^  Ob-DEC-77  os:  20  prge  12-2 


L  n 


:i3  001:02  012601 

:is 

316 

317 

31S 

319 

320 

321  00120U  OQ0207 

322 


MOV  (SP)*,Rl 
.  iF  DF  RSXllD 


.FINALLY  RESTORE  ENTRY  REGoTER 


J  MP 
.  ENDC 
.  If  DF 
RETURN 
.  ENDC 
.IF  DF 
PTS 
.  EMCC 


al«.  .  INTX 
RSTS 


RSxnniPTu 

PC 


;  RETURN  TO  CODE  iri  THE  EXEC  BUFFER  POOL 


DU'J2Q9     riQCPO  nn04     Qo-DEC-/?  08:  20     PAQE   13 


n  n 


326 

326 

t^f 

■a  *• ' 

328 

-n«  7 

330 

331 

332 

333 

, 

334 

335 

33b 

337 

33S 

339  OOCOOC 

340 

34 1 

34: 

3'43  OGCOOO 

344 

345 

346  OCOOOO 

016202 

000002 

347 

348 

349  000004 

012106 

360 

361 

362  00000b 

01b203 

000010 

363 

364 

366 

36b 

367  000012 

113746 

irrr^b 

36S  OOOGlb 

116237 

000014 

369 

3bO  000024 

006705 

3bl  00002b 

100006 

362  000030 

106062 

000037 

363  000034 

006306 

364  000G3b 

100002 

_;66  000040 

105262 

000037 

36b 

367 

36S  000044 

012104 

369  000046 

001423 

370  000060 

010462 

000032 

371 

372    ^ 

373 

374  000064 

012162 

000034 

376 

376 

377 

37S  C00060 

010162 

000030 

17:^ 


;DU11  ISR  NON-INTERRUPT  SERVICE  ROUTINES 

;ENTERED  FROn  COMTEX-tl  SCIP  DEVICE  TYPE  ''IflTR'X  SWITCH  (C.  SPRP) 

;WITH  THE  FOLLOWING  CONDITIONS  ON  ENTRY; 

;P1=P0INTER  TO  PRIORITY  LIST 

;Rz=TfiP  LINE  TRBLE  RDDRESS 

;R3=LINE  NUriBER  flS  UORD  ADDRESS 

;EXIT  CONDITIONS.  EXITS  Ulfl  RTS  PC 

;SP=STflTE  UPON  ENTRY 

;PLL  OTHER  REGISTERS  UNDEFINED 

;PS  RETURNED  TO  CPLLER 

;DU11  TRPNSniT  ENABLE  ROUTINE  -  CU  OSU 

; DEVICE  TYPE  MPTPIX  SWITCH  FUNCTION  CODE  =  0 

.IF  OF   PSAUD'FSXliri 
PSECT  XXX 
ENDC 
.  IF  NZ  PCS 

GLOBL  CP.  OSU 
CP  OSU: 
.  ENDC 


CU.  OSU:  nOV  2fP2).P2 


OBTAIN  ISP  TABLE  ADDPESS 


:END  OF  TPANSMIT  CHAIN  HAS  BEEN  f?EACHED  WITH  NO  EPPOP 

CUOSUl  MOV  (Pl)+,R6  .OBTAIN  FLAG  WORD  AS  SPECIFIED 


■  k 


0  EPPOP  IN  UOPD/BYTE  SPECIFICATION.  TFY  IDLE  SYNC  CHANGE 


CU0SU2  r\0\i   PCSP'P2'.P3 
.  IF  DF  LSI  11 

,  riFps   -(SP) 

nTPS     IFF I0P(P2) 
.  IFF 

Hovc  i);ps-  -'SP^ 

MOVB  TPRI0RiR2.'.ai«PS 

ENDC 
TST  P6 
BPL  CU0SU3 
CLPB  SYNiDL'P2) 
ASL  P6 
BPL  CU0SU3 
INCB  SYNIDLfP2) 


-GET  DEVICE  PCSR  ADDPESS 

;THEN  SAVE  CUPPENT  PPiORlTY 

:AND  DISALLf^W  INTEPPUPTS  FROM  THIS  DEVICE 

;TH£N  SAVE  CUPPENT  PRIORITY 

;AND  OISALLOLI  INTEPPUPTS  FROfl  THIS  DEVICE 

;,;IS  CHANGE  OF  IDLE  SYNC  SPECD 
;;;N0 

;; : YES.  CLEAR  IDLE  SYNC  FLAG 
;; ;  AND  SEE  UHAT  IS  TO  BE  DONE 
; . ; CLEAR  SVNC  IDLE 
; ;: ASSERT  SYN  IDLE 


:!^LAG  TESTING  HAS  BEEN  COflPLETED.  NOW  START  UP  WHATEVER  IS  TO  BE 


379 
3S0 


00006U 
000070 


052713 
062763 


nonnnu 

000120 


000004 


CU0SU3;  MOV  iPl)+.P4 
BEQ  CU0SU4 
MOV  R4,CTBA';R2) 
.  IF  DF   PSXllD 
ADD     «0FF,.CTBR'P2) 
.  ENDC 

MOV  (Pn  +  .CTBC(P2i 
.  IF  DF   PSXllD 
ADD     tJOFF.Pl 
.  ENDC 

MOV  Rl.NTWPiR2) 
BIS  ;PTSA.iP3 
BIS  SSEND+TlNTE-HiPj) 


CHARACTERS  TO  BE  TRANSMITTED 

NO 

YES.  UPDATE  BUFFEP  RDORESS 


AND  THEN  BYTE  COUNT 


AND  NEXT  TRANSMIT  WORD  PAiR 

ASSERT  RTS 

AND  ASSERT  SEND  WITH  TDNP  INT 


Kt        4  4 


DUW209     nfiCPO  nn04     Ob-DEC-77  08:  20     PfiGEt3-l 


N  tt 


381  000076 

032763 

014000 

000004 

3S2  000104 

001017 

3S3  00010b 

112762 

177777 

000015 

3S4  0001 m 

000413 

355 

3Sb 

38"  OOOllfe 

005762 

000032 

3S8  000122 

001033 

339  000124 

105762 

000037 

390  000130 

001423 

391 

39: 

393  000132 

052763 

000020 

000004 

394  000140 

052713 

000004 

395  0001U4 

105763 

000004 

:9b  000150 

100020 

397  00015: 

105762 

000037 

39S  00015b 

001004 

399 

400 

401  OOOlbO 

G12763 

000777 

OOOOCd 

402  000 Ibb 

0004 1 1 

403 

404 

405  000170 

1 lb:b3 

nooouo 

OOOOOb 

406  00017b 

000405 

407 

408 

409  000200 

04:713 

000004 

UIO  000204 

O427o3 

0000:0 

000004 

411 

412 

413  000:12 

414 

415 

41b  000:12 

112637 

r77"6 

417 

41S  00n:ib 

000357 

4!9  ooo::n 

nco:o7 

BIT  »riM00E.4(R3) 
BNE  CUTSTX 
MOVE  »-l,RTSCTRf02) 
BR  CUTSTX 


S" 


;;;  IS  riRINTENflNCE  MODE  SET 

;;; IF  SO  IGNORE  WAIT  FOR  CTS 

;;;THr.N  INDICATE  CTS  WAIT 

;;;  THEN  START  UP  DEVICE  IF  POSSIBLE 


,  TRANSMISSION,  IF  STARTABLE  HAS  BEEN  INITED 


CU0SU4:  TST  CTBA(R2) 
BNE  CUOSUX 
TSTB  SYN1DL(R2) 
BEQ  CU0SU5 

;SYNC  IDLE  IS  TO  BE  ASSERTED 
BIS  «SEND.4fR3) 
BIS  »RTSfi,ilR3 

CUTSTX:  TSTB  4(R3) 
BPL  CUOSUX 
TSTB  SYNlDLfR2) 
BNE  CU0SU6 


;  ; IS  TRANSMISSION  ACTIVE 
;;;rES,  NO  CAHNGES  NECCESSARY 
;,, IS  SYN  IDLE  ACTIVD 
;;;N0 


;;; ASSERT  SEND 

,;;AND  ASSERT  REQUEST  TO  SEND 

;;;TEST  IF  TDONE  SET 

;;;N0,  LEAVE.  DEVICE  SHOULD  START 

;;; IS  SYNC  IDLE  ACTIVE 

;;;YES,  SEND  ONE  SYN  CHARACTER 


•START  TRANSMISSION  VIP  JAMHING  MARKS  INTO  T  REGISTER 

MOV  «777,bfR3)         ;;;8  BIT  MARK  CHARACTER  PLUS  TSOM  BIT  FOR  DUP 
BR  CUOSUX  ;;;AND  EXIT 

; START  TRANSMISSION  ViR  SYNC  CHRPACTER  OUTPUT 


CUOSUb;  MOVB  SVNCHI<fR2),<^fP3 
BR  CUOSUX 

;SYNC  IDLE  IS  TO  BE  CLERRED 
CU0SU5:  BIC  »RTSP-iiP3 

BIC  «SEND.4(P3) 

.ALL  PROCESSING  COMPLETE   EXIT 
CUi"'SUX.  .  IF  DF  LSI  11 

MTPS    ^SP.)  + 

.  IFF 

MOVi'B  '  SP.1  +  .  a)rPS 

.  ENDC 

CLRLL 

RTS  PC 


:;;LOAD  T  REGISTER  UiTH  SYNC  TO  START  XM I  SSI  ON 
;,;THEN  EXIT 


;;;DROP  RTS  ASSEPTiQN 
;;;AND  SEND  ASSERT  I  ON 


DPOP  TO  ENTRANCE  PRIORITY  LEVEL 

DROP  TO  ENTPRNCE  PRIORITY  LEVEL 

QND  CLEPP  RLL  CONDITION  CODES 
THEN  EXiT 


ESaSSS^SBSSS3S33I33SS3LsSSSS3!S::S3S3SSSSe3SS^Si3i^S^ 


SSE^S^ 
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B  12 


H21 


422 

H23 

42H 

H25 

H2b 

H27  000222 

428 

H29 

430  000222 

016202 

000002 

431  000226 

012746 

177777 

432  000232 

016104 

000002 

433  000236 

030427 

100121 

434  000242 

001433 

435  000244 

016203 

000010 

4  3b  000250 

43:^ 

43S 

005016 

439  000252 

030427 

000001 

440  00025b 

001405 

441  000260 

030427 

000002 

442  000264 

001424 

443  00026b 

052713 

000002 

444  000272 

445  000272 

005704 

4'. 6  000274 

100016 

447  000276 

005004 

448  000300 

011303 

449  000302 

030327 

001000 

450  000306 

001402 

451  000310 

05270^ 

000004 

452  000314 

030327 

000002 

453  000320 

001402 

454  000322 

052704 

000010 

455  000326 

456  000326 

C1U461 

000004 

457 

458 

459  000332 

005726 

^bO   000334 

000207 

Ubl 

462 

46 J  000336 

04  271 J 

000002 

464  000342 

000753 

U65 

466 

467  000344 

04  2713 

000010 

4bS  000350 

000750 

.DUll  nODEM  CONTROL  SENSt  ROUTINE  -  CU.  riDn 
.ENTERED  FROM  SCIP  DEViCE  TYPE  riPTRIX  fiUITCH 
.DEVICE  TYPE  PflTRIX  SUITCH  FUNCTION  CODE  =  1 


.  IF  N2 

RCS 

.  GLOBL 

CP.  r^DM 

CP,  MDri: 

.  ENDC 

CU.  MOM: 

nov 

2(R2.'.R2 

nov 

«-l,-(SP) 

\iQy 

2(R1).R4 

BIT 

R4,,:aiT00+BIT 

BEQ 

NOSRDP 

MOV 

RCSR(R2),R3 

CLP 

aiSP 

;SOnE  ACTION  IS  SPECIFIED 

BI  r 

^.4,;ritoo 

B-.Q 

r.OD'iRC 

Bi"!- 

R4,«BiT01 

BF^ 

CLRDTR 

GIS 

«DTR,iiR3 

NODTRC: 

NOSTDC. 

TST 

R4 

BFL 

NOSRDP 

CLP 

P4 

nov 

iR3,R3 

NOCTSP; 

BIT 

P3.SDSP 

BEQ 

NODSPP 

BIS 

ttBIT02,.  PU 

NODSPP: 

BIT 

P3-8D"rR 

BEQ 

NODTPP 

BIS 

SBIT03.P4 

NODTPP. 

NSRDPX: 

nov 

R4,4CRn 

; OBTAIN  ISR  TABLE  ADDRESS 
;SET  FLAC  TO  EXT  I  WUTH  ERROR 
;OBTAIN  SPECIFIED  PhRAMETER  WORD  1 
+BITU6+BIT15  ;IS  ANV  ACTION  SPECIFIED 

, NOTHING  SPECIFIED.  EXIT  WITH  ERROR 
; SOMETHING  TO  DO.  GET  RCSR  ADDRESS 
;AND  SET  ERROR  FLAG  TO  NO  ERROR 

TEST  EACH  CONDITION 

IS  DTP  CHANGE  REQUESTED 

NO  DTR  CHANGE 

DTR  CHANGE  SPECIFIED.  HOW? 

CHANGE  BY  CLEARING 

CHANGE  BY  ASSERTION  OF  DTR 

;  IS  SENSE  REQUESTED 

.;N0,  EXIT 

;YES.  CLEAR  SENSE  REPOSITORY 

; OBTAIN  CURRENT  SPATES 

; IS  DSR  PRESENT 

;  NO 

;YES.  INDICATE  DSP  PRESENT 

;  IS  DTP  ASSERTED 

.:N0 

;YES-  INDICATE  DTP  ASSERTION 

;AND  UPDATE  USER  SENSE  LNCS 


;THEN  EXIT  FROM  MODEM  CONTROL  ROUTINE. 
NOSRDP:  TST  tSP)t  ;OBTAiN  EPPOP  FLAGS 

RTS  PC  ;AND  EXIT 

ROUTINE  IS  REQUESTED  TO  CLEAR  DTP 


F  ANY 


CLRDTP:  BIC  nDTR,iiR3 
BP  NODTRC 


; CLEAR  DTP  ASSEPTiON 
;AND  CONTINUE  TESTS 


; ROUTINE  IS  REQUESTED  TO  CLEAR  STD 


CLPSTD;  BIC  »STD.aR3 
BP  NOSTDC 


CLEAR  STD  ASSERTION 
THEN  CONTINUE  TESTS 


L. 
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C  12 


H72 
H73 
l♦7^ 
U7S 
H7b 
>477 

^7S 

H79 

H20 

481 

482 

483 

HS4 

4  85 

48b 

487 

488 

489 

490 

491 

492 

493 

494 

496 

^96 

497 

498 

499 

500 

501 

502 

503 

504 

505 

50b 

507 

BOS 

509 

510 

511 

512 

513 

514 

515 

51b 

517 

518 

519 

520 

521 

522 

523 

524 

525 

52b 


00120b 


00120b 

00120b 
001212 
00121b 
001222 
00122b 
001232 
00123b 
001240 
001242 
00124b 
001250 
001254 
00125b 
00l2b2 
0012b2 
001262 
00126b 
00126b 
001274 
001274 
001300 
001302 
001306 
001310 
001314 
001320 
001322 
001330 
001332 
001334 
001340 
001344 
001350 
001354 


00135b 
001362 


001364 
001370 


001372 
001376 


DUll  nODE  CONTROL/SENSE  ROUTINE  -  CU.  MOD 
DEVICE  TYPE  MRTRIX  SWITCH  FUNCTION  CODE  = 

.  IF  DF  RSX 

.  PSECT  ISR 

.  ENDC 


01b202 
01bl04 
01274b 
016203 
016205 
C30427 
0014b0 
00501b 
030427 
001405 
030427 
001440 
052713 


052705 

052763 

030427 
00^.413 
030427 
001426 
052713 
030427 
001424 
012762 
005704 
100004 
042713 
052713 
010563 
010562 
000411 


042713 
000737 


042713 
000751 


005062 
000754 


000002 
000002 
\77777 
000010 
000040 
015041 


000001 
OOOOID 
000120 

GObOGO 

000010  000004 

010000 

020000 

000400 
040000 

000400  G0C042 


000020 
000020 
000002 
000040 


000120 


000400 


000042 


.  GLOBL  CP.  nOD 
CP.  MOD: 


CU.  MOD: 


CKRCV 


CKSTSI: 
NOINTC; 

NOCLC: 

NOHDC: 
NOSYNC- 


MOV 
MOV 
MOV 
MOV 
MOV 
BIT 
BEQ 
CLP 
BIT 
BEQ 
BIT 
BEQ 
BIS 


BIS 


2(R2),R2 

2(R1),R4 

«'1,-(SP) 

RCSR(R2).R3 

SYNCHR(R2),R5 

R4,«BIT00+BIT05*b 

TSTSNS 

o)SP 

R4.»BIT00 

NOlNTC 

R4,«BIT03 

CLPRI 

URINTE+SSYN,  iR3 


;OBTPIN  ISR  TPBLE  ADDRESS 
; OBTAIN  PARAMETER  WORD 
; INITIALIZE  ERROR  FLAG  TO  ERROR  PRESENT 
.OBTAIN  RCSR  ADDRESS 
; OBTAIN  DEVICE  SVN  CHAR/  STATUS  WORD 
T09+BITll'fBIT12  ;  IS  ANYTHIG  TO  BE  DON£ 
;N0  CHANGES,  TRY  SENSE  REQUEST 
, SOMETHING  SPECIFIED,  CLEAR  ERROR  FLAG 
;ARE  INT/MMODE  SPECS  TO  BE  CHANGED 
;N0 

,   IS  RECEIVE  ENABLE  TO  BE  ASSERTED 
;CLEHR 
; ENABLE  RCV  INTERRUPT  AND  SEARCH  SYNC 


»CHL78!CHLb8,R5 


CKSSDC: 
NOSSC: 

NORCVC: 


BIS  nHDUPL,4(R3) 

BIT  R4,»BIT12 

BEQ  NOSSC 

BIT  R4,»BIT13 

BEQ  CLPSS 

BIS  USTRSYN.5R3 

BIT  R4,«3IT14 

BEQ  CLPSSD 

MOV  «STRSYN, STPSYH'P2) 

TST  R4 

BPL  NORCVC 

B:C  «SSYN. JR3 

BIS  wSSYN,  alR3 

MOV  R5, 2(R3) 

MOV  R5,SYNCHR(R:". 

BR  TSTSNS 


SET  UP  FOR  ?  BITS 

ASSERT  HALF  DUPLEX  MODE 

IS  STRIP  SYNC  CONTROL  TO  BE  CAHNGED 

NO  CHANGE 

CHANGE  REQUESTED,  HOW  IS  I T  TO  Be  SET 

CLEAR  STRIP  SYNC 

ASSERT  STRIP  SYNC 

IS  STRIP  SYNC  DEFERRED  SELECTION  <jJ 

CLEAR  DEFFERRED  STRIP  SYNC  SELECTION 

^'tT  DEFERRED  STRIP  SYNC  CONTROL 

IS  RCV  ACTIVE  TO  BE  CLEARED 

NO 

CLEAR  RCV  ACTIVE  VIA  SEARCH  SYN  CLEAR 

AND  SEARCH  SYNC  ASSERTION 

THEN  UPDATE  DEVICE  STATUS 

AND  SAVED  DEVICE  STATUS 

AND  THEN  TEST  FOR  SENSING  REQUIRED 


-CLEAR  ReCEIVE  INTERRLPT  SELECTION  -  DISABLE  RECEIVE 
CLRRI:   BIC  «RINTE+SSYN,i)R3     ;CLEAR  PINT  AND  SEHRCH  SYNC 
BR  CKSTSI  ;flND  CONTINUE  TESTS 

;CLEAR  STRIP  SYNC  SELECTION 

CLPSS:   BIC  »STRSYN,i)R3  .DROP  STRIP  GYNC  SFLECTION 
BR  CKSSDC 

'clear  DEFERRED  STRIP  SYNC  SELECTION 

CLPSSD.  CLP  STPSYN(P2)         ; DROP  ISP  TABLE  INDirflTOP 
BR  NOSSC  ;flND  CONTINUE 


001400  005726 


TSTSNS:  MOD^IT:   TST  (SP1  + 


.:PECOVEP  FLAG  WORD 


J 
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D  12 


527  001402 

S28 

629  000352 

530 


000207 


PIS  PC 
.  iF  OF  RSX 
.  PSECT  XXX 
.  ENDC 


AND  EXIT 


000352 
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S33 

S3S 

S36 

S37 

53S 

539 

BHO  000352 

5m  000352  016700 

5H2 

5143  000356     000405 

545 

5Ub  000360  004567 

54;^  G00364 

54S  000364   000257 

54?  000366  000270 

5b0  0003:^0  000207 

551 

652 

553  0003'': 

554 

555 

556 

557 

558 

559 

660  000372 

661  000372  016003 

662  000376  020327 

663  000402  103770 
664 

565  000404  004567 

566 

567 

668  000410  010006 

569  000412  016600 

570  000416  016503 
671  000422  006002 

572  000424   012701 

573  000430  004737 

574  000434   103751 

675  000436  022020 

676  000440  012701 

677  a0044H  004737 

678  000460  103743 

679  000462  004667 
680 

681  000466  010062 

682  000462  016060 

683  000470  062763 

584  000476  032763 

585  000604  001003 

586  000606  016060 

687  000614  062763 

688  000622  016063 


E  12 


;DU11  LINE  INlTlPLIZfiTlON  -  CU 

INI 

;MflTRIX  SWITCH  FUNCTION  CODE  = 

7 

.'if  NZ 

RCS 

.  GLOBL 

CP.  INI 

CP.  INI: 

.  ENDC 

CU.  INI: 

000652' 

-  # 

MOV  CUFSTP,RO 
BP      GOTLIN 

;OBTOIN  ADDRESS  OF  BEGINNING  LINE  TABLE 

OOGOOGG 

• 

ERPORl: 
CU.  INI: 
ERROR: 

JSR     P5.C.SPES 

CL^LL 
SEN 

;MAKE  SURE  WE  RESTORE  REGS  ON  ERROR 

■  » 

RTS  PC 

;EXIT  ROUTINE 

;  ISP  TRBLE  FOP  SPECIFIED  LiNE  1 

"OUND 

GOTLIN: 

.  IF  DF  RSTS 

CMP     RCSR(RO), 8160300        ;  IS  DEVICE  ADDRESS  PRESENT-? 

3HI     DEVPPS 

;YES 

MOV     iRCSR(R0^R3 

:GET  ADDRESS  RSTS  IS  GIVING  US 

MOV     R3.RCSR(P0) 

.:PUT  CSR  ADD  INTO  THE  FIELD  -  CAUSE  THAT 

; IS  WHAT  THE  REST  OF  THE  CODE  EXPECTS  TO  FIND 

■  ^NDC 

DEVPPS- 

OGOOIO 

m\i            RCSRfR0),R3 

;GET  RCSR  ADDRESS  OF  SPECIFIED  DUll 

16000G 

CMP     R3. 8160000 
BLO     ERROR 

;WAS  IT  FOUND 

;N0  -  THERE  IS  A  CONFIG  ERRER 

.  IF  DF  PSyilD!PSXllM!RTll 

GOOGOOG 

JSR     P5.C.SPEG 
MOV     R0.R5 

;D0  THIS  HERE  SO  THAT  WE  DON'T 
; CLOBBER  THE  CSR  IF  NETWORKS  IS 
;USING  THE  DEVICE 
;COPY  TABLE  ADDRESS 

000012 

MOV     RVECT(R5)-R0 

;GET  VECTOR  ADD  IN  RO 

000014 

MOV     RPRI0RCR5).R3 

.SET  DEV  INT  PRIORITY  IN  R3 

CLR     if 

000000 ' 

MOV     8CUR1.R1 

SET  UP  FOR  RECEIVE  INT 

OOOOOOG 

JSR     PC,i)8..CINT 

BCS     ERPORl 

CMP     (R0)+. (R0)+ 

CALL  ROUTINE  TO  SET  UP  VECTOR 
VECTOR  ALREADY  ASSIGNED 
GET  TRAN  VECTOR 

000004 • 

MOV     8CUT1.R1 

GOOGOOG 

JSR     PC>i8. . CINT 

GO  SET  UP  TRANSMIT  VECTOR 

BCS     ERROR! 

VECTOR  ALREADY  ASSIGNED 

OOOOOOG 

JSR     R5.C.  SRES 
.  ENDC 

;PESTORE  REGISTERS 

000002 

MOV  R0.2(R2) 

;  PLACE  ISR  TABLE  ADDRESS  IN  TAP  TRBLE 

000044 

000040 

MOV     DUSTS(RO),SYNCHR(RO)    ; RSSUME  WE  HOVE  DU-11 

000001 

0000G4 

BIS     8BIT00,4(R3) 

;FIND  OUT  IF  IS  DU  (DUV)  OR  DUP 

000001 

000004 

BIT     8BIT00,4(R3.' 
BNE     lOS 

;DID  THE  BIT  REFUSE  TO  SET? 
;N0.  IT  IS  A  DU-l! 

000046 

G00040 

MOV     DUPSTS(RO),SYNCHR(RO)    ; YES.  ITS  fl  DUP-1! 

000400 

G0G0G4 

IDS: 

BIS  8MRESET,4(R3) 

;THEN  CLEAR  DEVICE 

000040 

000002 

MOV  SYNCHR(R0),2CP3) 

;AND  SET  DEVICE  TO  OLD  STflTES 

DUV209 

MQCPo  nnoH  Ob 

-DEC-77 

08:  20  1 

B39 

000630 

0'A?70 

Q0002H 

590 

00063H 

016062 

000022 

00000^ 

691 

0005H2 

005060 

000030 

692 

0006^fe 

005060 

000032 

697 

000562 

005060 

00003H 

691* 

000556 

105060 

000037 

696 

000562 

105060 

000015 

696 

000666 

006060 

0000H2 

697 

698 

699 

bOO 

PfiGE  16-1 


F  12 


bOl 

6o: 

b03 
60H 
606 
bOb 
bO^ 
60S 
609 
610 
611 
612 
613 

6m 

616 
616 

bl7 
618 

619 
b20 
bCl 


0006:^2 
00C67H 


000267 
G00207 


JSR  PC.dCRBINT(RG) 

nOV  CRBUNL(R0^HCR2) 

CLR  NTWP(RO) 

CLR  CTBO(RO) 

CLR  CTBC(RO) 

CLRB  SYNIOL(RO) 

CLRB  RTSCTR(RO) 

CLR  STPSYN(RO) 

.  IF  OF  RTll 

MOU     »flT.  END^RO 

.DEVICE 

.  ENOC 
CLPLL 
RTS  PC 

.  IF  OF  PTll 

;    PflPfiMETER   BLOCk'toP     DEVICE 
RT.  END:    .  BYTE        0 
BYTE        m 
.  UOPD        OTTEND 


;THEN  CALL  CRB  INIT  RTN 
;PLPCE  CRB  UNLOPDER  POORESS 
;THEN  INITIPLI2E  ISR  TABLE 


N  TAP  TABLE 


;SET  UP  FOR  EXIT  TIME 
.DISABLE  INTERRUPT  WHEN  THE 
; PROGRAM  ABORTS  FOR  ANY  REASON 

; CLEAR  ERROR  FLAGS 
.EXIT 


CALL 

.NO  CHANNEL 

; FUNCTION  CODE 

;LIST  OF  UOPDS  TO  BE  LOADED 

:AT  PROGRAM  TERMINATION 


•ATTEND 


/////// 


UOPD 
UOPD 
WORD 
WORD 
WORD 


ENDC 


DUCSR 

0 

DUCSR+4 

0 

0 


ADDRESS  OF  COMM 
FORCE  IT  TO  0 
TRANSMIT  CSW 
ALSO  FORCE  TO  G 
END  OF  LIST 


CSW 


DUW209    nftCPO  nno^    Ob-OEC-??  08: 20    PRGE  17 


G  12 


6:3 

b:^ 

b:s 

626 

b27 

628 

00057b 

629 

630 

631 

000576 

632 

633 

000576 

016705 

000652' 

t,lM 

b3S 

G00602 

016500 

000012 

to36 

000606 

004737 

OOOOOOG 

tZ" 

000612 

022020 

63S 

000614 

004737 

OOOOOOG 

0  j7 

bHO 

000620 

016503 

000010 

64  1 

000b24 

052^63 

000400 

642 

643 

C00b32 

P0n25" 

644 

000634 

000207 

.DUll  SYSTEM  RESTWRT  -  CU. RST 
;nRTRlX  SWITCH  FUNCTION  CODE 

.'  IF  N2  PCS 
.  GLOBL  CP.  RST 
CP.  RST: 
.  ENDC 


.  ii 


CU.  RST: 


NOF 


000004 


.  IF 
MOV 
.  IF 
MOV 
JSP 
CMP 
JSR 

ENDC 
MOV 
BIS 

ENDC 
CLRLL 
PTS  PC 


RSTS 

C'JFSTP,R5 
DF  RSXllDIRSXl 
RVECT(R5),R0 
PC,a)«.  .  DINT 
(PO)^. (RO)* 
PC,i)».  .  DINT 


MIRTH 


PCSP^P5) 
«MRESET. 


R3 
•  iP3) 

CLEhP 


GET  BEGINNING  TPBLE  PDDRESS 

OBTAIN  VECTOR  ADDRESS 

RND  DISCONNECT  FROM  VECTOR 

BUMP  TO  TRANSMIT  VECTOR 

AND  DISCONNECT  FROM  THAT  VECTOP 

AND  OBTAIN  RCSR  ADDRESS 
CLEAR  THE  DEVICE 


CONDITION  CODES 
;AND  PETUPN  TO  CALLEP 


DIJW209     nfiCPO  nnOH     Ob-DEC-??  08:20     PfiGE    18 


H  12 


b4fe 

647 

b4S 

649 

650 

bSl  000636 

bB2 

653 

654  000636 

000257 

655  000640 

000270 

656  000642 

000207 

b57 

658 

OOCOOl 

;DUU    TRflNSniT  DISABLE   ROUTINE    -   CU.  KLL 
;DEVICE   TYPE   flflTRlX  SWITCH  FUNCTION  CODE 


=  5 


.  IF  N2 
.  GLOBL 
CP.  KLL: 
.  ENDC 

RCS 

CP.  KLL 

CU.  KLL: 

CLRLL 
SEN 
PTS  PC 

,N0     ERROR  E.XISTS 
,flNO  EXIT 


END 


0U^i209 

MQCPO  MnO^  Ob-DEC-77 
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SYMBOL  ■ 

TQBLE 

BITOO  = 

OOOOOl 

CP  MOM 

000222RG 

003 

CUTIS 

000736RG 

002 

MMODE  s 

014000 

RTSCTRs 

000016 

BiTOl  = 

000C02 

CP.  MOD 

0012G6RG 

002 

CUTRON 

000670R 

002 

MOOX 1 T 

001400R 

002 

RVECT  » 

000012 

BITO:  -. 

0000014 

CF  OSU 

OOOOOORG 

003 

CUTSTX 

OOOmHR 

003 

MRESETa 

000400 

S 

000010 

BITQ3  = 

000010 

CP.RST 

000576RG 

003 

CUTXTl 

00t062R 

002 

NOCLC 

0012b6R 

002 

sec      » 

000277 

BlTQi*  = 

000020 

CRBlNTr 

G0002H 

CUTl 

OOOOOHR 

002 

NOCTSP 

000302R 

003 

SEC   = 

000261 

BITOS  = 

OOOOHO 

CP6INX 

OOOOBGR 

002 

CU.  FST 

OOOOOORG 

002 

NODSRP 

0003mR 

003 

SEN   = 

000270 

BiTOb  = 

OOOIOO 

CRBLOR= 

G0002G 

CU.  INI 

0003S2RG 

003 

NODTRC 

000272R 

003 

SEND  = 

000020 

BiTO?  = 

000200 

CPBLMX= 

GG0652R 

002 

CU.  INI 

00036HR 

003 

NODTRP 

G00326R 

003 

SEV   s 

000262 

BIT08  = 

0001*00 

CRBLPX 

GG0064R 

002 

CU.  KLL 

000()36RG 

003 

NOHDC 

001274R 

002 

SEZ   s 

000264 

61109  r 

001000 

CRBLX 

G001GGR 

002 

CU.  LST 

OOOOSORG 

002 

NOINTC 

0012b2R 

002 

SIBLOR: 

000026 

BiTlO  '. 

002000 

CRBM2X= 

1774GG 

CU.  MOM 

000222RG 

^03 

NOP   - 

000240 

SRO   = 

002000 

BUll  = 

004000 

CRBNOX 

0G0244R 

002 

CU.  MOD 

001206RG 

02 

NORCVC 

001344R 

002 

SSYN  s 

000020 

B!Ti:  -- 

010000 

CPBOVX 

G00144R 

002 

CU.  OSU 

OOOOOORG 

J03 

NORCVO 

Q0G720R 

002 

STD   = 

000010 

BlTlZ  = 

020000 

CRBPSX 

G00132R 

002 

CU.  RST 

000576RG 

003 

NOSROP 

000332R 

003 

STPSYNs 

000042 

Biim  : 

01*0000 

CRBSVX 

000232P 

002 

C.  SPS  = 

Utttt   G 

NOSSC 

001330R 

002 

STRSYN= 

000400 

BITIS  = 

1 00000 

CPBS2X= 

G004GG 

C  SREG= 

tttttt   GX 

NOSTDC 

000272R 

003 

STSSIB= 

140400 

CBflX  = 

-.000006 

CRBUNL= 

000022 

C.  SRES= 

tttttt   GX 

NOSYNC 

0G1274R 

002 

SYNCHR- 

000040 

CBsy  -- 

-.000004 

CPBUX 

GOOlbOR 

002 

DEUPRS 

000372P 

003 

NSRDPX 

GG032bR 

003 

SYNIDL= 

000037 

•ICC 

00026:^ 

CRBXXX 

G00262R 

002 

DEVSTS= 

000040 

NTWP  = 

G00G30 

SYNREG= 

000377 

CD 

010000 

CPVOX 

000140R 

002 

DE.  PRI  = 

tttttt   G 

OFF   = 

GGGOOG 

TfiSKflD= 

tttttt 

GX 

CFINX 

000260P 

002  CPYOX 

000214P 

002 

DNR   = 

100000 

OS 

GGOGGG 

TBUSY  = 

000016 

CF^LU  = 

ttttit   GX 

CSINX 

00015bR 

002 

DNfllNT= 

000040 

OUTCHR 

001116R 

002 

TC0UNT= 

000002 

CHL68  = 

002000 

CTBR  = 

000032 

DSETC  = 

100000 

OUTMRK 

001124R 

002 

TDONE  = 

000200 

CHL78  = 

004000 

CTBC   = 

000034 

DSINTE= 

000040 

OUTSYN 

001134R 

002 

TFINI 

G01054P 

002 

CKRCVI 

001260P 

002  CIS   = 

020000 

DSP 

001000 

PS 

177776 

TINTE  = 

GOO 100 

CKSSUC 

GonmP 

002  CUFSTP 

000662RG 

002 

DTP 

000002 

R 

G00004 

TPRIOR= 

G00G14 

CKSTSI 

001262P 

002  CUGPCH 

G00700P 

002 

DUCSR  = 

tttttt   G 

PRCT  = 

004000 

TRRNS 

GGIGIOR 

002 

CLOLL  = 

G00267 

CULSTP 

O00fe64PG 

002 

DUPSTG= 

000046 

PBUSY  = 

GG0G16 

TRRNSI 

G01G02R 

002 

CLC 

000241 

CUOSUX 

00021 2R 

003 

DUSTS  = 

000044 

RCS   = 

GOOOOl 

TSTSNS 

G01400R 

002 

CLN 

000250 

CUOSUl 

000004R 

003 

ENBPRR= 

001000 

RCSR   = 

GGOOIO 

T.  EFLG= 

tttttt 

GX 

CLPDTP 

00033bR 

003  CU0SU2 

OOOOObR 

003 

ERROR 

C00364R 

003 

RCVSIB= 

GOOOOO 

USEPflR= 

GOOOOO 

CLRRI 

oonsfeP 

002  CU0SU3 

0G0044P 

003 

EPRORl 

000360R 

003 

RDONE  = 

000200 

VECTOR: 

GOOOOl 

CLRSS 

001364R 

002  CU0SU4 

0001 IfeR 

003 

EVNPflP= 

000400 

PETNX  = 

•^000007 

WINDUP 

G01152R 

002 

CLPSSD 

001372P 

002  CU0SU5 

0G0200R 

003 

EXITT 

001144P 

002 

RGOT 

000666R 

002 

XMTSIB= 

GGIOGG 

CLPSTD 

000344P 

003  CUOSUb 

0001 70R 

003 

GOTLIN 

000372R 

003 

RING  = 

040000 

SRQSCHs 

tttttt 

GX 

CLU 

000242 

CUP  IS 

000fe66PG 

002 

HRLT   = 

000000 

RINTE  = 

000100 

5SIGFL= 

tttttt 

GX 

CLZ    = 

000244 

cupxr 

00072feR 

oo: 

HDUPL  = 

000010 

RPRIOR= 

000014 

5TSKHD= 

tttttt 

GX 

rpr-p   = 

******  G 

CUPl 

OOOOOOR 

002 

ISRSI2= 

000060 

RSX 

000001 

. .  CINT= 

tttttt 

GX 

CP  INI 

000362PG 

003  CUSl 

OOOOIOR 

002 

LINENO= 

OOOOZb 

PSXllM^ 

GOOOOl 

.  .  DINT  = 

tttttt 

GX 

CP.  KLL 

GOObZbPG 

003  CUTEXT 

G01170P 

002 

LNO 

000000 

RTSP   = 

000004 

PBS. 

000000 
000000 

000 
001 

ISR 

001404 

002 

yxx 

000644 

003 
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DETECTED: 

0 

■ 

UIRTURL 

MEnORY  USED:   lOS?  UOPDS   (  5  PflGEi 

5  1 

DYNfiMIC 

MEMORY:   : 

ZSIO  WORDS   I 

10  PPGES^ 

ELAPSED 

TIME:   00: 

00:  17 
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CROSS  REFERENCE 

CREF 

SYMBOL 

VRLUE 

REFERENCES 

BITOO 

=   00000 I 

«10-26 

14-433 

14-439 

15-484 

15-487 

16-58J 

16-584 

BlTOl 

=   000002 

»l0-27 

10-51 

14-441 

BITO: 

=   OOOOOH 

1110-28 

10-52 

14-451 

BIT03 

=    OOOOIO 

1110-29 

10-53 

10-68 

14-454 

15-489 

BlTOH 

=   000020 

110-30 

10-54 

10-69 

14-433 

BIT05 

=   OOOOIO 

MO-31 

10-5G 

10-70 

16-484 

BiTOb 

=   000100 

MO-32 

10-56 

10-71 

14-433 

BIT07 

=   000200 

MO-33 

10-57 

10-72 

BITOS 

=   OOOHOO 

110-34 

10-58 

10-73 

10-79 

B!T09 

=   001000 

MO-36 

10-59 

10-80 

15-484 

BITIO 

=   002000 

«10-36 

10-60 

10-81 

BITll 

=    004000 

»10-37 

10-61 

10-74 

10-82 

15-484 

BiTl2 

=    010000 

810-38 

10-62 

10-74 

15-484 

15-498 

Bin: 

=    020000 

810-39 

10-63 

11-173 

15-500 

B  1  T  m 

=    OHOOOO 

810-40 

10-64 

11-171 

15-503 

BITIB 

=    100000 

810-41 

10-65 

10-75 

14-433 

'".BfiX 

=  •.000008 

86-216 

7-262 

16-224 
♦3-270 

6-225 
8-271 

6-226 

S-273 

6-227 

♦6-228 

♦7-239              7-2 

43              7-. 

CBBK 

=  -.000004 

86-217 

♦7-238 

7-245 

♦S-271 

S-277 

♦8-279 

♦8-283 

CCC 

=    00026^ 

82-10 

CD 

=    010000 

81U-62 

CFINX 

0002B0  R 

*6-226 

S-270 

♦s-:r4 

♦8-276 

8C-296 

CFKLU 

=    tttttt     GX 

5-169 

CHL68 

=    002000 

810-Sl 

15-494 

CHL78 

=    004000 

810-S2 

15-494 

CKRCVI 

001250  P 

81S-4S9 

CKSSDC 

001314   R 

815-603 

15-620 

CKSTSI 

001262  R 

815-492 

16-616 

CLRLL 

=   000257 

8-2S0 

810-12 

13-41S 

16-648 

I0-6O2 

17-643 

18-664 

CLC 

=   000241 

82-6 

10-12 

CLN 

=   000250 

82-9 

10-12 

CLRDTR 

000336  R 

1^-442 

814-463 

CLPRI 

001356  R 

15-490 

815-516 

CLRSS 

001364   R 

15-501 

815-619 

CLRSSD 

001372  R 

15-504 

815-523 

CLRSTD 

000344   R 

814-467 

CLU 

=    000242 

82-7 

10-12 

CLZ 

=    000244 

82-S 

10-12 

CPUP 

=  tnttt    G 

4-122 

5-162 

CP.   INI 

0C0352  RG 

16-536 

816-637 

CP.  KLL 

000636  RG 

18-650 

818-661 

CP.  MDM 

000222  RG 

14-426 

814-427 

CP.  MOD 

001206  RG 

15-476 

815-477 

CP.  OSU 

000000  RG 

n-342 

813-343 

CP.  RST 

000576  RG 

17-627 

817-628 

CRBINT 

=   000024 

81-5 

810-108 

10-109 

16-689 

CRBINX 

000050  R 

5-lbS 

86-224 

CRBLDR 

=   000020 

810-106 

10-107 

11-174 

CRBLMX 

=   000652  R 

♦  6"  ^i.1 

7-243 

♦7-246 

♦7-262 

S-271 

♦S-273 

88-301 

CRBLPX 

000064   R 

86-227 

6-229 

CRBLX 

000100  R 

5-166 

87-23S 

CRBMZX 

=    177400 

86-211 

6-224 

7-248 

S-276 

K 

12 
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svriBOL 

CROSS  REFERENCE 

CREF 

SYMBOL 

VRLUE 

REFERENCES 

CPBNOX 

0002i»H 

R 

8-272 

•8-288 

CPBOl^X 

ooomn 

R 

7-244 

•7-252 

CPBPSX 

000132 

R 

•7-248 

CPBSVX 

000232 

R 

8-278 

•8-283 

CPBSZX 

=  ooo^oo 

116-210 

6-211 

7-260 

8-296 

8-300 

CPBUNL 

=   000022 

«10-107 

10-108 

16-590 

CPBUX 

000160 

R 

5-167 

•8-270 

CPBXXX 

000252 

R 

18-300 

CPU  OX 

ooomo 

R 

7-247 

•7-249 

CPYOX 

0002m 

R 

8-275 

•8-277 

•:  'I  \  NX 

OOOlBb 

R 

«6-225 

7-239 

17-246 

*7-248 

•7-260 

CTBR 

=   000032 

»10-lll 

10-112 

12-233 

M2-234 

M2-243         «l3-370            \Z-2S7 

*16-592 

:tbc 

=   00003H 

»10-112 

10-113 

12-229 

*l2-235 

*12-248         *l3-374          416-593 

CIS 

=   02000G 

«l0-63 

12-224 

LUFS"rP 

000662 

PG 

10-4S 

•10-123 

16-541 

r-633 

•'JJGPCH 

000700 

P 

»ll-16? 

'lULSTP 

0006614 

PG 

10-4S 

•10-124 

CUOSUX 

000212 

P 

13-3SS 

13-396 

13-402 

13-406 

•13-413 

CUOSUl 

OOOOOH 

P 

»13-Z49 

CU0SU2 

000006 

P 

•13-35: 

CU0SU3 

00004^ 

P 

13-361 

13-364 

•13-:bS 

cuosu^ 

000116 

P 

13-369 

;13-3S7 

CU0SU5 

000200 

P 

13-390 

•13-409 

CUOSUfe 

000  ro 

P 

13-39S 

»13-40F 

■ 

CUR  IS 

000666 

PG 

5-149 

10-4" 

sn-149 

CURXIT 

000726 

P 

11-165 

»ii-i:'9 

CURl 

000000 

P 

nS-  m: 

10-96 

10-97 

lb-572 

CLSl 

000010 

P 

?E-lbO 

10-97 

CUTEXT 

001170 

R 

12-21S 

12-236 

r:-25: 

i:-2«  / 

12-2SS            12-292            12-296 

•12-307 

CUTIS 

000736 

RG 

5-156 

10-47 

»12-207 

CUTRDN 

000670 

P 

»11-16H 

CUTSTX 

ooomH 

P 

13-382 

13-:£4 

«i3-:?5 

CUTXTl 

001052 

R 

812-25C 

CUTl 

000004 

R 

S5-150 

10-96 

16-5:^6 

CU.  FST 

000000 

PG 

3-47 

•5-141 

10-123 

:                                                                 , 

CU.   INI 

000352 

RG 

10-47 

•16-540 

CU.   INI 

000364 

R 

»lb-547 

CU.  KLL 

000636 

PG 

10-47 

•lS-b5u 

' 

CU.  LST 

000050 

PG 

3-47 

•5-179 

10- 1:4 

CU.  MDM 

000222 

RG 

10-47 

•14-430 

CU.  MOD 

001206 

RG 

10-47 

•15-479 

CU.  OSU 

000000 

PG 

10-47 

•13-346 

lU.  RSI 

000576 

PG 

10-47 

•l7-b31 

C.  SPS 

=    ttttt* 

G 

5-165 

10-4a 

C.  SREG 

-    tttttt 

GX 

16-565 

C.  SRES 

=    tttttt 

GX 

lb-54b 

16-579 

DEVPRS 

000372 

R 

»lb-560 

DEVSTS 

=   OOOOHO 

«10-llb 

DE.  PRI 

=    tttttt 

G 

4-122 

5-163 

DNP 

=    100000 

1*10-75 

DflfllNT 

=    OOOOHO 

«10-7n 

12-295 

OSETC 

=    100000 

»10-b5 

L    12 

Dull 
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SYMBOL 

'-POSS  REFERENCE 

CREF 

SYMBOL 

URLUE 

REFERF^^ 

DSINTE 

=   OOOOHO 

«lO-55 

DSP 

=   OOIOQO 

«10-59 

14-449 

DTP 

=   000002 

mo-Si 

14-443 

14-452 

14-463 

DUCSP 

=  tnttt 

G 

3-77 

5-161 

DUPSTS 

-    000046 

«10-119 

10-120 

16-586 

DUSTS 

=    000044 

»10-118 

10-119 

16-582 

ENBPPP 

=    OOIOOO 

»10-80 

EPPOP 

000364 

R 

»l6-548 

16-563 

EPPOPl 

000360 

R 

»16-546 

16-574 

16-578 

EVNPQP 

=    000400 

«10-79 

EviTT 

001144 

P 

12-230 

12-278 

812-295 

ijOTl  in 

000372 

P 

16-543 

816-553 

H«LT 

=    000000 

«2-4 

HDUPL 

=    000010 

«10-68 

15-496 

iSPSiZ 

=    COOOSO 

»10-120 

LINE NO 

=    000036 

SlO-113 

10-114 

LNO 

=    000000 

»3-S0 

5-171 

LSin 

=    ttitti 

13-353 

13-413 

nnoDE 

=    014000 

810-74 

13-381 

MODX  I  T 

CO  14 00 

P 

«15-52b 

mpeset 

=    000400 

810-73 

lb-5S7 

17-64  1 

NOCLC 

001266 

R 

815-495 

NOCTSP 

000302 

P 

Slu-^l4? 

NODSRP 

00031^ 

P 

W-USO 

814-452 

NODTRC 

000272 

P 

l4-^^0 

81U-4U4 

14-4c.U 

NODTRP 

000326 

P 

14-453 

8  1U-U55 

NOHDC 

001274 

P 

815-49:^ 

NCI  NIC 

001262 

P 

15-4SS 

815-H93 

NOP 

=   000240 

;2-5 

NORCVC 

00131*4 

P 

15-507 

8  1B-510 

NOPCVO 

000720 

R 

11- r2 

8  11-r4 

NOSRDP 

000332 

P 

lu-^3^ 

14-4Hb 

8  I  4  -  H  t^.  '^ 

NOSSC 

001330 

P 

15-499 

815-506 

15-E2H 

NOSTOC 

C00272 

R 

814-445 

14-HbS 

NOSYNC 

001274 

P 

815-49S 

NSPDPV 

000326 

R 

814-456 

NTUP 

=    000030 

810-r.O 

10-111 

12-242 

*i2-:4?       u:-z7s 

tib-E?; 

OFT 

=    000000 

84-llS 

5-166 

OS 

--   OOOOOC 

83-70 

3-72 

4-124 

OUTCHP 

001116 

P 

12-225 

812-2S3 

outmpk 

001124 

P 

812-2S7 

12-300 

OUTSYN 

00113U 

F 

12-2S4 

812-291      r 

PS 

-        »  1    1    1    t    D 

810-15 

13-357 

13-353 

13-uib 

P 

=   000004 

810-96 

11-15S 

11-lbb 

11- 1:^4 

PPIlT 

=   004000 

810-61 

RBUSV 

=    000016 

810-104 

10-105 

PCS 

=   000001 

3-62 

10-127 

13-34  1 

14-425             16-535 

l~-b26 

18-64? 

PCSR 

=   000010 

810-99 

10-100 

11-15S 

12-213            13-352 

14-435 

15-4S2 

16 

PCl'SiB 

=    000000 

81-4 

POONE 

=    000200 

810-57 

PETNv 

=  -;000007 

86-21S 

*6-230 

*7-250 

*:'-254            *S-2S1 

♦S-2S6 

♦s-:s9 

PGOT 

000666 

P 

811-161 

r-175 

17-640 


C-un  CPtfiTED  BY 

S'flBOL  CPOSS  PEFERENCE 

S;nBOL  ^'fiLUE 

PING  =    0^40000 

Pir^TE  =    OCO'iOO 

PPPlOP  =   0000 m 

PST3  =    ***«»* 

Rsy  =  000001 

RSXUO  =    tM*»* 

psxitn  =  000001 
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PTSP 

PTSCTP 

PTll 

S'iECT 


=  00000^ 

=  000015 

r  ****** 

=  000012 

=  000010 


sec 

=  000277 

SEC 

=  0002b 1 

SEN 

=  0002^0 

SEND 

=  000020 

SEV 

=  000262 

SEZ 

=  0002bH 

SIBLDP 

=  00002b 

SPD 

=  002000 

SSYN 

=  000020 

STD 

=  000010 

STPSYN 

=  000042 

STRSYN 

=  OOOUOO 

STSSIB 

=  OMOHOO 

SYNC HP 

=  000040 

SYNIDL 

=  OCOOJ^ 

SYNREG 

=  000377 

TRSKRD 

=  titiit 

TBUSY 

=  000016 

TCOUNT 

=  000002 

TDONE 

=  000200 

TFINI 

001064 

TINTE 

=    000100 

TPPlOP 

=  oooom 

TRANS 

001010 

TPRNSI 

001002 

TSTSNS 

Gomoo 

T.  IflG 

=  tttttt 

USEPRR 

=   000000 

VECTOR 

=  000001 

WINDUP 

001152 

XMTSIB 

=  001000 

SRQSCH 

=  tttttt 

%S1GFL 

=  ****** 

STSKHD 

=  ****** 

GX 


R 
R 
R 


G.X 


REFERENCES 
MO-bH 
«10-5fc 
»10-101 

3-57 

11-150 
»l-2 

3-69 

13-338 
«l-3 

12-272 
MO-52 
810-103 

3-50 

lb-56U 
«1G-1G0 
«l0-97 

12 
»2- 
«2- 


82- 
810 
82- 
82- 
810 
8  10 
810 
810 
810 
810 
810 
810 
16 
810 


-242 

15 

11 

14 

-65 

12 

13 

-10? 

-bO 

-54 

-53 

-117 

-58 

-S? 

-115 

-588 

-114 


GX 
GX 
GX 


810-7S 

12-258 
810-105 
810-85 
810-72 
12-244 
810-71 
810-102 
w  1  ^—  i^^  .J 

15-485 
*12-263 

10-137 
83-79 

12-221 
8in-SS 
*12-264 
112-265 

12-264 


15-491 
10-102 
3-66 
11-180 
12-267 
4-110 
13-371 
3-69 
12-320 
12-303 
10-104 
3-69 
16-597 
10-101 
10-99 
«i:-243 


12-304 

10-110 

15-491 
m-4b7 
10- lis 
15-502 

10-116 
10- 11 5 


10-106 
12-279 

812-256 

12-295 
10-103 

812-229 
15-E12 


3-83 
812-299 


15-515 
16-570 

3-76 
11-189 
16-472 
4-117 
13-376 
4-114 
13-338 
13-379 
12-219 
4-121 
16-b05 
16-569 
12-213 
*12-248 


13-3S0 


15-508 

11-166 
lB-505 

10-117 

12-277 


13-380 
13-35S 


15-526 


4-87 


PfiGE  4 
CREF 


M  12 


5-136 

12-208 

16-628 

4-121 

16-564 

4-121 

16-564 

13-394 

«12-226 
5-143 
17-634 
17-635 
12-219 

*12-249 


13-393 


15-509 

♦15-505 
15-51? 

12-291 


10-132 


6-181 
12-308 

7-240 
17-634 
11-163 
17-634 
13-409 
*12-279 
5-151 


*12-226 

1   «.       «M  I    I 


13-410 


;  15-515 
*15-523 

13-405 
*13-362 


6-209 
12-317 

11-192 

11-181 


*l2-299 
11-153 


12-229 
*12-2^9 


7-256 
16-553 

12-245 

11-195 


*13-383 
11-181 


12-233 

12-283 


8-291 
17-632 

12-269 

12-239 


*16-595 
11-195 


*12-234 
12-291 


10-92 

12-314 
12-260 

12-320 


*12-236 
*12-299 


Mb- 596 

15-483 
*13-:b5 


*  15-5 11 
13-389 


*lb-582 
13-397 


*16-586 
*16-594 


DUU  CPERTED  B'. 

SVriBOL   CROSS  PEFEPENCE 
SrnBOL      I'fiLUE 

CINT     =    MM**      GX 
.    DiNT     =    MM**      GX 
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REFERENCES 
lfe-573 
l7-fc3b 


PPlGE 
CREF 


N   12 


16-577 
17-638 


;    I 


E 
S 

C 

c 

D 
E 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
r 

F 


(11 
El 


1/ 
D' 
El 


ii^aj^'«ti^a=:rf,^tfgs^rf5fer=t»iaHg:^^y.^ 
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2-  HH 

3-  70 


EPPHflN 

UBFHPN    -   USER   BUFFER   OVERFLOl'  flESSOGE 

MESSAGE   RPEP 


EPPHftN  nflCPO 

nno^  Ob-orc-77  08: 

\ 

2 

000001 

•  1 

000001 

'♦ 

C00002 

s 

000000 

6 

7 

8 

ocoooo 

9 

to 

tt 

12 

U 

tH 

15 

lb 

t? 

18 

19 

20 

21 

22 

23 

2H 

25 

Zii 

Z? 

28 

29 

30 

31 

32 

33 

3H 

35 

36 

37 

38 

39 

»*0 

m 

21  PRGE  1 


C  13 


^2 
Hi 


it 

52 
53 
54 
55 
5b 


;  PREFIX  F'LE  FOR  2780  UflP  RUNNING  UNDER  PSXllH 

RSX=1 

RSXlin=l 

NTRNSF  =  2  ;NUn8ER  OF  FILES  -  1  TO  TRPHSFER  IN  ONE  CnO  STRING  (3) 

NRCVSFrO  ; NUMBER  OF  FILES  -  1  TO  RECtlVE  i\) 

;nPCRO  OEFINITIONS 
TflGNUn=0 

.nfiCPO  ERROR   TEXT 
ERROPK   <1EXT> 
JSP     PC, PROMPT 
.  ENOn 

*  ■ 

;    MfiCPO   TO  DO  R  KILL   RND   QUEUE   THE   MESS/^GE 

MflCPO     ERPORK     TEXT 
TRGNUrirTPIGMUM^'l 


.  IPP 

N,  ^  TfiGNUri) 

JSP 

PS^TYPMSG 

WORD 

TRG'N 

.  UOPD 

TttGE'N-TRG'N 

PSECT 

MESRGZ^GBL 

TOG'N: 

.  OSC  1  ! 

"TEXT" 

""flGE'N: 

.  PSECT 

PfilN 

,  ENDH 

.  ENDn 

MfiCPO   TO   QUEUE    fi  MCSSfiGE    ONlY 


MflCPO 

EPRORM  TEXT 

TflGNUn= 

TfiGNUM+1 

.  IPP 

N, <  TRGNUM) 

JSP 

R5,Ti'PMSl 

.  UOPD 

TPG'N 

.  UOPD 

T  .GE'N- TRG'N 

. PSECT 

MESflG2.GBL 

TPG'ri: 

.  flSC  II 

"TEXT' 

TflGE'N: 

.  PSECT 

MAIN 

.  ENDM 

.  ENDM 

MfiCPO   TO  QUEUE   R  MESSRGE    AND   PPOMPT 

.  MRCPO  ERROPP      TEXT 

EPROPM  <TEXT> 

JSP  PC. PROMPT     r  : 

.  ENDM 


.  MACRO  FRTRL        TEXT 

EPPORK  <TEXT> 

JSP  P5-D1E 
.  ENDM 


•mMMin 
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1 

2 
3 

S 

b 

7 

i 

9 
10 
11 

i: 

13 

14 
15 
lb 
17 

IS 

1? 

20 

21 

22 

23 

24 

25 

2b 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

4i 

44 

45 

4b 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


ococno 


000000 


000000 
000006 

000012 
000016 


000000 


57  000022 


012767 
012702 

016700 
004767 
012702 


.T.TLE  ERRHflN 
.  I  DENT  /00002/ 

COPYRIGHT  (C)   1975,  1976.  1977 

DIGITAL  EQUIPnENT  CORPORRTION,  flflYNflRD,  MflSS.  01754 

THIS  SOFTWARE  IS  FURNISHED  UNDER  «  LICENSE  FOR  USE  ONLY  ON 
fl  SINGLE  COnPUTER  SYSTEn  AND  nOY  3E  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED 
OR  OTHERWISE  flAOE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTE^I  AND  TO  ONE  WHO  AGREES  TO   . 
THESE  LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE     ' 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MITMENT BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOP  THE  USE  OR  RELIABILITY 
OF  ITS  SOriLAPE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  Br 
DEC. 

VERSION  0 

ROBERT  H.  ROSENBflUM  31-MRRCH-75 

LAST  MODIFICATION  ON  29-MflY-75 

VERSION  I 

NOV  1977  -  CEP 

ADD  TIMEOUT  COUNTERS  TO  ERROR  PRINTOUT 

RECEIVE  AND  TRANSMIT  EPROP  SUMMARY  PRINT  OUT 

.  PSECT  MAIN  . 

MACRO  CALLS 

.  MCALL   DIP%.QIO% 
QIOLBL:  QIOS  ; JUST  DEFINE  QIO  OFFSETS 

.  =QIOLBL    : 

.  SBTTL   ERPHAN 

;  INPUTS: 

;      NONE 

;  OUTPUTS; 

;       ROUTINE  MILL  PRINT  ON  THE  OPERATORS  CONSOLE  THE  CURRENT 

^  '  RECEIVE  AND  TRANSMIT  ERROR  COUNTS 


000000'  000014G  ERRHAN;  ;  MOV 
000007'  MOV 

OOOOOOG  MOV 

OOOOOOG  JSR 

G00026'  MOV 


«ERRMSG/QDPBM+Q.  lOPL 
«fRCVNUM.R2 


RCVERR.-RO 
PCRIOOUT 
nXnTNUM.R2 


;SET  BUFFER  ADDRESS  IN  QIO  DPB 

;PUT  ADDR  OF  WHERE  TO  STORE 

; ASCI  I  RECV  ERROR  «  IN  P2  FOP  PlOuUT 

;{?  OF  RECEIVE  ERRORS 

; CONVERT  I T  TO  ASC I  I 

;  WHERE  TO  PUT  .XMT  EPPOP  n 


E  13 

EPPHPn 

HRCPO  MUCH  Ob 

-OEC-77  08  21  PfiGE  2-1 

EPPHfiM 

68 

GOOOZb 

016700 

OOOGOOG 

nou 

XMTERR.RO 

'  .  6? 

000C32 

00H7b7 

GGOOGOG 

JSR 

PCRIOOUT 

bO 

000036 

012702 

0000^5' 

nov 

«RCVNnUR2 

bl 

0000^2 

0lb700 

OOOGOOG 

nov 

RCVTnT,RO 

b: 

OOOOHb 

00H7b7 

OGOGGGG 

JSR 

PC^RIOOUT 

b3 

000052 

012702 

OGOObH' 

MOU 

»XMTNm,R2 

b'4 

00006b 

01b700 

OOOGOOG 

MOV 

XnTTHT.RO 

bB 

0000b2 

0CH7b7 

OOOGOOG 

JSP 

PCRIOOUT 

^  bb 

OOOObb 

0l27b7 

0000b7  OOOOlbG 

MOV 

«ERRLNG. QDPentQ. 

b:- 

000074 

DIPS 

•QDPBM 

bS 

000102 

CQQlb? 

QCOOOOG 

jnp 

CROUTK 

;GET  NUriBER  OF  XMIT  ERROR 

; CONVERT  TO  PSCI I 

;MOVE  flOO  TO  STORE  RCV  TIMEOUT  COUNT 

,1  OF  RECEIVE  TIMEOUTS 

; CONVERT 

;S«ME  FOR  TRANSMIT  TIMEOUTS 


IN  R2 


I0PL^2  ;SET  CHflRflCTEP 

; QUEUE  THE  MSG 

; PR  I  NT  0  PROMPT  UHEN  FINISHED 


COUNT  IN  QIC  DPB 


— I 


EPPHPM 
UBFHQN 


nOCPO 
USEP 


niiOH 

BUFFER 


Ob-OEC-77  08:  21  PRGE 
OuERFLOW  nESSRGE 


!♦ 


n 

n 

n 

n 

f% 

n 

7S 

7f 

m 

it 

n 

S3 

m 

m 

Se  00010b 

012702 

000067" 

S7  000112 

oio: 

267 

oooomG 

SS  OOOllfc 

016: 

"00 

OOOOOOG 

S9  000122 

006067 

OOOOOOG 

90  00012b 

coh: 

'6:- 

OOOOOOG 

91  000132 

012767 

000025  OOOGlbG 

92  ooomo 

93  OOOlUb 

000. 

:q7 
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.  SBTTL     UBFHPN  -  USER  BUFFER  OVERFLOW  MESSPGE 


;    COLLING  SEQUENCE 

*  JSR  PC.UBFHRN 


t 
I 


COLLED  RFTER  fi  RECEIVE  COnPLETE  TO  INFORM  THE  OPERATOR 
OF  ANY  RECORDS  THRT  WERE  TRUNCATED  DUE  TC  THERE  BEING 
GREATER  THAN  l3^  CHARACTERS  IN  THE  RECEIVED  DATA  RECORD 


INPUTS: 

NONE 
OUTPUTS, 

ROUTINE  PRINTS  THE  DECIMAL  EQUIVALENT 

"UBFCNT"  ON  THE  OPERATORS  CONSOLE  AND 

COUNT 


OF  THE  NUMBER  IN 
THEN  ZERO'S  THE 


;• 


UBFHAh:  :  MOV  «UBFriSG.R2 

MOV  R2.QDPBMfQ 

MOV  UBFCNT^PO 

CLP  UBFCNT 

JSR  PC.PIOOUT 

MOV  »UBFLNG.QDPBM 

DIP5  »QOPBM 

PTS  PC 


,GET  THE  ADDRESS  OF  THE  MESSAGE 
OPL  .SET  MESSAGE  ADDR  FOR  QIO 

;GET  NUMBER  OF  TRUNCATED  RECORDS 

, RESET  IT 

; CONVERT  IT  TO  RADIO 

IOPL+2  ;SET  UP  CHARACTER  COUNT 

:OUEUE  THE  MESSAGE 

;PETUPN 


G  13 

EPPHQN 

MQCPO  nilOH  Ob- 

•DEC-77  08: 

21  PRGE  4 

MtSSPGE 

QPEP 

?S 

SBTTL 

neSSAGE  QRER 

96 

; 

97 

000000 

PSECT 

nESAG2.GBL 

98 

000000 

122 

040 

116 

ERRMSG. 

flSCi  1 

"R  NfiK:   " 

000003 

101 

113 

072 

000006 

on 

99 

000007 

o^o 

040 

040 

RCVNUM: 

flSCi  1 

T  NflK:   " 

000012 

OHO 

040 

040 

000016 

040 

040 

124 

000020 

040 

116 

101 

000023 

113 

072 

040 

100 

000026 

040 

040 

040 

xniNun 

flSCi  1 

P  TMT:  •' 

000031 

040 

040 

040 

0000314 

040 

040 

122 

00CC37 

040 

124 

115 

0000142 

124 

072 

040 

101 

000048 

040 

040 

040 

PCVNMl: 

flSCi  1 

T  TMT:  ■• 

000050 

040 

040 

040 

000053 

040 

040 

114 

00005b 

040 

124 

115 

OOOQbl 

1:4 

072 

040 

102 

000064 

040 

040 

040 

XMTNni 

flSCI  1 

II      1* 

103 

000067 

EPRLNG= 

-EPPnSG 

104 

/ 

lOS 

000067 

040 

040 

040 

UBFnSG- 

.  «SCI 1 

PECOPDS  TRUNCATED" 

000072 

040 

1  te*< 

105 

000075 

103 

117 

122 

000100 

104 

123 

040 

000103 

124 

122 

1:5 

000106 

116 

103 

101 

000111 

124 

105 

104 

10b 

000025 

UBFLNG=. 

-UBFMSG 

107 

000001 

,  END 
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CPOUTX=  *tll»t  GX  OIOlBL 

EPPHPN  OOOOOOPG  002  Q.  I  ORE: 

EPPLNG=  GOOOb?  Q.  lOEF: 

EPPMSG  OOOOGOR  003  Q.  lOFN: 

MPi:uSF=  000000  Q  lOLU: 

riTPNSFs  000002  Q.  I  GPL: 

ODPSn  =  t»tt»t  GX  Q.  lOPP: 

.  RBS.   000000  000 

000000  001 

n«!M    0001  BO  002 

nESRG2  0001 m  003 

EPPOPS  DETECTED  Q 


OOOGOOR 

002 

a  lOSBs 

000010 

RlOOUTs 

tttttt   GX 

xriTERRs 

tttttt   GX 

000012 

RCVERRs 

tutu   GX 

TPGNUMs 

000000 

xnTNni 

00006HR 

OOOOOb 

RCUNttl 

0000H5R 

003 

UBFCNTs 

tttttt   GX 

XnTNUfI 

000026R 

000002 

RCUNUn 

000007R 

003 

U6FHAN 

OOOlObRG 

002 

xnTTnTs 

tttttt   GX 

OOOOOH 

PC\/TriT= 

tttttt   GX 

UBFLNGs 

000025 

SSSPRGs 

000000 

OOOOU 

RSX   = 

000001 

USFMSG 

0000b7R 

003 

SS$OST= 

OOOOIH 

000007 

psxiinr 

000001 

003 
003 


"IPTUOL  hEMOPY  USED:   1200  WORDS 
DYNRMIC  ME  MOP Y    2810  UOPDS   •  10 
ELPPSED  T  I  ME-   00:  00  Ob 

n:e  EPPHRN;::',  ZBb-ozo  epphrn.  CRF,--sp=uPKP>:n, epph^n 


(    5  PRGES) 
PRGES) 


:e.o 


EPPHPN 
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MRCRO  ON  6 
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SmBOL 

lposs  reference 

CREF 

SYMBOL 

VPLUE 

REFERENCES 

CPOUT'' 

z 

ttttit 

GX 

2-68 

EPPHPN 

000000 

RG 

•  2-52 

EPPLNG 

z 

000067 

2-66 

«m-103 

EPPMSG 

000000 

^ 

2-52 

»i4-98 

4-103 

MPCr/SF 

- 

000000 

»l-5 

NTPNSF 

z 

000002 

HI -'4 

CiDPBM 

z 

tttttt 

GX 

«2-52 

»2-66 

2-67 

«3-87 

*3- 

oiolbl 

000000 

R 

»2-m 

2-42 

a  lOFrj 

— 

O000G2 

2-m 

Q  lOPL 

z 

oooom 

*2-52 

«2-66 

»3-87 

*3-9l 

prvEPP 

~ 

tnttt 

GX 

2-55 

PCViNni 

oooo^B 

P 

2-bO 

im-101 

PC'uNun 

000007 

P 

2-53 

»4-9? 

prwTMT 

z 

t****t 

GX 

2-bl 
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PUT  IN  CHPNGES  TO  CUT  CODE 
VOl-27  SI  1/77  CEP 

PUT  IN  TEMP  RECEIVE  SWITCHES  TO  FIX  PROBLFn  UITH  /OF 

9/77  CEP 
VOl-30 

PUT  IN  EPPOR  COUNTEPS  FOP  TmEOUTS 

10/77  CEP 


DSU. 


,  IF  DF 

PTll 

, CSECT 

GET 

.  ENDC 

.  IF  DF 

PSX 

/IF  DF 

RSXllM 

•  DEFINE  TASK 

.'mcall 

TCBDFS 

TCBDFS 

,  ENDC 

. PSECT 

.  WORD 

0 

. FSECT 

ISP 

.FSECT 

MAIN 

.IF  NDF 

NTRNSF 

NTRNSF= 

B 

;NUnBE?  C)^    TPflNSMiT  FILES  iN  P  CuMMRND 
; STRING  -1  'DEFRULT  CASE  "bi 


"; 


PCSRSXM  FOOl 

nfiCPO  nii04 

COHTEX  MfiCPO 

DEFINITIONS 

US 

lib 

U7 

lis 

^  119 

.120 

121 

122 

123  . 

t2i» 

125 

r  17777b 

I2b 

000000   ' 

12? 

000001 

128 

000002 

129 

000003 

130 

000004 

131 

000005 

132 

000006 

1 3: 

00000? 

134 

13S 

1 3b 

1 37 

138 

; 

1          139 

E     140 

141 

^     142 

143 

144 

145 

146 

147 

14S 

000040 

149 

000100 

160 

ISI 

000001 

16: 

;  000002 

163 

000004 

164 

000010 

166 

000020  ' 

16d 

000040  : 

16/ 
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ENOC 

IF  NOF  NRCVSF 
NRCUSFsZ 

ENOC 
.  ENDC 

.IF  DF  RSX 
DEFINITIONS  OF  REGISTERS.  ETC. 

PS= 177776 

PC=::0 

RUM 

R2=^2 

R3=^i3 

P5=-.6 

SP  =  ^6 

.  PC  =  :^7 

ENDC 


/  DECLflPE  GLOBPL  ALL  EXTERNRL  REFERENCES 

.  GlOBL  INITRL'LUKUP-CLOSEP. CLOSET 

.  GLOBL  FSTGET,FSTFIL,PO'NT 

GLOBL  nSGDON,fiSROUT,GOOBPT 

GLOBL  QUEHON, INPCPL  ERPHPN 

.  GLOBL  TERUDONE 

GLOBL  RCK,N«K 

.  IF  DF  PTll 

.  GLOBL  nSUITDFNBUF  LOKBLK 
.ENDC 


;NUnBER  OF  RECEIVE  FILES  IN  fl  COnriflNO 
;  STRING  -  1  (DEFAULT  =  J) 


;PDDPES3  OF  PROC   REGISTER 


RCK=40 
NPIK  =  100 

UIBEFN=1 

TTPPFN=2 

TTKLFN=4 

TTPDFN=10 

TT£PFN=2C 

S!BEFN=40 


PQPOMETEP  FOP  PUlD  TO  81  SYNC  Tqp 


IF   DF      PSX 


£HDi 


EFN 
EFN 
EFN 
EFN 
EFN 
EFN 


1    = 


7  - 

-J  ~ 

U  r 

6  = 

o  = 


UIB   LORDED 

TTY  PROMPT  UPITE  COMPLETE 
TTY  K  ILL  1,^0  COMPLETE 
TTY  PERD  COMPLETE 
TTY  ERPOP  MESSflGE  UPITE  COMPLETE 
;iB  ENTEPY 


J 


PCSPSxM  FOOl   Mficpo  ^no^ 
coniEy  nfiCPO  definitions 
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!59 

ttO 

It: 

163 

Ib^ 
IbS 
Ibb 
lb? 
168 
lb? 

ro 
ri 
17: 
r3 

171+ 
176 
I7b 
177 


000000 


jr  or 

RSX 

,  SBTTL 

RSX  riOCRO  CPLLS 

,  nCRLL 

CSIS 

csn 

.  nCOLL 

WTLOIS, CLOSES, UTSE5S 

.  nCRLL 

FDBOFS,  FDOTW,  FDRCSfi,  FDBK5P, 

.  nCPLL 

NnBLKS,FDOTSR 

,  nCflLL 

csm.csiw 

.  nCfiLL 

QIOI.DIRS 

MCfiLL 

CRLL 

MCniL 

SVTKS 

.  ENDC 

.  .F  DF 

PTll 

.  SBTTL 

PTll  n«CPO  CALLS 

nCOLL 

DSTRT,  HPESET,  TTYOUT, ,  EXIT 

nCRLL 

.  CSISPC,  PRINT.  UfiiT.  CLOSE. 

.  MCflLL 

TLOCK<  IJNL DC f 

.  \JZ. 

ENDC 

FDOPSO.FDBFSfl. FSPS2I 


TTINR 

1/2.  -.   SPND 


.J 


POSRiyM 

FOOl 

MPCPO 

GlOBPL 

OEriNlTlONS 

130 

18t 

182 

183 

!SH 

136 

1 8b 

137 

ISS 

1S9 

l?0 

191 
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SBTTL 

GLOBQL  DEFINITIONS 

iF  OF 

RTll 

GLOBL 

CDEHT 

GLOBL 

BUFB 

GLOBL 

BUF« 

ENDC 

GLOBL 

COLTT 

IF  DF 

RSX 

GLOBL 

F  1  NO 

GLOBL 

PARSE 

gl:bl 

C  SPS 

ENDC 

PCSI^iXM 

FOOl 

MfiCPO  r 

GLOBAL 

DEFINITIONS 

1% 

19? 

198 

000000 

IQQ 

000036 

200 

000176 

201 

000176 

202 

000176 

203 

000176 

2014 

000336 

ZQ^ 

000336 

20b 

000336 

207 

000336 

20S 

00C336 

209 

210 

211 

212 

213 

211* 

215 

216 

217 

218 

219 

oooH:'b 

220 

0G0H76 

221 

000U76 

222 

OOOH-'G 

223 

000^76 

22H 

0005314 

225 

00056^ 

226 

0006m 

227 

0006^^ 

228 

00067M 

'^■^Q 

^^7 

00G67^ 

230 

000700 

000000 

231 

000702 

oouooo 

232 

OOG704 

000000 

233 

23H 

000706 

235 

23b 

00n7iu 

001332' 

237 

OOO'lb 

0013H6' 

23S- 

000:^20 

0013b2* 

239 

000722 

00137b' 

2^0 

00072^ 

Qoim:* 

2m 

000726 

00114:6  • 

2M2 

000730 

goi'4h:' 

2^3 

2UU 
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DFBLK, 
FDBIN 


FDBOUO: 


FDBOUl 


.  IF  OF 
SBTTL 
NMBLKS 
FDBOFS 
FDRCSR 
FDBFW 
FDOPSP 
FDBDFS 
FORCSR 
FOBF^n 
F0RT5P 
FDOP^fi 
FDBDFS 


H  15 


RSX 

RSX  FOB   «ND  FNB   DEFINIT 

RJE.RJE,,SY,0       ;0EFINE 

.DEFiNE 
FO.  PLCEXPREC.IJH. 
..  1 
3.  .DFBLK 

.DEFINE 
FD  PLCEXPPEC.IJH. 

R.  URR.FD.  CR.80. 
4w  DFBLK 


ONS 

OEFPULT 
FOB  FOR 


NOME  BLOCK 
INPUT 


FOB  FOP  OUTPUT 


THE  SECOND  FDD  IS  ONLY  USED  WHEN  SELECTIVE  RECEIVE  IS  ENPBLED 
IN  SUCH  P  CPSE.  FDBOUO  CONTPINS  THE  FILE  NPME  FOUND  IN  THE 
COnnPND  STRING  PND  PLL  RECORDS  RECEIVED  PREFPCED  BY  PN  ESC  H 
PRE  URITTEN  TO  FDBOUO.   PLL  OTHERS  PRE  WRITTEN  TO  FDBOUl. 
BY  iriPLEIIENTPTION,  THE  SECOND  FOB  IS  PLWPYS  FOR  THE 
LINE  PRINTER  HENCE  THE  FOLLOWING  CODE  DEFINES  THE  DEFPULT  NPME 
BLOCK  PS  WELL  PS  FILLING  IN  THE  FILE  NPME  PORTION  OF  THE 
SECOND  FDB  PT  PSSEHBLY  TIME  ^0  BE  THE  LINE  PRINTER. 


DFNLP 
QDPBW 
QDPBP 
ODPBK 
QDPBM 

lOST: 
PC  I  NT  1 
P0INT2 
P0INT3 


SSTVEC: 

TPBSST: 


WORD 
WOPD 
UOPD 


245 


.  WOPD 
.  WORD 
.  WOPD 
.  WOPD 
WORD 
.  WOPD 
.  WOPD 


ENDC 


FDRC%P  FD  PLC  EXPPEC.  \Z^. 

FDBFSP  ,,Z 

FDPT%P  P  VRR.FD  CP^SO. 

FDOPSP  5,. DFNLP 

NMBLK-i  RJE.RJE. -LP-D   .DEFINE  THE  OEFPULT  NPME  BLOCK  FOP  OUTPUT 

QIOS  10  WLB. 2.2. - . .  PPMTP. .  '%• 

QIO%  10.  PLB-2.4-.  lOST.  .  <KBIBUF.SO.  .> 

QIO%  10.  K1L.2.  3 

QIO%  10.  WLB^2  5.,  ,.  <,  ,-40> 

Fspszs  :-.nfliN 

.  BLKW  2 


0 
0 
0 


-   10  STATUS  BLOCK 

;NEXT  3  LOCPTIONS  USED  BY  MRPK  PND  POINT 


SVTKS   TfiBSST,7 


ODDPDD 
MEMPPO 
BPTIMS 
lOTINS 
RS^'DIN 
ILLINS 
TPPINS 


PCSRS/n 

POOl 

nficpo  niiOH  06-1 

P3>,  fDB 

RNO  FNB 

DEFINITIONS 

2i»7 

2148 

:i*? 

:sG 

:si 

000206 

25: 

253 

000000 

2SH 

255 

00000" 

:sb 

000016 

^s:- 

000177 

268 

259 

2b0 

2bt 

262 

2b3 

000033 

2^H 

265 

026402 

2bb 

0000^47 

267 

OOOZbH 

268 

000037 

269 

17:^467 

270 

o:'"405 

271 

O'^^OH 

272 

oc:o:o 

273 

0001^7 

27H 

000037 

275 

oo:ho2 

::'b 

000015 

•-••7  7 

oooc 1 : 

278 

279 
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flSSEnSLY  TIME  PflRfiMETEPS 


flSCi 


GLOBL     LPS  1 2E ,  PC  VT I  n,  BPSELN.  COMflV,  CriBHflX 

;COnn.  RCUE  BUFFER  SIZE 


LPSI2E.-13H 
BPS£LN=0 

conou=7 
CMBnfix=conPv+con«i/ 


;LIN£  NUMBER  FOR  FPRflriETER  LISTS 
;N0.    OF   COHM  BUFFERS  PVPiLflBLE 

;nflx  INDEX  FOP  conn  buffer  list 

.NUriBER   OF    SECONDS  FOP   RECElUt    TIMER 


DEFINITIONS 
.GLOBL  £SC.BINITP,B!NE0T-XI  TB^XSTEQ 
.  GLOBL  BiNTTD^BtNESC^BlN^.XEOTS 


ESC=33 

BlNTTD=:b402 

BINESC=047 

6INH=3b4 

BINI"B=37 

B I NEOT: 177467 

yCEP  =  7""405 

XE0TS=7;^H04 

XDE0T=:020 

XFPDM77 

X'TB=37 

x5teo=:ho: 

CP  =  15 

LF  =  i: 


EBCDIC  STX-ENQ  FOP  BiNPPV  MODE  (/2780) 

EBCDIC  ESC 

EBCDIC  4 

EBCDIC  ITB  FOP  GINPPV  MODE  '/2780) 

EBCDIC  EOT  FPD  FOP  BINPPY  MODE  f/2780J 


PC  IP i AM 
RSX  FOB 


FOOl 
fiNO  FNB 


MRCPO 
DEFIN 


TIONS 


Ob-DEC-77  08:  21     PfiGE   m 


J  ts 


231 

282 

283 

28*4 

285 

2Cb 

287 

288 

289  000732 

125252 

290 

"Q1 

001174' 

292  001 17H 

293  0On7H 

000000 

2^1+  00117b 

000000 

29E;  001200 

OOOOQO 

29b  001202 

000000 

£97  00120^4 

oocooo 

298 

299 

300  O0i:0b 

ZO^   DO  120b 

01270b 

001  r4' 

302 

303  001212 

30H  001220 

103001 

30B  001222 

OOCOOO 

30fe  001 22U 

307 

308  001224 

004:^67 

OOOOOOG 

309  001230 

C0Qlo7 

002:4: 

310 

311 

7  .  -, 

^  1  ^ 

313 

3li4 

315 

316 

317  001234 

004567 

OOOOOOG 

31S  001240 

004767 

OOOOOOG 

319  001244 

100425 

320  001246 

004567 

OOOOOOG 

321  001252 

000257 

322  001254 

000207 

32i  00125b 

004567 

OOOOOOG 

324  001262 

004767 

OOOOOOG 

325  001266 

100414 

326  001 270 

000766 

327  001272 

004567 

OOOOOOG 

328  001276 

004767 

OOOOOOG 

329  001302 

100406 

330  001304 

000760 

331  001306 

004567 

OOOOOOG 

332  001312 

004767 

OOOOOOG 

33Z   001316 

100353 

334  001320 

004567 

OOOOOOG 

335  001324 

000257 

336  001326 

000270 

337  001330 

000207 

;RBT  SYSTEM  INITIAL iZflT ION 
;LINE  THBLE  : N|T iflL IZRT ION 


STKLMT; 


STKSETr 

RCl'ERP: 

xnTEPR 

PCVTnT: 

XnTTMT 

UBFCNT: 


L  I N I  NT: 


^^ 


EflTPUT. 


EMTGD: 


EMTGET; 


EnTINT: 


EflTTin. 


EniERP. 


GLOBL  STKSET, L IN  INT, RCVERR,  XMTERR.  UBFCNT 
GLOBL  RCUTnT.XttTTMT 


IF  or  RSX 

WORD   125252 
=  +240 
ENDC 


UOPD 
WOPD 
WORD 
WOPD 
WOPD 


nov 


0 
0 
0 
0 

G 


STfiCK  LIMIT  WORD 


STACK  POINTER  START  DEFIN'TION 

ALSO  FIRST  WOPD  CONTAINS  PECEM/E  BlOCK  ZRPOP  COUNT 

TRANSMIT  BLOCK  ERROR  COUNT 

RECEIVE  TIMEOUTS 

TRANSMIT  TIMEOUTS 

USER  BUFFER  OVERFLOW  COUNTER. 

UHEN  TAP  RECEIVES  A  RECORD  ' 


INCREMENTED 
134  CHAPACTEPS 


riTKSET.SP 


SET  UP  STACK  POINTER 


.  IF  DF  PSX 
DIPS    ;«SSTUEC 
BCC     5% 
HALT 


.  ENDC 

JSP 

JflP 


PC- INITAL 
OF  HANI 


INITIAL  I 2E  THE  UOPLD 
CLEAR  SuME  SWITCHES 


EMT  CLLS  TO  REPLACE  CDEMT  IN  3CIP  , 
.  GLOBL   EMTPUT^EMTGET^En-riHT^triTTm 


JSP 
JSP 

Bni 

JSP 

ccc 

PTS 
JSP 
JSP 

em 

BP 

JSR 

JSR 

BMI 

BP 

JSR 

JSR 

BFL 

JSR 

ccc 

SEN 

PTS 


P5.C  3PEG 
FCC.  SPUT 
EMTEi^R 
P5,C,  SPES 

PC 

R5.C  SPEG 

PC.C.  SGET 

EMTEPP 

EMTGD 

Po.C.  SPEG 

PC.C.  STIN 

EMTEPP 

EMTGD 

R5.C. SPEG 

PCCTEMT 

EMTGD 

R5.C.  SPES 


PC 


;SAVE  REGISTERS 

'  EPP'^'R 

■PESfoPE  REGISTERS 
.CLEAR  COND  CODES 
; RETURN 


:PESTOPE  REGISTERS 
; CLEAR  COND  CODE' 
, INDICATE  ERROR 
; RETURN 


9Cl9z/n  FOOl 

rmcRo  mi  OH 

RSX  FOB  PND  FNB 

DEF IN  IT  IONS 

338 

33? 

3^^^  001332 

Z^\   00l3i*b 

3^*2  001362 

.     3^4  3  001376 

3^H  001^12 

3^5  001^26 

3Hb  00mH2 

3H7 
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IF   OF 

RSX 

ODDPDD 

FOTQL 

<0D0  aODR) 

MEriPRO 

FfiTflL 

<nin  PROT> 

BPTINS 

FflTPL 

<BPT    INS) 

lOTlNS: 

FRTflL 

<IOT    INS) 

PSUDIN 

FRTPL 

<RSVD    INS) 

ILLINS 

FATAL 

<ILL    INS) 

TRPINS: 

FfiTflL 
ENDC 

<TRRP    INS; 

■'»»»»Wll««  I'   .III.IMI»«— —W— 


PSX  FOB 

:s4 

3SS 
3^b 

359 
36? 
3t»0 
361 

'  3fc: 

^  -b3 

368 
^9 

370 

S?t 

373 

37B 
^  3^6 
3?:' 
37S 
379 
3S0 
3S1 
382 
383 


Fool       Mfi'iPo  n^a^    O6-DEC-77  os  :i 

«ND  FNB   DEFINITIONS 
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I   IS 


oomSb 


t2^ 


.SS))%!«S%%%%S%%%SiSS% 


.•CONTROL   WORD  FlPG  DEFINITIONS 


.  IF   OF 

RTlt 

.  GLOBL 

CHEXT, D 

CHEXT 

WORD 

0 

.  UORD 

0 

DFEXT, 

.  WORD 

0 

* 

.WORD 

0 

mmt: 

.  PfiDSO 

■PT/ 

DEl^flLT: 

.  PflDBO 

/LP 

WORD 

0<0..  0.  0 

OEFEXT: 

.  F0D5C 

.'^  JE/ 

,  PODSO 

RJE/ 

.  PflDSO 

■P.JE.^ 

.  PRD5C 

'P  IE/ 

.  ENDC 

.IF    DF 

psy 

.  GLOBL 

DEUPT 

P£VRT; 

.  fiSC  t  ; 
.  ENDC 

'RT' 

CHEXT, DFEXT- DEURT, DEFflLT. DEFEXT, yFPFNB 


.BiSYNC  device:  NflnE 

;DEt^flULT   PECEIUE    F  IlE 
;DEFfiULT  FOP   OUTPUT  FILES 


r 


tcstSMn  POO!        nftCPO  ^no^    Ofe-DE<' 

tSX  FDI  AND  FHB  OEF IN. i IONS 
386 


■yy 


3S? 

3S8 

389 

39C 

391 

392 

393 

39H 

39S 

39b  OOmiO 

000 

39'^ 

393  OClWbi 

010 

3^ 

Hoo  oome: 

1^ 

WOl 

H02 

'♦o: 

^0l♦ 

40S 

UOb 

^♦07  QGl^b3 

000 

^QS 

1409 

mo 

1*11  OOlWb^ 

GOO 

i*i:  ociHb6 

000 

m3 

um 

m5 

Hlb  001^4bb 

000 

m? 

ms  ooiwto^ 

000 

1*19 

1*20  OOU^O 

000 

h:i 

H22  001W71 

000 

»423  OOIU": 

000 

u24 

^♦25  oourj 

000 

H2b  0Qm7H 

000 

il2? 

H2S  0011*75 

000 

i*; 

■>:  '^nm7e 

000 

4J1 

.•477 

000 

H^ 

'^m 

1*36  OOIBOO 

000 

43b  001501 

007 

^437 

H3S 

439 

i*HO  001502 

007 

4m 
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,COMTE.x  2780  RBT  EfiP  CONTROL/STQTUS  FiflGS 

;OND  SU ITCHES 


CNL I NE 

CODE 
FLAGS 


GLOBL 

GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 

Br'TE 

BrTE 

BYTE 


; STATUS 
nC6; 


BYTE 


ONL INE . CODE<  FLOGS. nCB. TVftB. nODE 
HFCfiCT, INITF,PCKPEN, ELATCH. ENDPEN 
TDONE,  EOTPL^I,  ETXFlG.  EOTFLG,  PV  IPEN 
CRBFAU, CnBPPU, CMBFPN,  ASSGNV 

STOREX,PRiNTX. lOEPP.TXPEN, INPCNT 
NAKCNT,  PECSI2.  SURSUP,  CPBAS.x,  OPNFlG- 
RCUCNT 


0 

10 
140 


NCRCi^ 


Th«B: 

MODE. 

B'TE 
.BYTE 

0 
0 

HfCACT; 

.  BYTE 

0 

INITF: 

BYTE 

0 

ACKPEN 

BYTE 

0 

ELPTCH: 
E NOP EM 

PYTE 

E  rlE 

0 
0 

TDONE: 
EOTPEN: 

.  byt: 

-BYTE 

0 
0 

ETXFLG: 

.   BYTE 

0 

EOTFLG: 

.  BYTE 

0 

INCPCV: 

.  BYTE 

0 

Pin  PEN: 
CPBFflV: 

.  BYTE 
BYTE 

0 
7 

;BIT  ; 

:  0  OFFLiNE 
:  !  ONL 1 NE 

.BITS 

3- 

■G  =  00  USASCI  : 

=  10  EBCDIC 

BITS 

1 

2  -  XPAR 

BITS 

3^ 

4  -  AUTO 

BITS 

tj. 

b  -  iTB 

•  BIT  • 

n 

■  SLAuE/MASTEP 

MASTER  CONTROL  BYTE 
-E IT  7(1)  -  GEN  PECPD  FOPMAT 
i  (0)  -  27S0  PECPD  FOPnAT 


B 

e 


.81 

;BI 

:Bi 

;BI 
Bl 

Bl 


T  : 

TS 


T 
T 

T 

T 
T 


'  1  ' 
1-0 


f   » 


7  : 


7  - 


n 

ij 

1 

0 

1 

0 
I 
1 

n 


;Bi 


ABORT  TPPNSniSSlON 
GO  CONTROL 
01  PECEM'E 

10  TRANSMIT' 

11  NmT  USED 
NO  DYNAMIC  HFC 
HFC  ACnUE 

IN  INIT 

NIT 

NOT  PEND'NG 

PENDING 
PROHIBIT  SUBSEQUENT  READS 
END  NOT  PENDING 
END  PENDING 


NOT 
!N 

PCK 
PC^ 


7 


Nb 


>.-MIT  DONE 

EOT  NOT  PEND 

EOT  PENDING 

;BIT  7  =  0  ET.X  NOT  PPEIENTED 

ET"^  PRESENTED 

EOT  NOT  PRESENTED 

EOT  PRESENTED 


;BIT 


1 
n 


n 


-  1 


CflBFPV;    .  BYTE        COMAV 


;PVI    PENDING 

.BITS    1-0   =    00   CP    BUFFER    NOT   AVAILABLE 

;  =01    ONE    AVAILABLE 

=    07   £E''EN   AVPIlPBlE 
MIOMM  3UFPEPS   CUFI^E^rLi    AVPlLPD^E 


L 


PSX  FOB   PND  FNB   DEFINITIONS 


^^Z   001S03 

000 

WU3 

H^^  001501* 

i77 

^^5 

WHb 

^♦47 

4^8  001505 

000 

HH9  OOlBOb 

000 

H50  001507 

000 

H51 

1452 

^53  001510 

000 

H5^  0015U 

000 

H55 

H5b  001512 

000 

HS" 

'^S?  001513 

000 

'"45*^ 

HbO 

461 

^e: 

4t.3 

^0*4 

^b5 

i^bb 

HbT  0015W 

000000 

^bS  00151b 

oocooc 

i*b?  ooi5:o 

000120 

4^0  001522 

OOCnoo 

471  0015214 

''•■•■:■  *^  4 

472 

473 

474 

475 

4^b 

Ob-OEC-77  08  21      PfiGE    21-1 

CMBFPN       BYTE        0 
TRPTNF.    ,  BYTE        377 


N  15 


RSSGNy: 

STOPEX 
PPINTX. 


lOERR: 
TXPEN; 

PCVCNT: 
OPNFLG: 


::£PFLG: 


I  MP C NT 

NRKCNT: 

PECSI2: 

SWPSUP- 

CPSPSX: 


HICOPE: 


BYTE 
BvTE 
BYTE 


BYTE 
BYTE 

BYTE 

BYTE 


IF  OF 

GLl'BL 

B)TE 

ENDC 

EVEN 

UOPD 

WOPD 

UOPD 

UOPD 

UOPD 

IF  DF 

GLOBL 

UOPD 

ENDC 


0 
0 
0 


0 
0 

G 

0 


PTU 

ZLPFLG 

0 


0 

h 

CrBUF' 
PTll 
STSBLh 
STSBLK 


HhlOPE 


;numbep  or  conn  buffers  pending 

;BlTS  7-0  =  0  xni T  PCV  CnO  USE  OF  CODE 
;         s  Z77   OTHEP  USES  OF  CODE 


;nSSlGN  SLOT  INDEX  ^BISYNC  flSPBUD 
;PPiNT  QUEUE  STOPE  i  NDE  •: 
; PR  I  NT  SLOT  iNDEX 


;200  =  I/O  EPPOP 
;200  =  X-niT  PENDING 

;PECEn/E  TinEOUT  COUNTER 

;iF  THIS  GOES  TO  ZERO  THE  PECEn'EP  ;S  HUNG 

.200  =  HAVE  SEEN  ENQ  BUT  Hpi/E  NOT 

;YET  OPENED  THE  FILE 


;2G0  =  ZERO  LENGTH  FiLE  UPS  DELETED 


: INPUT  COUNTER 

-   INCORRECT  BCC  RCVE  RECORD-COUNTER 

; PUFFER  SIZE  80  OP  132  DECIMflL 

; START  OF  >y   BUFFER  SPOCE 


mDDPESS  OF  H!  COPE 


K 
I 

n 

N 
B 

C 
0 
E 

r 

6 
H 

r 

K 

I 

ft 

N 
6 
C 
D 

e 

F 
G 
H 
I 

J 
K 
L 
H 
N 
B 
C 
0 
€ 
F 
G 
H 
I 


'  litcBaisa^iiSa 


nnnsmnimiis 


^gfegi±tttxti#' 


;r.^^S555!U«a■a^.p^^w^fif^^n^lW«arrii^Rn^rBiw^■F"f^H^^ 


pcsRSxfi  root 

MPCRO  nil04 

R-X  PDB  RND  FNB 

DlFI NIT  IONS 

^78 

H^9 

HSO 

HSl  001526 

004214' 

4S2  001B30 

004422' 

H83  001532 

004630' 

^8H  001534 

005036' 

i4S5  001536 

005244- 

486  0015U0 

005452' 

487  001542 

005660 

438 

489 

t90  001544 

jOOOO 

491  001546 

000000 

492  001550 

000000 

493  001552 

000000 

494  001554 

000000 

495  001556 

000000 

^'96  001560 

000000 

497 

498  001562 

000000 

499  001564 

GOOOOO 

500  G01566 

000000 

501  001570 

000000 

502  001572 

000000 

503  001574 

000000 

504  001576 

000000 

505 

506  001600 

000000 

507  001602 

000000 

50S  001604 

OOOOGO 

509  001606 

GOOOOO 

510  001610 

GGOGOO 

511  G01612 

000000 

512  001614 

GOOOOO 

06-DEC-77  08:  21      POGE   22 


B   16 


;  connuNiCflTiONS  bufffer  list 


CMBLST. 


;  ONL I NE 
CnPLST:  . 


;  ONL I NE 
CnCLST:  . 


;  DHL  I NE 
CMFLST:  . 


GLOBL 

UORD 

WORD 

WORD 

UORD 

WORD 

WORD 

WORD 

PRINT 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

PRINT 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

PRINT 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 


cmbl:t, cnPLST, cmclst,  cmflst 

CriBU''l 
CnBUF2 
CnBUF3 
Cn3UF4 
CriBUFS 
CMBUF6 
CMBUF7 


QUEUE 

0 

0 

0 

0 

0 

0 

0 
QUEUE 

0 

0 

0 

0 

0 

0 

0 
QUEUE 

0 

0 

0 

0 

0 

n 

6 


-  BUFFER  STRRT  ADDRESSES 


BUFFER  BYTE  COUNTS 


END  OF  F ilE 


SVSTEfl  CONTROL 

Sib 
517 
518 
619 
820 
521 

523 

525 
526 
527 
528 
529 
530 
53! 

53: 

533 
53H 
535 
536 
537 

538  001616 

539  001616 
5H0  001622 
5m  001622 
5*42  001622 
5'*3  001622 
<B^H  001630 
5H5  001632 

5^6  00l6^6 

SH7   0C165H 

5H8 

5^9 

550 

552 
55: 

555 
55b 
557 
55S 
559 
560 
561 

562  00165^ 

563  001660 
56^  001666 

565  001670 

566  001676 

567  001702 
56S  001706 
669  001710 
570  001710 


nflCRO  f11l0^  06-DEC-77  08:21  PPGE  21 
ROUTINE 


C  16 


022767 

ooimi 


016701 
032761 
001410 
0H2761 
016^02 
004767 
000H03 


1:5:5:   177102 


01276"   1:5:52   177056 


OOOOOOG 
000040  0000:, 

000040  Gooo:: 

OOOOOOG 
OOOOOOG 


042761   000040  0000:2 


.  SBTTL  SvSTtn  CONTROL  ROUTINE 
;GETS  LOOP  FOR  UiB  ENTRY  RETRIEVPL 

.  GLOBL  CROUT, GETENT, ENTRY, TKRTNF, C  SPS 


GOTGET: 
CROUT: 


COUTI 


GOTGET 

CROUTX 

CROUT: 

USRTIM 

GETENT 


GETOl 


5S: 

10% 


5i: 


.  IF  OF 
GLOBL 
TSTB 

Bni 
cons 


RTll 

GOTGET 

TRRTNF 

GETENT 

TRRTNF 


MOV     IICR.RO 
.  TTYOUT 

MOV    ;lf,po 

,  TTYOUT 

MOV     «'*.P0 

TSTB    ONLINE 

BEQ     COUTI 

.  TTYOUT 

.  TTYOUT 

BR      GETENT 

.  ENDC 

.  IF  DF  RSX 

COLL    PROMPT 


CMP  »125252.STKLMT 

BEQ  GETOl 

ERROR  <STfiCK  OVERFLOW^ 

MOV  »i:5:52.STKLMT   , 


PRINT  THE  PROMPT 
NO 


PRINT  fi  CflRRRluE  RETURN 
PRINT  fl  LINE  FEED 


ONLINE 

NO  -  ONLY  ONE  t   ON  PROMPT 


PROMPT  THE  OPEPf^TOP 


OVERFLOUED  THE  STPCK'' 
NO 

;  I  T  HfiS 
RESET  STPCK  L  I  r*  I  T  UOPD 


IF  NDF  RSXllM 


MOV 

BIT 

BEQ 

SIC 

MOV 

JSR 

BR 

BIC 

MOV 

BIC 

.  IFF 

MOV 

BIT 

BEQ 

BIC 

MOV 

JSR 

BR 

BIC 


GET  THIS  TP-K'S  RTL  NODE 

IS  'SIB  ENTRY'  SET? 
NO 

SET  UP  LINE  TPBLE  PDDP 
GO  DO  TPPNSMIT  DONE 


.  CRTSH  PI 

;SlBEFN.fl.  EFiPl) 

5% 

8SIBEFN.P  EFCRl  ) 

C.STPB^P2 

PC-C  BODE 

;SIBEFN-fl.  EF(Rl) 

.CPTSK,R1       ;MPKE  SURE  PI  SET  RIGHT  -  CLOBBERED  BY 

;C.  BODE  ROUTINE 
nJIBEFN.fl.  EF(Rr        ;CLEPP  UIB  LOPDED  EVENT  FLPG 


TRSKPD.Rl       ;GET  THIS  TPSK'S  TCB  PDDRES^^ 

nSIBEFN,T.  EFLG(Rrt  ;IS  'SIB  ENTRY'  SET"^ 

5%  ;  NO 

SSIBEFN.T.  EFLG'Pl)  ;  YES  -  CLEPR  IT 

C.STRB.P2  ;SET  UP  LINE  TPBLE  ROD 

PC. C.  BODE  ;G0  DO  TPPNSMIT  DONE 

10%  ; 


SSIBEFN.T.  EFLG(Rl) 


CLFPR    THE   EVENT   FLSi 


PCSRS.'.n  FOOl 
SVSTEn  CONTROL 


0  \h 


£71 
672 
573 

S75 

5^b 

677 
S78 
679 
6S0 

6^: 

6S3 
65H 
6S6 
SSb 
687 
6SS 
6S9 
690 
691 
692 
693 
691* 
696 
696 
697 
698 
699 
600 
601 
602 
603 
604 
606 
606 

60:' 

60S 
609 
610 
611 
612 
bli 
614 
616 
616 
617 
618 
619 
620 
621 

623 
624 
626 
626 
627 


oorib 

001722 


001  30 
001734 
001740 
001744 
o:'746 
001762 
00176b 
001760 


001 
001 
001 
001 


•64 
•bb 
'70 


001774 


001774 
002000 

002004 
002010 


MRCRO  nit04  06- 

•DEC-77  08:  21 

PRGE  23-1 

ROUTINE 

016701 

GOGOOOG 

105; 

l-io*' 

TflSKRD.Rl 

042761 

OOOCOl 

000022 

GETENT 

Bi. 

ENDC 
.  ENDC 
.  IF  DF 
.  UNLOCK 
JSR 

ENDC 

•  UIBEFN.T,  EFLGtfl 

RTll 

PCC  SPS       ; 

006067 

000030 

CLR 

ENTRY 

012701 

001764* 

MOy 
GETS 

»ENTRY,R1 

100413 

Bri 

GETEXP         ; 

rit7Q6 

000013 

MOUB 

ENTRY^1,RS 

042706 

177^00 

BIC 

»177700,R5      ; 

006306 

RSL 

R6            ; 

000176 

003136' 

JMP 

ijnPTBL'P5)     ; 

000 

000 

ENTRY: 

.  BYTE 

0,0           ; 

000000 

WORD 

0 

000000 

,  UOPD 

0             ; 

000000 

,  WORD 

0 

016701  GOOOOOG 

016102  000022 

032702  000010 
001423 


.RESET  PI  CLOBBERED  BY  C  BODE 
;CLEflP  UIB  EVENT  FLOG 


RELEASE  USR 

CHECK  FOR  SIB  ENTRY 

POINTER  TO  PfiPfiM  LIST  IN  Rl 

GO  GET  ENTRY  -  W«S  THERE  ONE'' 

NO. 

YES.  SRVE  CODE  BYTE  IN  R5 

CLEfiR  ALL  BUT  6  LOW  ORDER  B I TS 

YES.  MAKE  INTO  WORD  INDEX 

GO  THRU  PR  I  MARY  JUMP  TABLE 


1ST  WORD  OF  ENTRY 

2ND  WORD  OF  ENTRY 

3RD  WORD  OF  ENTRY 

4TH  WORD  OF  ENTRY 


.SYSTEM  CONTROL  ROUTINE  E:aEN£ION 
;FOP   I/O 


GETEXP: 


TERMIN: 


.  IF  DF 

.  TLOlK 

BCS 

MOV 

MOV 

.  TTINR 

BCS 

MOVE 

CMPB 

BEQ 

BR 

.  ENDC 

.  IF  DF 


PTll 
WAIT 

;kbibuf,pi 

R1,P2 

WAIT 

RO. (Rl )+ 
RO  «LF 
COMCPL 
TEPMIN 

RSX 


IF  NDF  RSXllM 


MOV 
MOV 
.  IFF 
MOV 
MOV 
.  ENDC 
BIT 
BEQ 


.  CPTSK.Rl 
A.  EF^R1.),R2 

TASKAD.Rl 
T.  EFLG(R1).R: 


;  IS  USR  AVAILABLE"? 

;N0  -  DON'T  EV.EN  LOOK  FOP  CONSOLE  INPUT 


TRY  FOP  TTY  INPUT  COMMAND 

NO  TTY  INPUT  -  JUST  WAIT  FOP  AN  EVENT 


END  or  ir^PUT  COMMAND  -  HANDLE  COMMAND 
LOOP  FOP  rOPE  INPUT 


RESTORE  TASKS  ATL  NODE  -  KILLED  CY  GETS 
GET  EVENT  FLAGS  1-16 

RESTORE  TASKS  TCB  ADC  -  KILLED  BY  GETS 
GET  EVENT  FLAGS  1-16 


002012  042761   000010  000022 


«}TTRDFN,Pv 

SLEEP 
IF  NDF  RSXllM 
BIC     ^TTRDFN.fl  EF(P1 
.  ENDC 
.  IF  DF  RSXllM 
BIC     fITTPDFN-T.  EFLG'Rl) 
.  ENDC 


TTY  READ  COMPLETE^ 

IF  EQ  NO  -  GO  10  SLEEP 

; CLEAR  THE  FLAG  'NO  PACE  IF  TTY  lOWEP  PRIORITY) 


PCSRSyn  Fooi 

MACRO  nno^  06-dec- 

SYSTEM  CONTROL 

ROUTINE 

628  002020 

105767  I76b60 

629  002C2H 

100H03 

630  002026 

105^67   1766^3 

631  002032 

632 

633  00203H 

00U31 

12^767  OOQOOOG  1766 

63H  oo:o^2 

001267 

635  oo:qhh 

636 

637 

63S  002060 

b39  002060 

6UQ 

6m  0020:^4 

1G3252 

6H2  002076 

6H3 

6HH 

hk% 

6H6 

6H7 

08.  21  PRGE  23-2 


TSTB 

BMI 

TSTB 

BNE 


£  16 


643 

64? 

650 

651 

652 

653 

654 

655 

f^56 

657 

658 

659 

660 

661 

662 

663 

664 

665 

bbb 

t?b7 

bbS 

bb9 

b-'U 

671 

672 

677 

674 

675 

676 

677 

678 

679 

bSO 

6S1 

6S2 

683 

684 


002112 


GG2120 
002124 
002130 
002134 
002140 


G1270G 
012560 
012560 

00C205 


000644 
000G14 
0000  lb 


002142 
002146 
002154 
002160 
002162 
002166 
002172 
002174 
002202 
002204 


012700 
012760 
105767 
100002 
005260 

103741 

103735 
000207 


000534 
000005 
17'^300 

oonoib 


0000 1 6 


ChPB 

BNE 

FflTRL 


lOST 
lOt 

lOSTM 
COMCPL 

HIE.  EOF, 
GETENT 
<  EXIT  ) 


OST 


WAS  THERE  AN  ERROR  (ABORT  OR  2)^ 
IS  niNUS  -  YES.  SEE  WHRT  KIND  OF  ERROR 
NO  ERROR  -  CHECK  TERniNPTiNG  CHfiRfiCTER 
IF  IT  IS  ZERO  THE  EUFNT  FLAG  WAS  SET 
DUE  TO  KILL  I/O  OTHERWISE  SET  BY  INPUT 
CONTROL  2'! 

YES.  EXIT 


SLEEP 


SYSEPP 

;ROUT 
;COLL; 


WTL05S  0<»UIBEFN!TTRDFN!SIBEFN  ;WfllT  FOP 

.OF  EFN'S  1.4.6 


ANY 


BCC 

FATAL 


GETENT 
<FATAL 


DIPECTIUE 


SOMETHING  HAPPENED  -  GO 
EPROR>  .ERROR  IN  DIRECT 


FIND 
VE 


OUT  WHAT 


NE  TO  TYPE  MESSAGES  TO  THE  OPERATOR 
JSP     P5.TYPMSG 
.  WORD   ADDRESS  OF  ASCI  I  TEXT 
.  WORD   LENGTH  IN  BYTE' 


S 


.  ALTERNATE  ENTRY  POINT  ■ 
;    ENTER  AT  THIS  POINT  TO 
;  PEPFOPMING  A  KILL  I/O 


TYPMSl 
SET  'JP  TO 


QUEUE  A  MSG  WITHOUT 


TYPnSG;  DIPS 

IF  NDF 
WTSES3 


»QDPBK 
PSXllM 
}J3 


TYPMSl 


.  ENDC 

MOU 

MOV 

MO^' 

DIPS 

PTS 


KILL  THE  PENDING  READ 

THIS  IS  ONLY  NECESSARY  FOR  PSX-D  SINCE 
THE  TASK  IS  NORMALLY  RUNNING  AT  A  HIGHER 
PPIORITY  THEN  THE  TELETYPE  HANDLER  AND 
THE  KILL  WOULD  ALSO  KILL  THE  MESSAGE  AND 
THE  PROMPT 


SODPBM.RO 

(l'5i  +  -Q.  lOPLfPO) 

fP5^+.  1  IOPL+2fPO) 

RO  .QUEUE 


GET  THE  QIC  PARAMETER  LIST 
; ADDRESS  OF  MESSAGE 
.LENGTH  IN  BYTES 
THE  MESSAGE 


R5 


RETURN 


; ROUTINE  TO 
;CALL;   JSP 


PR 


NT  THE  PROMPT  AND  QUEUE  A  READ 
PC. PROMPT 


PROMPT: 


105: 


MOV 

MOW 

TSTB 

BPL 

INC 

DIPS 

BCS 

DIRS 

BCS 

RTS 

.ENDC 


«QDP 

«PPM 

ONLI 

lOS 

Q.  iO 

RJ 

SYSE 

?QDP 

SYSE 

PC 


BW.PO       ; THIS  IS  ADDP  OF  QIC  DPB 

TL-Q.  IOPL+2(RO)      LENGTH  OF  PROMPT  LINE 

.ONLINE'? 

;N0 

;YES<  PRINT  EXTRA  * 

; PRINT  THE  PROMPT 

;EPP0P   FROM  DlPEC^MfE 

;D0  A  READ 

; DIRECTIVE  EPPOP 


NE 

PL  +  2'«R0) 

RP 
BR 
PR 


ROUTINE  TO  HANDLE  FATAL  EPPOP  MESSAGES 
CALL:   FIRST  TO  "TYPMSG" 
JSP     RE. DIE 


PCSPSXM  FOOl       MfiCPO  nnoi* 

SYSTEM  CONTROL  ROUTINE 
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F  tb 


b35 
bSfe 
b37 
bSS 
bS9 
690 
b9l 

b?: 

693 
694 
b9S 
b9b 
69" 
698 
b^9 
700 
701 
702 
703 
704 
705 
70b 
707 
:'0S 

709 
710 
711 

712 

713 

7m 

715 
716 
717 
71S 
719 
720 
721 


72J 


002206  001*767  OOOOOOG 


DIE: 


GLOBL 
JSR 


DIE 
PC. DONE 


; FINISH  UP  AND  EXIT 
. tItNO  RETURNttt 


.  IF  DF  RTll 
;NOTHING  TO  DO  --  TIMED  WfilT  THEN  RETRY  EVENT/TTy  LOOP 


UP  I  TNG 

20% 

«TTYWflT,-(SP) 

10% 
UP  IT 

»377,WPITNG 


UPIT;    .  UNLOCK 
TSTB 

Bni 

MCU 

PUTTM 

BPL 

BR 
lOS:     BISB 
:0S:     .  SPND 

BP      GETENT 
•    USER  TIMER  HPS  EyPIPED 

USPTIM:  .  I  r  DF  PI  11    CLPB 

TSTe  PCUCrT 

BEQ  GETENT 

DECB  PCVCNT 

BGT  GETENT 
:   EPPORK   <PECl/  TiriEC'UT> 

JMP  GOPBPT 


;FRPRMETEP  LIST  FOR  TinED  UfliT 


.INSURE  THAT  THE  USR  IS  UNLOCKED 

,  IS  THERE  fl  PENDING  TIMER'' 

;YES  -  DON'T  SET  ANOTHER 

.MOVE  PARAMETER  PTR  ONTO  STACK 

;CALL  SCIP  TO  LINK  TIMER  REQUEST 

.OK  -  SCIP  SUCEEDED  IN  QUEUE  I NG  TIMER 

;NOT  ENOUGH  QUEUE  ELEMENTS  -  RETRY 

.INDICATE  TIMED  WAIT  IN  PROGRESS 

.SUSPEND  OPERATION 

;JUST  LOOP  TO  TEST  WHEN  EVENT  OCCURS 


WfllTNG   .CLEAR  TIMER  PENDING  ! 
, IS  THE  RECEIVE  TIMER  SET^ 

NO.  GET  NEXT  UIB  ENTRY 
.DECREMENT  THE  COUNTER 
:HA5  NOT  EXPIRED 
; EXPIRED.  PRINT  EPPOP  MESSAGE 
.SEND  AN  EOT  AN  flBOPT 


LAG 


TTYWAT; 

.  BYTE 
.  BYTE 
.  WORD 
.  WORD 

377 

60 
177777 

;0F  CODE 

;  ID  -  LINE  NUMBEP 

;WhIT  Time  -  I  SECOND  ^60  TICKS) 

;USEP  PPPRMETEP  UOPD 

WAITNQ: 

• 

.  WORD 

0 

:FLfiG  TO  INDiCflTE  TIMER  PENDING 

*■ 

.  ENDC 

J 


PC'SPSxn  Fooi 

SYSTEn  CONTROL 


nfiCRO  nil  OH 

ROUTINE 


0fc-D£C-77  08  21     PRGE   25 


G  te 


7V 

GLOBL 

COfERR 

728  002212 

BUFOVF: 

ERROR 

<BUFF  OUR) 

729  002226 

000167 

177370 

JMP 

GETENT 

730  002232 

PRGEPP: 

.  IF  DF 

RSX 

731  002232 

CLOSES 

IFDBIN 

732  0022H2 

CLOSES 

ffFDBOUO 

733  002252 

CLOSES 

fFOBOUl 

73H 

,  ENOC 

735  002262 

FPTOL 

<CnTX  ERR> 

736  002276 

COriEPR: 

IF  DF 

RTll 

737 

ncv 

«STKSET-SP 

73t 

ENDC 

73?  002276 

EPPOPP 

(ILL  cno) 

7H0  00231: 

000167 

17730V 

J"P 

CPOUT 

,COnnPND  ERROR 


;RES£T   STflCMSWi^CHES  nOY  BE    THERE) 


MMhmmmmim 


PCSRSXM  FGOl 
SYSTEM  CONTPOL 


MfiCRO   nil  OH 
ROUTINE 


Gfe-DEC-77  08.  21     PfiQE   28 


H   tb 


7HH 

7Ht 

T'Hb 

^H7  002316 

^H8 

749 

750 

751 

^c  •■ 

:^53 

:^5H 

"55 

"Sb 

757 

75S  00:21b 

016701 

17b354 

"59  oo:::: 

001002 

760  002324 

000167 

I7:':b6 

761  002330 

762  002352 

103412 

7o3  002354 

764  002364 

n2"06" 

OOOUIO 

rr-ObH 

765 

76b  0023": 

0014  17 

7b7  0023:^4 

000167 

000  3-4 

76S 

769 

770 

771  002400 

004^67 

000002 

772  002404 

000"34 

773 

774  002406 

0lb"b" 

004  342 

176244 

775  002414 

016767 

00^^332 

l"b240 

77b  002432 

777  002430 

000207 

77S 

COMCPL 


conP2 


CTtO; 


BRDCS: 


L  ^ 


EPP: 


,  SBTTL 
IF    DF 

CMPB 

BNE 

TSTB 

CLPB 
CSISPC 

BCS 

MOV 

crp 

.  ENDC 

IF    DF 
MOV 
BNE 

jrip 

CSISI 

BCS 

CSI52 

criP 

.  ENDC 

BEQ 

jriP 

.IF    DF 
GLCBl 
.JSR 

BP 

MOV 
MOV 
DIP? 
PTS 
ENDC 


COMMRND  COMPLETE  FROM  TTY 

RTU 

-atRD^fP 

C0nP2 

-(Rl) 

-CRD 

R2.  »DEFEXT,R2 

COMERR 

IFILDES.Pl      ;RDDP£S3  OF 

(P1),DEUR1      .OUTPUT  DEV 


CRLL  THE  CSI 
COHMPNO  DECODER 


SYNTAX 


EPPOR 


CS 
CE 


OUTPUT 
RT? 


PSX 

I0ST+2,PI 

CTIO 

CPOUTX  ■ 

«FILDES.QDPBP+Q  lOPL-Pl 

BPDCS  , SYNTAX 

-OUTPUT 

il'.  DEVD+2(RQj.DEVRT 


EPPOR 


TPNS4 

TPYPEC 

PSX 

CSIEPP 
PC-CSlEPP 
COMEPP 


fIfiYBE    PECEIVE 


PRINT  STPING 
TELL  OPEPfiTOP 


t\ 


EPPOP 
COMMAND 


ERROR 


FILDES+C.  FILD+2.QDPBM+Q.  iOPL    ;RD0PESS0F  ^RD  STRING 
FiLDES-t-C  F  ILD.  QDPBM+Q.  lOPL  +  2    ;  LENGTH  OF  STPING 
SuDPBM         ; WRITE  THE  MESSfiQF 
PC  ;kETUPN  TO  PRINT  PEST  OF  MESSAGE     ' 


TPPNSntT  COflMPND 
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I  t^ 


78t 
782 

783 
78^ 
7SS 
78b 
787 
788 
78? 
790 
791 
792 
793 
79^ 
79S 
79b 
797 
798 
799 

s66 

SOI 

so: 

803 

sou 

SOS 
SOb 
807 
SOS 
S09 
SIO 
Sll 
812 
S13 
Sll* 
S15 


002^32 
002H3b 
002UH0 
002'4HH 

00:U50 
002462 
002i*54 
0024"0 
0024714 

oo:soH 

002812 

0025m 

002530 

00:53H 
002540 


002544 
002550 


I05r'b7 

100402 
000167 
012702 
005732 
001410 

000167 

032^67 
001012 


177022 

r7632 
006504' 


17^126 
000004 


005077  003^50 
000167  r7C62 
010262   17-776 


004  76"   OOOOOOG 

!0:747 


0Ql4b4 


SBTTL   TRPNSMIT  COHMPNO 


TRNS4, 

TSTB 

ONLINE 

BMI 

TRNS6 

JMP 

COriERR 

TRNS6: 

nov 

«TRNSBLK,R2 

TST 

d(R2)>  . 

BEQ 

MDTRY 

ERPOPP 

<TPNS  PEND) 

TPNS7: 

JMP 

CROUT 

MDTRY, 

PUTMC   MOnPRR 

BIT 

»4,nDnppR+4 

BNE 

TRNS5 

EPPOP 

riDM  NOT  PDY> 

TEPPP. 

CLP 

iTPNSBLK 

JMP 

CPOUT 

TPNS5. 

MOW 

P2.-2(R2) 

.  IF  or 

PTll 

POD 

«36  PI 

TMOVE; 

MOV 

»4,R5 

10$: 

MOV 

I F  n  > .  ( R  2 )  > 

DEC 

P5 

BNE 

10^ 

CLP 

>p:i  + 

CMP 

Pl-»FILDESMlb 

BNE 

TrtO'./E 

CLP 

ir:'  + 

JSR 

PCMS^IIT 

BCS 

TEPPP 

CLRB 

SWPSL 

ENOC 

JSP 

PC  LUMJP 

BCS 

TRNS7 

,ONLINE'> 

;YES  OK 

;N0  COMMAND  EPPOP 

; TRANSMIT  COMMAND  PENDING? 


IS  CATA-LINK  OK? 
YES  -  PROlEED 

CANCEL  TRANSMIT 

NO.  SET  POINTER  TO  FIRST  FILEBLK 

ADDRESS  OF  INPUT  FILE  BLOCK 
NUMBER  OF  UORDS  PEP  FILE  SPEC 

NOT  INCLUDING  SWITCH  WOPD 
STORE  FILEBLK 
ONE  LESS  WORD  TO  MOVE 
NOT  DONE  YET 
CLEAR  SUITCH  WORD 
END  OF  INPUT  FluE? 
NO,  KEEP  GOING 

MAPh  END  OF  TABLE  UlTH  A  ZERO 
MOVE  SWITCHES  OFF  STACK 

NO  ROOM  FOR  SEL  PECV  BUFFERS 

PARSE  AND  FIND  PILES 
tPP<JP  (^Kun  LOOt-  UP 


wMMMMM 


>*J 


PCSRSXM  FOOl 
^0"T£P  BID 

iff 
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J  t6 


.  SBTTL  nfiSTER  BID 


820 

8:i  oozss: 

.  IIF  DF 

PSX     CfiLL 

s::  00256b 

106067 

17671! 

CLPB 

TOONE 

82!  00:5b2 

106067 

176716 

CLPB 

TRRTNF 

82W  0026^^ 

106067 

176677 

CLPB 

EL«TCH 

s.s  002b7: 

162767 

000200 

176711 

B  1  S 1  N: 

BISB 

•  200.TXPEN 

82b  0G2b00 

126727 

r6661 

000001 

CnPB 

nODE,«l 

827  002606 

001466 

BEQ 

GOTG 

828 

.  1  IF  DF 

RTH    JSP 

82?  002610 

004:^67 

OOOOOOQ 

JSP 

PCFSTFIL 

830  0026m 

103016 

BCC 

TPOKT 

831  002616 

BDFPIL 

EPPOP 

<XMIT  OPEN  EPP 

832  002632 

1060b7 

176663 

CLPB 

TXPEN 

833  002636 

006077 

003642 

CLP 

ilTPNSBLK 

z:m  0026^: 

004767 

OOOCOOG 

JSP 

PC, CLOSET 

836  00261+6 

000167 

176760 

J  MP 

CPOIJT 

S36  002662 

132767 

000040 

176631 

TPOKT: 

BiTB 

»4Q, TXPEN 

837  002b60 

001403 

I  :q 

lOS 

838  002662 

004767 

OOCOOOG 

JSP 

PC, POINT 

S39  002bb6 

103763 

BCS 

BoroiL 

S^0  0026^0 

004767 

OOOOOOG 

105: 

JSP 

PC-FSTGET 

841  002674 

103760 

BCS 

fOFP IL 

S42  00267b 

162:^67 

0002no 

reSBf 

BISB 

"200, FLOGS 

843  002704 

0060b7 

0012^4 

CLP 

CnFPiR+4 

844  002710 

PUTD 

ENQPRP 

846  00.'l720 

10C423 

Bfil 

PUTERR 

846  002722 

012767 

04000G 

CO  1202 

JOINT; 

now 

«40000,ENBPflP+ 

847  002730 

116767 

17b626 

ooiru 

nouB 

FLAGS, ENBPRR+2 

848  002736 

16b7b7 

176617 

001 ibr 

31  SB 

C0DE,ENBPflP+3 

S49  002744 

^UTTC 

ENBPflP  ;PEQUE 

860  002764 

100406 

Bfl! 

PIJTEPP 

S61  002766 

162767 

000200 

176603 

BISB 

»200. INiTF 

862  002764 

000167 

176632 

GOTG: 

jnp 

GETENT 

S63  002770 

000167 

i  •  1  •.  ->b 

FUTERR: 

JMP 

PPGEPP  ;COnTE 

PROMPT         ;D0  PROMPT  FOR  RSX 

.RESET  END  FLAGS 

; PR  INT  PROMPT  WHE-  THROUGH 

;SET  XMIT  PENDING  FLAG 

;RE:EIVE  ACTIVE'^ 

;YES,  WOIT  FOR  END  OF  TRANSMISSION 

PCOFNBUF       SET  UP  THE  BUFFERS 

, REOPEN  FIRST  FILE 


.CLOSE  THE  FILE 

;TPflNSMlT  PENDING  AFTER  PVP 

;N0 

;POiNT  TO  UHERE  WE  lEFT  OFF  IN  FILE 
; ERROR  TRYING  TO  POSITION,  GIVE  UP 
;D0  THE  INITIAL  GET 
; EPPOP  FROM  GET.  GIVE  UP 

;  SELECT  MASTER 

:FOR  TRANSMISSION  START 

; ERROR 
2  , BUFFER  ADDP  IN  PAPAM  LIST 

,SET  CURRENT  OPTIONS  SELECTIONS 

;SET  CODE  SELECTION 
ST  CONTROL 

;SET  INIT  FLPG 

V  EPPOP  ;  ■  J^t   DEBUG  **;; 


mmmum^ 


PE'.E  I'  E    TPPNSFER   COflMfiND 
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K   \h 


fMMH 


255 

8Sfe 

&S7  00277^ 

858 

859 

SfeC 

Bi\ 

862  002"7^ 

363  00300H 

016000 

000010 

S6M  003010 

122027 

000122 

86S  0030m 

001030 

8bb  003016 

12102:' 

000124 

86"  003022 

G01025 

£68 

S69  0030214 

012702 

OOtobbO' 

370  003030 

122767 

000001 

371  003036 

001407 

872  0030^0 

010262 

177776 

873 

87^ 

3"^ 

876 

8^" 

87S 

879 

880 

881 

882 

883 

8S4 

8S5 

SSb  ^ 

8S7 

SSS 

SS9 

S90 

S91  003044 

004  767 

OOOOOOG 

892  003050 

1034  10 

£93  003052 

GOClb:' 

176540 

S9H 

895  00  3056 

S9fe  003072 

0001 b7 

rb524 

TPYPEC 


'642: 


PMOVtE 
IQS: 


SBTTL  RECEIVE  TRfiNSFER  COnnOND 


PPEND: 
PFENOl 


IF  OF 

cnp 

BNE 
.ENDC 
.  IF  OF 

CSI52 
MOU 

cnPB 

BNE 

crPB 

BNE 
.  ENDC 

nov 

CMPB 
6EQ 

t^o^J 

.IF  0^ 
CLPB 
CLPB 
MOV 

MOV 

DEC 
BNE 

LLP 

aip 

BNE 

CLP 

JSP 

BCC 

CLP 

BP 

.  ENDC 

.  'f  DF 

JSP 

BCS 

JMP 

.  ENCC 

EPROPP 

JMP 


PTU 

FlLDES^Jb.DEVRT 

UFCR 

RSX 

, INPUT 

C  DEVD*2'R0),R0 

iRO)>,ll'R 

COMDD 

(PO).»'T 

conoD 

»PCUBI.K+2,R2 

«uriODE 

PPEND 

P2.-2'P2) 

PTU 

PCHN 

ZEPFLG 

»5.R5 

'PI  ^*,  (.R2)  + 

P5 

lOS 

'  P2)4> 

P1-8F ILDES+36 

pnoi'E 

(P2)  + 

PCHSWIT 
PPENDl 
iPCl'BLK 
PPENDl 

PSX 

PC.PENTEP 

PPENDl 

crout:< 

<RECV  PEND> 
CPCUT 


NOT  DEVICE  PT 


DEiMCE  PT 
NO 

NO 

RECEIVE  COflMRND  BLOCK 

RECEIVE  ACTIVE" 

YES 

SET  FOINTER  TO  FiPST  FILE 

CLEAR  PECEiVE  CHAIN  MODE 
CLEAR  DELETED  PREViOUS  FILE  FLAG 
NUMBER  OF  UORDS  PEP  FIlE  SFEC 
NOT  INCLUDING  SUlTCH  UOPD 

ONE  LESS  UOPD  TO  MOVE 

NOT  DONE  >ET 

CLPEA  OUT  FILE  SUlTCH  UOPD 

MOVED  OUTPUT  FILES'' 

NO 

MARK  END  WITH  0 

MOVE  SWITCHES 


..•EPSOP  ON  SUtTCHC"-. 
;N0  RECEIVE  f^LLOUED 


PPPSE  F  ILES  AND  SAVE  FriB 
•F  lRPOP  DONT  PF INT  PPOMPT 
PRINT  rPOMPT  AGAIN 


0mm 


PCSR.,<n 

PECEi^iE 

zn 

399 
900 
901 

9o: 

903 
90»» 
905 
90b 
907 
90S 
909 
910 
911 
912 
913 
9H 
915 
91b 
917 
913 

9:6 

921 

92: 

923 

9:w 

92b 

927 

9:s 

930 
931 

93: 

93H 
935 
936 
937 

93S 

'=»3Q 

9Hl' 
9^1 

9h: 

9^*3 
91414 


FOOl  MflCPO  MUO^ 

TPftNS^EP   COnrfiND 
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L   16 


IF    DP     RTll 

SBTTL     REPD  VERTlCRL 

GlOBL     DBLK,RE'3DNT 


FCPrifiT  RECORD 


VFCR,   nou 

'SP)>,R2 

1  NUMBER  OF  SWITCHES 

cnPB 

R2.I1 

;ONE  SWITCH'^ 

BNE 

COflDD 

;N0,  MORE  OR  LESS 

MOU 

(SP)*.P2 

;GET  SWITCH 

:  ODD 

ll3b,Rl 

;POlNTER  TO  INPUT  FILES 

C^^PB 

R2.»'V 

;VFC  COMMAND'' 

BNE 

TRYDEF 

;NOT  VFCR,  TRY  DEFAULT  RECV 

TSTB 

MODE  ' 

;flRE  WE  IN  CONTROL  MODE 

BUi 

CEPPOP 

;N0<  COMMAND  ERROR 

.  DSTRT 

»DBLK.P1 

BCS 

CEPPCP 

;N0  SUCH  DEVICE 

TST 

PESDNT 

;  IS  THE  HANDLER  RESlD£NT 

6EQ 

CEPPOP 

;N0-  ERROR:  FG  CANNOT  FETCH  IT 

nov 

«LOHBLI<,PC 

#SET  UP  FOR  LOOKUP 

MOV 

P1-21P0) 

;M0VE  device  BLOCK 

.  LOOKUP 

»2 

;D0  A  LOOKUP 

BCS 

CfPPOR 

;N0  SUCH  FILE 

nov 

«PEDBLK,PO 

;SET  UP  FOR  READ 

nov 

»COLTT- HiPQi 

:M0VE  BUFFER  ADDRESS 

C'.R 

lO'POi 

;PEAD  AND  WAIT 

«0.' 

SUOO-b'RO) 

: WORDS  TO  READ 

rov 

»1.2iP0) 

^BLOCf  1 

.  PERD 

«: 

;READ  IT  IN  ON  CHAnr^EL  2 

BCS 

10s 

,A  READ  EPPOP 

.  CLOSE 

, CLOSE  THE  FILE 

J  MP 

CPOUT   1   " 

XtSk           .  CLOSE 

;CLOSE  THE  READ  FILE 

CEP POP-  JM^ 

COMEPP 

TPVDEF:  -.V\?^ 

p:  ij'o 

DEF  PECW  CjnriPND^ 

BNE 

CEPPOP 

.NO  -  ILLEGAL  COMMAND   ^ 

CnPB 

» 1 . MODE 

; RECEIVE  ACTIVE^ 

.  BEQ 

PPEND 

;yES.  NO  GOOD 

MOV 

RUP2 

; SOURCE 

MOV 

»5.P1 

;  NUMBER  OF  WDS  IN  DE'<  BLK  ■ 

MOV 

SDEFflLT.fO 

;DES>  'NATION 

JSP 

PC  y^^PFNB 

;MOV£  DEV  BLK 

rtov 

»1703fe,DFEyT 

-MO'/E  PADBO  ZERO  INTO  DEFAULT  EXTENSION 

MOV 

«l703b-DF£yT*2 

'  .  . 

CLP 

aF:>'BLK 

;  CLEAR  ANY  PPE'^'lOUS  RECEIVE  COMMANDS 

CLPB 

ZEPFLG 

.CLEAP  ■'DELETED  PPE'MOUS  *^ILE"  FLAG 

CLRB 

PCHN 

,  CLEAR  FECEI'"E  CHAIN  MODE 

JMP 

CPOUT 

:ALL  CONE 

ENDC 

■"•■"■•■PPIHiiptv^ 


6/"'*'"'      'M       •»• 

F*  ^n  rf,' . ,    I  uU  I 

VIST  rop  C0nM«.<0 


*•  mm 
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94  b 

9^*^  003C'e 

'5^g 

9Hf 

9%0 

9Sl 

9S. 

963  QQ307fe 

Olo^CO 

00:b36 

95'*   "03102 

00»47b" 

OOOOOOG 

98S 

96b  003106 

012^06 

00H030' 

96"  003112 

020026 

96?  00311^4 

oomou 

969  QOZllb 

006:26 

9bO  003120 

001 37U 

9bl   003122 

000167 

r"i60 

'^bZ  003126 

106^67 

17b333 

9b:  QQznz 

000176 

000000 

9b^ 

9b6 

%6 

967  003136 

0022 J2* 

968  0031140 

nn::i2' 

9b9  003^: 

uci^:2' 

970  0031^u 

000 000 G 

971   003'^b 

OGOCOOG 

972  003.60 

CO  1 612* 

973 

1^ 

COnoo 


105 


20S 


.  SBTTL 
iF    OF 
TST 
BN£ 

now 

.  ENDC 
.  IF    OF 

rtov 

JS(P 

ENDC 
MOV 

crp 

BEa 

TST 

BrlE 

jnp 

TSTB 
JMP 


n  16 


TEST   FOP   COnriPND 

PTll 

P2 

CERPOR 

FILDES*«0. 


mittm!t*'''*mmiti>>f!iirm  •Mmmm.tivfm^ . 


RO 


RSX 

FILDES*C 

PC<RfiDCM 


«C0i-lPTB.P5 
PO,  (R6'* 
20% 
'R6'* 
lOS 

corEPP 

^'ODE 

i'P5i 


;PRtflfiRY    JUMP    TPBlE 


^ptbl 


UORD 
UOPD 
WOPC 
WORD 
WORD 
UCRD 


PPQEPP 

BurouF 

USPTIM 
iNfCPL 
MSGDCN 
GETENT 


PNY  SWITCHES"^ 
ON  ERROR 
FILE  NfiME 


CMlD*2.R0 


COMD  ACTION  TBL  POCP  IN  P5 

DO  THREE  CHPRfiCTEPS  MfiTCH'' 

YES,  FOUND  THE  COMMPND 

NO.  PNY  CMMC5  LEFT  TO  TEST^ 

I'ES.  KEEP  LOOK'NG 

NO.  IlLEGPL  COMMPND 

TEST  FOR  n.iDE 

GO  TO  THE  PROPER  ROUTINE 


P5-0  PROGPPM  EPPOP 

R6=2  BUFFER  OVEPFLOU 

P6='4  USER  Timer  EXP  i  FED 

PE=b  INPUT  TYPE 

P6=S  OUTPUT  TYPE 

P5=1C  S"rpTUS  TYPE 
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BISYNC 

J 

9 

DPV112 

E  1 

4 

FREE 

r 

c 

F I  SYNC 

K 

9 

DPl'112 

F  1 

4 

FREE 

5 

5 

8  1 S  .'NC 

L 

9 

DPl'112 

G  1 

4 

FREE 

E 

6 

BISYNC 

n 

9 

DPU112 

H  1 

H 

FREE 

F 

5 

B 1  SYNC 

N 

9 

DPV112 

1  ! 

H 

FREE 

G 

5 

BISYNC 

B 

10 

OPl'l  12 

J  1 

4 

FPEE 

H 

5 

BISYNC 

C 

10 

DPV112 

K  1 

4 

FREE 

1 

5 

BISYNC 

D 

10 

DPU112 

L  1 

^ 

COMTEX 

'•ti«)ii<^fi''swMJHjymagaHU![H^«n 


^W«WW:»Wa<WaPgg5r«55=5H=a=aaia=a==H=5«H;555=5s55^ 


PCSRSXn  FOOl  MR 

TEST   FOP    COnnRND 


0  nllO^     Ofc-DEC-77  08:21     PRGE   2? 


B  1 


■576 
977 
973 
979 
980 
931 

9s: 

982 
98H 
986 
936 
987 
988 
989 
990 
991 
99C 
993 
99^ 
995 
99b 
99^ 
998 

QQQ 
1060 
1001 
100: 

1003 

lOO^ 

1006 
100b 

100: 

1008 
1009 
1010 
IGll 


003152 
003164 
003162 
0G317G 
003176 
003204 


003214 

oo::ib 


003232 
0G323b 


003236 
003242 
003260 
003266 
003262 
0032b4 
003270 
003272 
003276 
003300 
003304 
003310 


001067 
162767 
016767 
116767 
llo767 


10000b 


012767 
Gl27b7 
106767 
001403 
004767 
000*^72 
106767 
100002 
000167 
000167 
0l:.4Hb 


GOOZOP 
00064. 
176266 
176267 


176276 
000714 
000734 
000727 


000374 
002402 

176220 

OGOOOGG 

176213 

1  1''  f  <;:.bb 

i:'"4i: 


000712 
G0C702 


ONLHRN. 


TURNPl^: 
TURNON: 


TUPNON: 
TUPNRR. 

TUPNl: 

BISIN2: 
JO  I  NT  I: 


jOINTX: 
QCONT: 


.SBTTL 

.  GLOBL 

BNE 

BIS6 

MOV 

MOVB 

novB 

PUTTC 
.  IF  OF 
BPL 
.  FNDC 
.  IF  DF 
BPL 
.  ENDC 
FRTRL 
.  IF  DF 

CLPB 
.  ENDC 
.  IF  DF 


SWITCH  nODlFERS 
ONLHRN, TURNRR,TURN1 


EBCHRN 

«200. ONLINE 

QONL.QSTRT 

FLRGS,ENBPflR+2 

C0DE,ENBPRR^3 

ENBPRR 

RTll 

TURNRR 

RSX 
TURNON 

<HRD  FAIL) 
RTll 

TPPTNF 

RSX 


NOT  IN  CONTROL  MODE 

SET  TO  ONLINE 

SET  FOR  QUERY 

SET  CURRENT  OPTION  SELECTIONS 

SET  CODE  SELECTIONS 


CONTINUE  ON 


CRLL  PROMPT 

.  ENDC 

JSR  PC.CLPRLL 

MOV  «XSTEQ.STEQM 

MCV  ?*XEOTS.EOTSEO 

TSTB  CMBFRU 

BEQ  JO  I  NT  I 

JSP  PCflSPOUT 

BR  °.  I31N2 

TSTB  TXPEN 

BPl  JOINTX 

JMP  BISIN 

JMP  JOINT 

.  RflDBO  'CON' 


CLERP  XMIT/RECV  CODE  PTN  FLRG 

PROnrT  THE  OPFRRTOP 

CLERP  RL.  FLRGS 

RNY  BUFFERS  RVRILRBLE 

GO  RSSIGN  R  BUFFER  TO  8  1  SYNC  TRP 

xniT  PENDING^ 


pcspsxn.  Fooi   ^•'^CRO  nno^ 

TPPNIFQPENT  SWITCH 
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lOlZ 

lom 

1G15 
lOlb 
1017 
lOlS 
1019 

io:o 

1021 
1022 
1023 
102H 
102S 

io;s 

lOi:? 

102S 

1029 


003312 
003314 
003322 
003330 

003332 
00333^ 
00334^ 
00334^ 


lo: 
lo; 


;i 


1032 
103Z 
103H 
1035 
103b 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 


00Z35G 
00335: 
003360 

0033bb 
003374 


003404 
00340b 

003412 
0U3420 

003426 
00:'.34 
0034HC 


GO 1 100 
lb2767 
142767 
000404 

uul070 
1B2767 
01456:^ 
000531 


001061 

1 12767 
012767 

0i:;'b7 
11276^ 


0034  02  0004 m 


GO  104 3 
105  }b7 

CI  2767 
012767 

012767 
n"45b7 
u._  ■  74 


0G0G04 
000002 


000036 
000552 


000200 
000206 

001000 
000001 


17b051 

000120 
000001 

000120 
000454 


176140 
176132 


176120 


176103 
176132 

174444 

:~45in 


174420 
l7M4b4 

1760b4 


EBCHRN: 


.  SBTTL 

BNE 

BISB 

BIC6 

BR 


C   1 


TRflNSPPRENT  SUITCH 
GOGETE 


EXBHON:  BNE 
BISB 

COCOH:  MOV 
BR 


114. FLOGS 
112,  FLAGS 
COCOM 

GOGETE 
«6, FLAGS 
-(R5),QC0DE 

coconi 


; CLEAR  TRANSPARENCY  FLAG 


;NOT  IN  CONTROL  r.ODE 
;SET  TRANSPARENCY  FLAG 


,/////// 


GNEMDE: 


PinoE: 


cocon2: 


BLOCKING  MODE 


BNE 
MOVB 
MOU 

.  IF  DF 
MOU 

novB 

.  ENDC 
BR 

BNE 
CLPB 
.  IF  DF 
MOU 
MOV 
.  ENDC 
MO  I' 
MOV 
BR 


;NOT  !N  CONTROL  MODS 


GOGETE 

«20GnCB 
;i34.  PECSI2 

«512.  .F.  PSI2+FDBIN 

«l.F.  neCT+FDBlN  ; SINGLE  BUFFERED  READS 


COron2 

GOGETE 

MCB 

PSX 

;S0  .F.  PSIZ+FDBIN      ;  MAX  RECORD  SIZE 

;i.F  MBlT^-FDBI.nI  .SINGLE  BUFFERS  FOP  READING 


:NOT  IN  CONTROL  MODE 
.:SET  2780  BLOCKING 


SSO.  .PECS  I  Z 
-  '  P5  '  •  QBirM 

cocom 


; BLOCKING  MODE  FOR  QUERY  TYPFQUT 


_J 


TEPM-DlSCONNEC 


,051 
052 
063 
05U 
055 
05b 
057 
,05S 


059 

,060 
Gbl 

Ob: 

0b3 
Cb^ 
0b5 
Obfc 
Ob? 
ObS 
0b9 
070 
071 

07: 

07Z 
074 
075 

07e 

077 
,078 

,079 
OSO 
OSl 
0S2 
0S3 
OS^ 
0S5 
OSb 
0S7 
OSS 
089 
090 
091 
09. 
097 
0914 
095 
09b 
0'3" 

09S 
0<=»9 
100 
101 
102 
103 
lOH 

105 
10b 


0031*142 
C03H^b 
0031*50 
003H5'4 
002^456 
003^64 
00:Hbb 
OOZ^'H 
003H"b 


0035C: 
C0350b 
00351: 
003514 
003520 
003524 
003534 
003542 


00354b 

003552 
00355b 
003562 
0035bb 
00  3576 
003b04 
00 3b 10 
003614 


nocpo  nn04 

RND  OFFL INE 
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D  1 


iG5:'b^ 

100022 
lG57b7 
001410 
132767 
001004 
152~67 
0004 "6 
C0Clb7 


10506"' 
105^67 
100402 
GC01b7 

10506:^ 

152:^6^ 
000167 


105067 
105067 
105067 
1D5067 

016767 
004767 
004767 
004  767 


.  SBTTL  TERM, DISCONNECT  PND  OFFLINE 

.  GLOBL     SNDEOT,  OFFHfiN,  ClRflST,  TERHflN 
.  IF   DF   RTll 
.  GLOBL     RCHN 
.  ENDC 


1^6012 

176011 

000200   176024 

000200   176014 

OOOQOOG 


;TERri  HPNDLER 
TERHflN:  TSTB 
BPL 
TSTB 
BEQ 
BiTB 
BNE 
BISB 
BP 

jnp 


SNOEOT: 


ONLINE 

GOGrTE 

nODE 

SNDEOT 

«200, lOEPP 

SNDEOT 

<{200,  iQERP 

COCOMi 

GOFIBRT 


PRE 
YE^ 


J/ 


YES 
NO, 
EOT 
SEND 


WE  IN  CONTROL  MODE? 

JUST  SEND  AN  EOT 

;HflVE  WE  flLREPDY  SET  10  ERROR 
-  GO  SENT  EOT  -  MUST  BE  HUNG 
SIMULATE  PN  10  ERROR 
WILL  GET  SENT  INSTEAD  OF  PCK 

PN  EOT    inriEDlPTELY 


i:"5"76 
I7r-4b 

l^fc55b 
175760 

000200   17B"':4 
OOOOOOG 


;  DISCONNECT   COtlMPND  HPNDLER 


DSCHflN; 


GOGETE: 
DSCOUT: 


CLRB  TPRTNF 

TSTB  ONLINE 

BMI  DSCOUT 

jnp  COnERR 

CLRB  TPRTNF 

PUTD  DLEPRR 

BISB  »200,E0TFLG 

jnP  TERl 


PRINT  PROMPT  UHEN  DONE 


PRINT  PROMPT 
XMIT  DLE  EOT 
SET  ^OT  FLPG 
GO  X-MIT  DLE  EOT 


000230 
175702 
175727 
175722 

000226  000300 
000026 
OOOOOOG 
OOOOOOG 


;  OFFLINE  COnnPND  HANDLER 

;(RLSO  COMPLETES  DISCONNECT  COMMPND  HRNDL'NG) 


OFFHPN: 


'FHRNl: 


003620  012777   1777; 


003030 


■^  '  r"  j-^ 


003626  005077  00265 


003632  000167   17S760 


COCOMI 


COCOMI 


CLRB 

RCHN 

CLRB 

ONLINE 

ONL 1 NE 

.LRB 

TXFEN 

CLEPR  X-MIT  PENDING 

CLRB 

lOERP 

CLEAR  lOERPOP  FLRG 

PUTTC 

TERPPR 

nov 

COnflTB,QSTRT 

SET  STATUS  TO  OFF 

JSR 

PCCLRPLL 

CLEAR  ALL  FLAGS 

JSR 

PC. CLOSET 

CLOSE  TRANSMIT  FILES 

JSR 

PC, CLOSER 

AND  CLOSE  RECEIVE  FILES 

IF  DF 

RSX 

MOV 

{?-l,ilRCl'BLK 

NO  MOPE  FILE  iNPUT 

.ENDC 

.  IF  DF 

RTll 

CLR 

aRC'./BLK 

NO  MORE  FILE  INPUT 

.  cNDC 

CLP 

iiTRNSBLK 

OR  OUTPUT 

.  IF  DF 

RTli 

JMP 

CROUT 

GO  PUT  OFFLINE 

.  ENDC 

.  IF  DF 

RSX 

JMP 

CPOUTX 

.  ENDC 

TEPn,oiSCO;n^ECT 


no? 
uos 
no? 

1110 

nil 
n.i: 
ni3 
nm 
ni5 
iiife 
nr 

IMS 


00363^ 
003oh2 
003646 
003662 
003666 
003b62 
003666 
003672 
003700 
003^06 


MRCPO  mi 04 
RND  OFFLINE 


06-DEC-77  08: 
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E  I 


105C., 
00&067 
006067 
105067 
106067 
106067 
105067 
142767 
016767 
000207 


175623 
175646 
175644 
175625 
175610 
175606 
175604 
000200 
177404 


;  FLPG  CLERRING  ROUTINE  FOR  ttOOC  TRflNSITlONS 


175562 
000202 


Cir^^LL: 

CLPB 

nooE 

CLRMST. 

CLP 

INPCNT 

CLR 

NQKCNT 

CLRB 

CnBFPN 

CLPB 

ENDPEN 

CLRB 

EOTPEN 

CLPB 

EOTFLG 

6ICB 

«200.FLRGS 

MOV 

QCONT^QMODE 

PT2 

PC 

; RETURN  TO  CONTROL  nODE 


CLEAR  END  PENDING  FLAG 
CLEPR  EOT  PENDING 
CLEPR  EOT  FLPG 
SET  TO  SLPVE  MODE 
SET  UP  QUERY  TYPEOUT 


p. 

'9.im   FOOl 

MRCPO  nil04   Ofc- 

-DEC-77 

Tl 

^M.DiSCONNELT 

RND  OFFLINE 

1120 

1121 

1122 

1123 

112'4 

1125 

ii:b 

1127  003710 

012700 

000006 

112S  0037W 

012703 

ooHom' 

112?  003720 

005023 

1120  003722 

005300 

1131  003:^24 

001375 

1132  003726 

012767 

000206 

000072 

1133  003734 

012767 

OOOOOOG 

000060 

113H  0037u: 

012767 

OOOOOOG 

onoo5H 

1135  003750 

000207 

11 3b 

08:  21     PRGE  43 


F      I 


IF   OF 
SBTTL 


NPUTS; 


NONE 


RSX 
CLERR 


CLRRSW: 

lOS; 


OUT  THE  TCriPORflRY  COfinON  RECEIVE  SWITCH  AREA 


.  GLOBL 

CLRRSU 

MOV 

«RCVSW1/2,R0 

/ 

MOV 

«SWRB1.R3 

/ 

CLR 

(R3)^ 

/ 

DEC 

RO 

f 

BNE 

lOS 

/ 

nou 

«134.  ,RVflLl 

/ 

MOV 

«P.  VQR.RTYPl 

/ 

MOV 

tJFD.  CR.RRTTl 

/ 

RTS 

PC 

/ 

.  ENDC 

«  OF   UORDS    IN  RECEM'E   SWITCH  RRFR 

FIRST  SWITCH   TO  ZERO 

CLEAR  fl  WORD 

DECREMENT  THE  WORD  COUNT 

MORE  TO  GO 

SET  DEFPULT  RECORD 

SET  DEFAULT  RECORD 

SET  DEFPULT  RECORD 

PLL  DONE 


SIZE 
TYPE 
PTTR 


(VPRIPBLE) 
BUTES 


^'ILf^l'M 

FOOl 

MRCRO  r 

toble  ^c 

ip  UPiTE 

1138 

1139 

11  HO 

imi 

11142 

11H3 

I  IHH 

003752 

000176' 

ims 

00375H 

OCOOOO 

llUb 

003756 

000000 

im? 

003760 

000336' 

ims 

003762 

000000 

1  lUQ 

G0376H 

000000 

1150 

003766 

OOGOOO 

1151 

0037:^0 

000000 

115: 

1153 

11  5h 

1155 

11 5b 

115:^ 

115S 

115? 

1  IbQ 

11  bl 

lib: 

llb3 

llbH 

1165 

1  Ibb 

1167 

llbS 

r.b9 

1170 

1171 

117: 

1173 

117H 

1175 

1176 

1177 

1!7S 

1179 

USD 

llSl 

lis: 

lis: 

11S14 

11S5 

IlSb 

nilOH  06-DEC-77  08:  21  PRGE  H^ 


G  1 


.  SBTTL  TABLE  FOR  WRITE 

TWO  FILES  n«Y  BE  OPEN  FOR  WRITE 

AT  THE  SAME  TIME  (SELECTIVE  RECEIVE) 


CHRNL 

COLPl 

RECSl 

CHflNL2 

C0LP2 

RECS2 

COLflD 

CHRRL 


IF  OF 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

ENDC 


IF  DF 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 


ICHflNL= 

IPBUFF= 

ICBUFF= 

COLPNT= 

IWREND= 

mRCP=l 

lOUBLK: 

CHflNL 

PBUFF 

CBUFF 

COLPl 

WREND 


OUBLK: 
CHflNL2 
PBUFF 1 
CBUFFl 

C0LP2: 

WPENDl 


OUBLKl 
COLRD 
CHflPL 
CHHPF 


0 
2 

H 
b 
10 


WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
ENDC 


RSX 
FDBOUO 
0 
0 

FDBOUl 
0 
0 
0 
0 


FOB  BLOCK  ADDRESS 

FHR  VERTICAL  FORMS  CONTROL 

FOR  FIXED  LENGTH  RECORDS 

SECOND  FDB  ADDRESS 

FOR  VERTICAL  FORMS  CONTROL 

FOR  FIXED  LENGHTH  RECORDS 


RTll 
ICHANL, IPBUFF, ICBUFF, COLPNT, I WREND 
iWRCP,  IOUBLK,CHANL/ PBUFF,  C3UFF,  COLPl 
WFEND<  OUBLK , CHRNL2, PBUFF 1 , CBUFF 1 ,  C0LP2 
WPTCF 
WPENDl. OUBLKl . COLAD, CHAPL, CHARF 


PENDING 
CURRENT 


BUFFER 
BUFFER 


i: 

BUFB 
BUFA 
0 
BUFA+IOOH 

URTCF 

n 

13 

0 

0 

0 

0 

WPTCF 

0 

0 

0 

0 


P 'IIP  I'M 

FQOl 

MRCPO 

TRBlE  F( 

,'R  UPlT£ 

1138 

118? 

1190 

1191 

003772 

000000 

1192 

00377^4 

000000 

1193 

000004 

1194 

003776 

000000 

119B 

OOHOOO 

ocoooo 

1196 

004002 

000000 

1197 

004004 

000000 

U9S 

004006 

000000 

1199 

L04C10 

OOOOGO 

12CG 

000014 

i:oi 

004012 

OOOCOG 

i:o: 

1203 

i:oM 

i:o5 

i:ob 

1207 

0C4014 

000000 

120S 

00401b 

GOOOOO 

1209 

004020 

000000 

1210 

004022 

000000 

1211 

004024 

000000 

1212 

004026 

000000 

1213 

000014 

121H 

1216 

i2ie 

1217 

121S 

1219 

1220 
1  ^ ""  1 

1  ^>.  1 

4  •->  -■^  •O 

1  Li.^ 

1223 

122H 

122S 

1226 

1227 

1228 

1229 

123  J 

t231 

nil04  06-DEC-77  08:  21  PRGE  H5 


H  t 


IF  OF  RSX 

SBTTL  SWITCH  TRBLE  fiND  ROUTINES 


SWTBN 

.   WORD 

0 

SUREM 

.  WORD 

0 

XMTSWT= 

-.  -SWTBN 

SWRBN 

.  WORD 

0 

SURSL 

WORD 

0 

RCHN: 

.  WCRD 

0 

PTYP: 

.  WORD 

0 

RflTT: 

.  WOPD 

0 

RVflL: 

.  WORD 

0 

PCUSWT= 

=  .  -SUPBN 

SWRDF 

WOPD 

0 

TEnPORPPY  SWITCHES  TO 
SWITCHES  ON  THE  OTHEP 


QVOiD  PI 
RECEIVE 


TRONSMIT  BINPRY  SWITCH 

END  SWITCH 

NUnBER  OF  BYTES  OF   TRflNSMIT  COMflflND  SWITCHES 

RECEIVE  BINARY  SWITCH 

SELECTIVE  RECEIVE  SWITCH 

RECEIVE  CHAIN  MODE  SWITCH 

RECORD  TYPE  FOR  FDB 

RECORD  ATTRIBUTES  FOR  FDB 

RECORD  SIZE  FOR  FDB 

NUMBER  OF  BYTES  OF  RECEIVE  COMMAND  SWITCHES 

CHANGE  DEFAULT  RECEIVE  FILE 

(DON'T  INCLUDE  AS  ONE  OF  THE  "RCVSWT" 

SWITCHES  SINCE  THE  FILE  DOES  NOT 

GET  STORED  INTO  RCVBLK) 

DF  WIPING  OUT  THE 

ILE 


SWPBl 

.  WOPD 

0 

SWPSl 

.  WORD 

0 

RCHNl 

WOPD 

0 

PTYPl 

.  WOPD 

0 

i^ATTl 

.  WORD 

0 

P'mRlI 

.  WOPD 

0 

RCiisn 

1  =  =  .  -SWPBl 
,  ENDC 

.  IF  DF 

PTll 

.  GLOBL 

SWPSL- 

.IF  DF 

LSI  11 

GLOBL 

SWPSL  1 

.  ENDC 

PCHN: 

.  WOPD 

0 

SWRBN 

.  BYTE 

0 

SWPSL 

.  BYTE 

0 

SWPEN 

.  BYTE 

0 

.  IF  DF 

LSI  11 

SUPSL 

1:  .  BYTE 
.  ENDC 

.  EVEN 

.  ENDC 

0 

SWPEN.  S^-iPBN.  PCHN 


;PECE!'/E  CHAIN  flODE  FLAG 
;BiNflPY  MnDE  FLAG 
; SELECT 'VE  RECEIVE  FLPG 
;END  nODE  FLAG 

;SEL  PEC  3P"E  FLRG 


PCSP:<n  FOCI 
'IiilTC't   TPBLE 


^-b 


MOCPO 
fir^D  POUT 


NES 


Ofc-DEC-77  08;  21  PRGE  ^8 


I      1 


::9 

:^c 

004030 

057266 

241 

004032 

003546* 

004034 

C57774 

:h: 

004036 

003152' 

:h4 

004040 

021402 

:h5 

004042 

003332' 

:ub 

001^044 

017623 

004nH6 

003312" 

249 

2SC 

OG405G 

076732 

:bi 

004052 

003442' 

2^2 

004054 

015173 

2b: 

G04056 

003502' 

2514 

2SS 

004060 

026226 

2Sb 

004062 

003350' 

2B^ 

00^064 

0,-1025 

2^S 

004u6b 

003404' 

259 

2bO 

2b  1 

262 

004070 

066615 

263 

004072 

OOOOOOG 

264 

004074 

021042 

2b5 

004076 

OOOOOOG 

2bb 

:b7 

2bS 

^69 

270 

004 1 00 

lOi.iOOO 

271 

004102 

000000 

;SWITCH  nODIFlER  COflMRND  RCTION  TflBLE 
.  GLOBL     XFEREN 


COnRTB; 

.  RRD50 

'OFF' 

.  WORD 

OFFHRN 

QONL: 

.  RfiD50 

'ONL' 

.  WORD 

ONLHflN 

.  RRDBO 

'EXB' 

.  WORD 

EXBHRN 

.  PRD50 

'EBC 

;EXBCID  CODE 

.  WORD 

EBCHflN 

.CONTROL  COnnRND  RCTION  TfiBLE 
.  PRD50   'TER' 
.  WORD   TEPHPN 
.  PPD50   "DIS" 
.  WORD   DSCHflN 

:PECOPD  BLOCKING  SETTING 
.  PfiD50   'GEN' 
.  WORD   GNEMDE 
.  PPD50   'RJE' 
.  WORD   RTMDE 


;rilSCELLRNEOUS  COriMflND  ACTION  TABLE 


; DISCONNECT 


PRD50 

'QUE' 

; QUERY 

WORD 

QUE  HON 

PflD50 

'ERP' 

WORD 

ERR  HON 

IF  OF 

RTll 

PflD50 

'EXT' 

;EXIT  C'/iflflNO 

WORD 

DONE 

ENDC 

XFEREN:  . 

^IORD 

100000 

;END  OF  TABLE  MRPKER 

WORD 

0 

; THIS  TOO 

PCSPSXM, 

FOOl 

nfiCPO  mi  OH 

QUEPV  STRTUS  'iTOPRGE  RPER 

t  i->-t 

I ^-  J 

\r^ 

1:^5 

lZ7b 

1277 

•  -i-nr. 

li,  '0 

1:79 

1280 

i:si 

1282 

oomOH 

os:'26e 

12S3 

00m  06 

000000 

12S4 

oomio 

012446 

12SB 

00^112 

OCJOOO 

12Sb 

0014  114 

071025 

1287 

oomib 

000000 

128S 

00U120 

017023 

1289 

00*4  122 

000000 

1290 

004 1 24 

1291 

000030 

1292 

000020 

06-DEC-77  08:  21     PfiGE   ^^ 


J      I 


SBTTL     QUERY  STATUS  STORAGE  PRER 


;  QUERY  riESSflGE   STORRGE    (OEFfiULTS  RRE   PILREflDY    IN  MESSAGE) 

,    THE   VARIOUS  COflMANDS  CHANGE   THE   flESSAGE    IN  APPROPRIATE   PLACES 


QSTAT: 
QnODE: 
QBLKM: 
QCOOE: 
QEND. 


GLOBL   QSTAT, QMODE, QBLKM, Q£ND, QLENTH, QLNGTH 
OFF 


PAD50 
PADSO 
PAD50 
RAD50 
RAD50 
RAD50 
PAD50 
PAD50 


CON 

PJE 
EBC 


QLNGTH=<'QEND-|.3TRT    /ZiZ 
QLENTH=QEND-QST«T 


pi'SRSxn  FGOi        MfiCPO  nll0^ 

OUEPY  STQTUS  STOPflGE   flPFR 
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K     1 


V2'5i4 

129& 

.  SBTTL 

PRRflflETERS 

129b 

1297 
1 2'^^ 

.  GLOBL 

iTBM^ENBPflfi 

1299 

004124 

o:':'405 

ENQM: 

.  UOPD 

XCEP 

1300 

1301 

004126 

037 

ITBM: 

.  BYTE 

XITB 

1302 
1303 

004127 

000 

.  BYTE 

0 

004130 

000 

ENBPflR: 

.  BYTE 

BflSELN 

rCE) 

004131 

002 

.  BYTE 

7 

it 

I  30b 

004132 

000000 

.  WORD 

0 

1307 

004134 

000000 

.  WORD 

0 

130S 

1  30^ 

1310 

004  136 

000 

DLETPIF: 

.  BYTE 

BRSELN 

1311 

004  137 

100 

.  BYTE 

100 

17  1^ 
1  .  t  •- 

004140 

004  164  ' 

.  WORD 

DLEEOT 

1313 

004142 

000002 

.  WORD 

13m 

131S 

004144 

000 

ENQPRR; 

.  BYTE 

BWSELN 

131b 

004145 

100 

.  BYTE 

100 

131- 

GGUmb 

004 1 24  • 

.  WORD 

EN-'jH 

131S 
1319 
1320 
1321 

1  y  ^  ^ 

004  150 

000001 

.  WORD 

1 

004152 

GOO 

BiSPPP 

.  BYTE 

BOSELN 

1323 

004153 

003 

PESF: 

.  BYTE 

03 

1324 

004154 

OOGGGG 

.  UOPD 

0 

\^.2^' 
132b 

004156 

00020b 

.  WORD 

LPSIZE 

1327 
132S 

004 ibO 

077404 

EOTSEQ: 

WORD 

XEOTS 

1329 
1330 

1331 

004 lb2 

G02402 

STEQM; 

.  WORD 

XSTEQ 

004  lb4 

GG202G 

OLEEOT: 

.  WORD 

XDEOT 

•  -*  -^  -1 

1  jj.*. 

004166 

177 

.  BYTE 

XPflD 

1333 

0041b" 

GOO 

.  BYTE 

0 

1334 
1335 

004170 

000003 

.  WORD 

3   ^ 

1  33b 
1337 

Gl'4172 

000 

noriPflR: 

.  BYTE 

BfiSELH 

:33S 

0041^3 

201 

.  BYTE 

201 

1339 

004  174 

100000 

.  WORD 

100000 

1340 

004  176 

000000 

.  WORD 

0 

134  1 

1342 

1343 

004200 

000 

CMPflP: 

.  BYTE 

BfiSELN 

1344 

0042ri 

000 

.  BYTE 

0 

134G 

00420.: 

000000 

.  WORD 

0 

134b 

00"2L. 

OOOOOG 

.  WORD 

0 

1347 

134S 

I  2^9 

004206 

000 

TERPPP: 

.  B  rTE 

BfiSELN 

1  350 

004207 

002 

.  BYTE 

O 

t'SPS.^r^  FOGi 

MfiCRO 

pupanntPi 

135!  00H210 

lUOOOO 

i3s:  ooh:i: 

000000 

tzsz 

IZBU 

13SB 

1356 

1367 

13S8 

1369 

UbO 

L   I 
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WORD  moooo 

WORD   0 


.  IF  DP  RTll 

;  EXTPfl  QUEUE  ELEMENT  STOPQGE 
.  GLOBL   QLSTRT 

OLSTPT;   P"'W   70.  ;10.  .  7-WOPD  QUEUE  ELEMENTS 

.  END-: 


pCiRsxn  Fuol       MRCPO  nnoH    ne-DEC-??  os  21 
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bZ 
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n  I 


.  >..'•+ 

IZbS 

I  3bb 

3b7  oouzm 

1368 

3b? 

004422' 

iZT-O 

004630' 

1371 

005036' 

005244' 

""77 

005452' 

i  3"H 

005660' 

-^ 

006066' 

izy-b 

■^  -^  -^ 

1378 

z:-? 

006066' 

[3S0  OObObfe 

ZSl  OObC'H 

i3s: 

"'C  7 

3SH 

3S5  00b27b 

3Sb 

38^  OObSO^ 

006506 ' 

38S  OObBOb 

000000 

3S9 

390 

391 

39: 

393 

7914 

395 

39b 

397 

39S 

399 

hOO 

"401 

000002 

^OZ 

403 

UC^ 

MOB  OObbBH 

000000 

4  06 

MO^  OObbSb 

006660 ' 

4  OS 

409  OObbbO 

1  7"»7-77 

4  i  0 

411 

412 

413 

414 

415 

41b 

417 

418 

SBTTL  COnnUNICPTION  BUFFER  STORAGE 


cneuFi: 

CnBUF2= 
CMBUFJ: 
CMBUF4: 
CMBUF5: 

cneuFfe: 

CnBUF7: 
CMBUFE: 


HFCPEC: 


GLOBL  CMBUFl, CMBUFE, 
GLOBL  RCUBLK.FILDES, 


CMBUFl+LPSIZE 
CriBUF2^LPSlZE 
CnBUF3+LPSI2E 
CnBUF4+LPSl2E 
CnBUF5+LPSlZE 
CnBUF6+LPSI2E 
7«LPSIZE+CnBUf 1 


.  =CnBU^E 
BLKB    LPS 

. L\JZ       377 


HfCRECTRNSBLK 
KBIBUF 

; START  Or  COMM  BUFFERS 


EXPPEC; 
TRNSBLK 


fPNSE- : 
RCVBLK: 


.IF  OF 
.  BLKB 
.  ENDC 
.  UORO 
.  WORD 

.  IF  DF 
.  BLKW 
.  BLKU 
.  BLKW 
.  BLKW 
.BLKW 
.  BLKW 
.  WORD 
.  ENDC 
.IF  DF 
.  BLKB 
.  REPT 
.  BLKB 
.  BLKB 

.  ^Non 

.  hORD 
ENDC 
WORD 
.  IF  DF 
.  WORD 

.  ENDC 

.  IF  DF 
.  WORD 
.  BLKW 
.  BLKW 
.  BLKW 
.  WORD 


PSX 
LPSIZE 

TRNSBLK +2 
0 

RTll 

4 

5 

5 

5 

5 

5 

0 

RS>; 

S. FNB+XnTSWT-2 
NTPNSF 

S.  FNB 
XMTSWT 

0 

RCVBLK+: 

RSX 

-1 


PTll 

0 

5 

6 

6 

C 


; SPACE  FOR  7  CR  BUFFERS  OF 
;S0  BYTES  OR  7  LP  BUFFERS  OF 
; "LPSIZE"  BYTES 

;END  OF  conn  BUFFER  REGION 

;HFC  RECORD 

; MARKS  END  OF  HORIZONTAL  FORMAT  RECORD 


.:  POINTER  TO  BLOCK  WhEPE  XM I T  CMMDS  mRE  PARSED 

;LAST  parsed  XM I T  FILE  IS  MARKED  BY 

;  A  ZERO  IN  THE  FiPST  WORD  FOLLOWING  IT 


;END  OF  FILE  BLOCK 


;LPST  LOC  OF  XMIT  FaE  STORAGE  REGION 

;  POINTER  T'.  NE.-T  RECEIVE  COMMAND 

;LAST  PARSE  PECV  FILE  IS  MARKED  BY 

;  A  MINUS  ONE  IN  THE  FIPST  WORD  FOLLOWING  IT 

;A  ZERO  MAPr:  THE  LAST  FILE  ENTRY  FOP  PTll 


N      I 
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connijNicfiTioN  buffer  stoppge 

^^13  .  ENDC 

420  .  IF   DF     RSX 

4-1  .  BLKB       S.  FNB+RCl/SWT-2 

H22  COOOGO                                                         .  REPT       NRCVSF 

423  .  BLKB        S   FNB 

42H  .  BLKB   RCUSUT 

h:6  .  ENDM 

H2b  006732  177777  PCUSE;  ;   WORD   -1            ; LPST  LOC  OF  PECV  FILE  STOPPGE  REGION 

427  .  ENDC 

428  ;  CONTROL  BLOCK  FOR  COriMOND  STRING  INTEPPPETEP  'CSl) 

429  .  IF  DF   RTll 

430  FILDES: 
4-1  KBiBUF.  ,  BLK9   80. 
H32 

433  ,  GLOBL   PTENO 
H34 

435  PTEND:    WORD   0       ;EOF  FLAG  FOR  RERD 

UZb 

43S  .  SBTTL   READ  PPROMETEF  BLOCK 

43? 

uun  

441  ;    PPPP^^E;■EP    BLOCK    FOP    .  PEPD   E'1T 

^^2  .  Gt  nPi       "^lOBLK 


472 


44^.  FEDBLK:  .  BYTE   0  ;  CHPNNEL 

44E  .  BYTE    10  .FUNCTION  iPEPD) 

4^b  .WORD   0  ^BLOCK  «  FOP  PEPD 


BYTE 

0 

BYTE 

10 

WORD 

0 

WORD 

0 

WORD 

400 

WORD 

0 

447  .WORD   0  ,BU«^FER  FOR  TPPNSFEP 

'*4S  .  WORD   400  ;  WORD  COUNT 

^^^9  ,       .  WORD   0  ;TYPE  OF  PEPD 

4i^0  ;0  -  PEPD 

451  :  1  -  PEOOU 

^S:  ;uTHEP  IS  COnPLETlON  POUMN* 

uC7  ^ 

^  -I  -•  /tf>'ftr/tf/titttitti>'tt>it/)if!/irtfi 

UE.4 

h65  .  GLOBL   BLKSflV^UPDSPV 

457 

4r^  BLKSPV:  .WORD   0  ; STOPPGE  FOP  CUPPEHT  BLOCK  FOR  XM I T  (PVlJ 

4b^  WPDSPV:  .WORD   0  ; STOPPGE  FOP  CUPPENT  WORD  TO  XMI T 

4bC 

^bl  .GLOBL   SPVEST,S0l'BLK.L0K6LK.0BLKPE£DNT 

4b2   ^ 

'-=b3  SPUES  f:  .  WORD   0 

4b4  '   ;  i   ' 

4bb  ;LOOKUP  PPPPHETER  BLOCK  FOP  EUT  CRLL  .LOOKUP 

4b7  LOKBLK:  .BYTE   0  ; CHPNNEL 

4bS  .  BYTE   1  ; FUNCTION  CODE 

-»b?  .  WORD   C  ;DE\<BLK 

4:'C  .  WORD   0  -COUNT 


'/////»•//    ,  ///.»/'/•/''/».'-».'///.•////////// 


4^3  ; 

4^5  ;'sPbEST  PPPhMETEP  BLOCK  FOP  EHT  CPLL  .  ShuESTPTUS 


/////.'/// 


^.^lSi?l!ffy^la5^:^^5gS35^^L^5a5:S^SgsSggigsg588=sg=gsggSg'■gg8g=tK=^ 
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COniilJNICRTION  BUFFER   STORRGE 

m76 

^^^^  SRVBLK;    .  BYTE        11  ; CHANNEL 

l^^S  .  BYTE        5  .-FUNCTION  CODE 

l'^^^  .  UORD       0  ;POINTER    TO  SflUEST  BLOCK 

lucn  

'    -^  ''''''''/■'''/''//'////////////////////////////// 

IHSl  ; 

14S2  ; 

1  UC7  

1^8^  ;DSTflTUS  PflRflflETER    BLOCK   FOR   EflT   Cfii:   .  DSTPIT 

mSB  ; 

1426  DBLK;         .  UORD   0,0 

I'+S?  PESDNT:     .WORD   G,  U  ;HflN[LEP    ENTRY   POINT 

IHSS  ; 

ms'5  

1490  ENDC 

14?1  IF    DF      P^y 

m9:   00b734  FILDES-.BLKB  C    '' i  Zt 

1493  EVEN 

m9^  007010  KBIBUF:  BLKB    SO 

149':  ,  ENDC 

m9H 


pcspsxn  Fool       MfiCRO  nno^    oe-DEC-??  08: 21    poge  52 
connuNiCRTiON  buffer  storrge 


C  2 


m98 

.  IF   DF     RSX 

1499  0002U7 

.  PSECT     riESfiG2 

ISOO  000247 

122 

112 

105 

PRflTfi; 

.ASCII      "RJE>«I" 

000252 

076 

052 

052 

1501 

000255' 

PREND=. 

1502 

000005 

PRriTL  =  PREND-PRriT9-l 

1503 

.  EVEN 

1504   007130 

.PSECT     MRIN 

15G5 

.  ENPC 

150b         001206'  .  END  LININT 


— , 1 
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D 

2 

— 1 

SYMBOL 

TRBLE 

RCK 

OOOOHO  G 

conoD 

!:-|307oR 

003 

DMYNC  = 

000000 

F.  FflCC  = 

000043 

JOiNT 

002722R 

003 

RCKPEN 

00m70RG 

003 

COMERP 

0G227bRG 

003 

DSSYNfls 

000000 

F.  FFBY= 

000014 

JOINTI 

003272R 

003 

fiSPOUT= 

tttttt   G 

CR 

000G15 

EBCHPN 

0033t2R 

003 

F.  FNRMs 

000110 

JOINTX 

003304R 

003 

RSSGNX 

001505RG 

003 

CRBRSX 

G0162HRG 

003 

ELRTCH 

00m71RG 

003 

F.  FNB  = 

000102 

K6IBUF 

007010RG 

003 

fl<tSCHK  = 

000000 

CRBFRV 

OOI&GIRG 

003 

EMTERR 

001320R 

003 

F.  FTYP  = 

00011b 

K4$CNT= 

172542 

«SSCPS= 

000000 

CROUT 

0Glb22RG 

003 

EMTGD 

001246R 

003 

F.  FVES  = 

000120 

K5$CSR= 

172540 

R%%NSI= 

OnoOOO 

CRC'JTX 

GQlblbRG 

003 

EMTGET 

001256RG 

003 

F.  HIBKs 

000004 

KMLDC  = 

000024 

RS%PPI= 

000000 

CSIERR 

0G2HGbRG 

003 

EMTINT 

001272RG 

003 

F.  LJN  = 

000042 

K$ITPS= 

000764 

R%%TRP= 

000000 

CS.  DIF  = 

G0GGG2 

EMTPUT 

001234RG 

003 

F.  ri3CT= 

000064 

L09DB  = 

OOOOQO 

BRDCS 

G02^00R 

003 

CS.  DVF  = 

GGGGG^ 

EMTTin 

001306RG 

003 

F.  nBCl  = 

000055 

LD5DK  = 

000000 

BRSELN= 

000000  G 

CS.  EQU= 

GGGGHO 

ENBPRR 

0041 30RG 

003 

F.  MBFG= 

OOGOsb 

LC$DS  = 

000000 

BDFfllL 

002fclbP 

003 

CS.  INP  = 

OGOGGl 

ENDPEN 

001472RG 

003 

F.  NRBQ: 

000024 

LD5DT  = 

000000 

BiNEOT- 

177^6?  G 

CS.  nOR  = 

000020 

ENQM 

004124R 

003 

F.  NREC  = 

000030 

LD$LP  = 

000000 

BINESC= 

0000^7  G 

CS.  NMF  = 

000001 

ENQPRR 

004144R 

003 

F.  OVBS= 

000030 

LDIMM  = 

000000 

B !N!TB= 

000037  G 

CS.  OUT  = 

000002 

ENTRY 

0017b4RG 

003 

F.  RRCC  = 

0000 lb 

LD5PP  = 

000000 

PINTTD^ 

02fc^02  G 

CS.  WLD= 

000010 

EOTFLG 

00l47bRG 

003 

F.  RRTT= 

000001 

LD5PR  = 

000000 

B  1  N^   : 

00036^  G 

CTEMT  = 

tttttt   GX 

EOTPEN 

001474RG 

003 

F.  RCNri= 

000034 

LF 

000012 

B  1  S  t  N 

002B72R 

003 

CTIO 

002330P 

003 

EOTSEQ 

004lb0RG 

003 

F.  RCTL  = 

000017 

LI  MINT 

00120bRG 

003 

B1SIN2 

00325fcP 

003 

C55CKP= 

000000 

ERRHflN= 

******  G 

F.  RSIZ= 

000002 

LPSIZE= 

00020b  G 

BISPRR 

00m52RG 

003 

C5S0RE= 

OOHOOO 

e:c   = 

000033  G 

F.  RTYPr 

000000 

LUKUP  = 

******  G 

BPTINS 

0013b2R 

003 

CSSRSH= 

1775bi4 

ETXFLG 

001475RG 

003 

F  SEQN= 

000100 

LS5RSG= 

000000 

BUFOVF 

002212R 

003 

C.  BODE  = 

tttttt   GX 

EXBHPN 

003332R 

003 

F. SPDV= 

000072 

LS5DRV= 

000000 

CHRNL 

G03752RG 

003 

C.  CriLD= 

000002 

EXPREC 

00b27bR 

003 

F.  SPUN= 

000074 

L55P11= 

000001 

CHRNL2 

0037bORG 

003 

C.  DEVD= 

00000b 

ES5nvc= 

000000 

F.  STBK= 

00003b 

L5511R= 

000000 

CHRRL 

003770RG 

003 

C.  DIRD= 

000012 

E55NSI= 

000000 

F.  UNIT= 

00013b 

ncB 

001463RG 

003 

CLOSER= 

ttttn   G 

C.  DSDS= 

00000b 

E5SPER= 

000000 

F.  URBD= 

000020 

MDMPRR 

004172R 

003 

CLOSET= 

tttttt   G 

C.  F!LD= 

00001b 

E55XPR= 

000000 

F.  VBN  = 

0000b4 

MDTRY 

002474R 

003 

CLRRLL 

0G3b3bR 

003 

C.  MKW1  = 

000024 

FDBIN 

00003bRG 

003 

F.  VBSZ= 

OOOObO 

MEMPRO 

00134bR 

003 

CLRMST 

GG3bH2RG 

003 

C.  nKW2= 

00002b 

FDBOUO 

00017bRG 

0C3 

GETENT 

001b22RG 

003 

MODE 

00mb5RG 

003 

CLRRSW 

003710RG 

003 

C.  SGETr 

******  GX 

FDBOUl 

00033bRG 

003 

GETEXP 

001774R 

003 

MSGD0N= 

******  G 

CMBFfiV 

OG1502RG 

003 

C.  SIZE  = 

000054 

FD.  CR  = 

******  GX 

GETOl 

001b54R 

003 

MS5CRB= 

000124 

CMBFPN 

GG1503RG 

003 

C.  SPS  = 

******  G 

FD.  PLC  = 

******  GX 

GNEMDE 

003350R 

003 

n5SCRX= 

000000 

CMBLST 

GG152bRG 

003 

C.  SPUT= 

******  GX 

FILDES 

00b734RG 

003 

GORBRT= 

******  G 

MS5EXT= 

000000 

CMBriRX= 

GGOOlb  G 

C.  SREG= 

******  GX 

FLRGS 

0014b2RG 

003 

GOGETE 

G03514R 

003 

MS5FCS= 

000000 

CriBUFE  = 

OGbObbRG 

003 

C.  SRES= 

******  GX 

FSTFIL= 

******  G 

GOTG 

0027b4R 

003 

M5SriGE= 

000000 

CMBUFl 

GG42mRG 

003 

C.  STRB  = 

******  GX 

FSTGET= 

******  G 

GOTGET 

OOlblbRG 

003 

MSSMUP= 

000000 

CnBUF2= 

GGHH22R 

003 

C.  STRTr 

000001 

F55LVL= 

000001 

GS5TPP- 

000000 

M5S0VR= 

OOOOGO 

CriBUF3= 

GG4b30R 

003 

C.  STIN= 

******  GX 

F.  RCTL= 

00007b 

G55TTK= 

000000 

NRK   = 

000100  G 

c^BUF^= 

0GB03bP 

003 

C.  SWRD= 

000022 

F.  RLOC= 

000040 

HFCRCT 

OOmbbRG 

0G3 

NRKCNT 

G0151bRG 

GG3 

CriBUFS= 

0052M^R 

003 

C.  TYPR  = 

000000 

F.  BBFS= 

0000b2 

HFCREC 

OObObbRG 

0G3 

NRCVSFr 

000000 

CnBUFb= 

0G6HB2R 

GG3 

OEVRT 

OOmBbRG 

003 

F.  BOB  = 

000070 

IE.  EOF  = 

******  GX 

NTRNSF= 

000002 

CMBUF?= 

GGSbbOR 

GG3 

DFBLK 

OOOOOORG 

003 

F.  BGBC  = 

000057 

ILLINS 

00142bR 

003 

N5SLDV= 

000001 

CMC LSI 

0G15b2RG 

003 

DFNLP 

000H7bRG 

003 

F.  BKDN= 

00002b 

INCRCV 

001477RG 

003 

NS%nov= 

000021 

CMFLST 

OOlbOORG 

003 

DIE 

00220bRG 

003 

F.  BKDS= 

000020 

INITRL= 

******  G 

N.  DID  = 

000024 

CMPRR 

0GH20GRG 

003 

DLEEOT 

00mb4R 

003 

F.  BKEF  = 

000050 

INITF 

0014b7RG 

003 

N.  DVNn= 

000032 

CMPLST 

G01B^^RG 

003 

DLEPRR 

0041 3bR 

003 

F.  BKP1  = 

000051 

INPCNT 

001514RG 

003 

N.  FiD  = 

000000 

cocon 

0G33H2R 

003 

DONE   = 

******  G 

r .  BKST= 

000024 

INPCPL= 

******  G 

N  FNRI1= 

00000b 

coconi 

GG3b32R 

0G3 

DSCHRN 

003502R 

003 

F.  BKVB= 

0000b4 

lOERR 

001510RG 

003 

N.  FTYP  = 

000014 

cocon2 

0G3H3HR 

003 

DSCOUT 

003520R 

003 

F.  CHR  = 
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21-389 

«21-423 

*42-1113 

EMOn 

00m2H 

P 

»50-1299 

50-1317 

Er^'iPPP 

004144 

P 

33-844 

«50-1315 

EfHRY 

001764 

RG 

23-518 

*23-579 

23-580 

23-583 

823-589 

EOTFLG 

001476 

PG 

21-390 

821-430 

*42-1078 

*42-1115 

EOTPEN 

0014  74 

RG 

21-390 

821-426 

*42-1114 

EOTSEQ 

004160 

PG 

*37-1002 

50-1297 

850-132S 

EPPHRN 

=    ititn 

G 

5-141 

48-1265 

ESC 

=   000033 

G 

13-260 

813-263 

ETXFLG 

001476 

PG 

21-390 

8':1--42S 

EXBHRN 

003332 

P 

»3S-1019 

4S-1245 

EXPREC 

006276 

P 

12-200 

12-204 

12-219' 

^51-1385 

ESSOVC 

=   000000 

SI -90 

1-203 

1-33S  * 

ESSNSI 

000000 

«1-91 

E%%PER 

■-   000000 

nl-92 

ESSXPR 

=   000000 

.n\-SS. 

FDBIN 

000036 

PG 

nl 2-199 

25-731 

25-731 

*38-1032 

*3S-1033 

*38-1040 

*3S-1041 

FDBOUO 

000176 

PG 

;i:-:o3 

25-732 

25-732 

44-1144 

FDBOUl 

000336 

PG 

JJ12-20S 

.->r       "^  -^  "^ 

25-733 

44-1147 

FD.  CR 

=  ntttt 

GX 

12-206 

12-221 

43-1134 

FD.  PLC 

=  tttttt 

GX 

12-200 

12-204 

12-219 

FILDES 

006734 

RG 

2S-761 

2S-761 

2S-775 

36-953 

51-13b5 

851-1492 

FLRGS 

001462 

RG 

21-3SS 

821-400 

.*33-S42 

33-S47 

37-9S2 

*3S-10!5 

*38-inife        *3S-1020        *42-in6 

FSTFIL 

=    ****** 

G 

5-139 

33-S29 

FSTGET 

=   ****** 

G 

5-139 

33-SMO 

F%%LPP 

=    ****** 

1-373 

F%%Ll'L 

=   000001 

«1-31 

r.  DFNB 

=   000046 

12-202 

12-207 

1  -->_•">  ■•->  n 
I  ^—  i^  ^ il 

F.  LUN 

=   00004  2 

12-202 

12-207 

12-222 

F.  MBCT 

=   000054 

12-201 

12-205 

12-220 

*3S-1033 

*3S-1041 

F.  PI^CC 

=    000016 

12-200 

12-204 

12-219 

F.  PPTT 

=   000001 

12-206 

12-221 

F.  PSIZ 

=   000002 

12-206 

1  O-  '^'7  1 
1  4j     ij^  1 

*3S-1032 

.I3S-104G 

F.  RTVP 

=   000000 

12-206 

12-221 

F.  URBD 

=   000020 

12-200 

12-200 

12-204 

12-204 

12-219 

12-219 

GETENT 

001622 

PG 

23-51S 

823-542 

23-634 

23-641 

25-729 

33-S52 

36-972 

GETEXP 

001774 

R 

23-5S2 

823-600 

GETOl 

001654 

R 

23-544 

823-547 

GNEriDE 

003350 

R 

n3S-102S 

4S-125b 

GOflBRT 

=   ****** 

G 

5-140 

42-1066 

GOGETE 

003514 

R 

3S-101_4 

3S-1019 

3S-102S 

3S-1U37 

42-1059 

842-10^5 

GOTG 

002764 

P 

33-S27 

833-S52 

GOTGET 

001616 

PG 

823-53S 
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SYMBOL 
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GSSTPP 

- 

OOOGGO 

M-54 

GSSTTl- 

: 

000000 

M-55 

HFCflCT 

001466 

RG 

21-389 

«21-416 

HFCREC 

006066 

RG 

51-1364 

«61-1380 

IE.  EOF 

z 

tttttt 

GX 

23-633 

ILLINS 

00m26 

R 

12-241 

«14-345 

INCRCV 

oom?? 

RG 

21-393 

«21-432 

IN'.TflL 

r 

ntttt 

G 

5-138 

14-308 

1  N  1  IF 

001467 

RG 

21-389 

»21-418 

*33-851 

1  NFC NT 

0015m 

RG 

21-392 

»21-467 

*42-1110 

INP'IPL 

- 

tttttt 

G 

5-141 

36-970 

lOERP 

001510 

RG 

21-392 

»21-453 

42-1062 

*42-1064   *42-10S8 

to  ST 

00067H 

R 

12-225 

812-229 

2Z-62S 

23-630     23-633 

iOTlNS 

001376 

R 

12-239 

814-343 

^0.   KlL 

z. 

****** 

GX 

12-226 

iO.  PLB 

- 

****** 

GX 

12-225 

10.  ULB 

- 

****** 

GX 

12-224 

12-227 

ITBn 

004126 

RG 

50-1297 

850-1301 

ISSRRR 

- 

000000 

»1-61 

ISSRDN 

— 

000000 

«l-36 

JMPTBL 

003136 

R 

23-586 

836-967 

JOINT 

002722 

P 

«33-S4S 

37-1010 

JOINT! 

003272 

n 

37-1004 

^37-.       "^ 

JOINTX 

003304 

R 

37-lOOS 

837-1010 

KBIBUF 

007010 

RG 

12-225 

51-1365 

851-1494 

KSSCNT 

= 

172542 

nl-102 

KSSCSR 

z 

172540 

ftl-lOl 

KSSLDC 

- 

000024 

S  1  -  1 04 

KSSTPS 

= 

000764 

«1-103 

LDSDB 

r 

000000 

»l-10b 

LDSDK 

— 

000000 

»1-109 

LD%DS 

— 

000000 

fil-112 

LDSDT 

- 

000000 

»1-114 

LDSLP 

— 

000000 

Sl-116 

LDsnn 

- 

000000 

«1-119 

LDSPP 

- 

000000 

»1-121 

LDSPR 

- 

000000 

»1-122 

LF 

- 

000012 

nl3-277 

L ININT 

001206 

RG 

14-285 

814-300 

52-1506 

LP3I2E 

- 

000206 

G 

13-250 
51-1375 

813-251 
51-13S0 

50-1325 
B1-13S5 

51-1369    Bl-1270 

LUKUP 

z 

tttttt 

G 

5-138 

30-S13 

LSSRSG 

z 

000000 

};i-62 

LSSDPV 

~ 

000000 

Sl-51 

L5%F11 

z 

000001 

^\-\\S 

LSSSIl 

r 

tttttt 

1-311 

LS511R 

~ 

000000 

Jtl-117 

MCB 

001463 

RG 

21-3SS 

821-407 

*3S-1029 

*3S-1038 

MDMPRP 

004172 

R 

30-791 

30-792 

850-1337 

MDTRY 

002474 

R 

30-7SS 

830-791 

riEnPRO 

001346 

R 

12-237 

814-341 

MODE 

001465 

RG 

21-3SS 

821-412 

34-S70     36-962 

2S-758 


51-in 


51-1372 


51-1373 


51-1374 


42-1060   *42-1109 
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MSGDON 

=  tttttt 

G 

5-140 

36-971 

nSSCPB 

-   000124 

«1-135 

M^SCPX 

=  000000 

»1-131 

MSSEXT 

=  000000 

»l-99 

MSSFCS 

=  000000 

»l-30 

MSSMGE 

=  000000 

«l-37 

nssnup 

=  000000 

Ul-43 

MSSOUP 

=  000000 

81-130 

NPIK 

=  000100 

G 

5-143 

85-149 

NOI-CNT 

001516 

RG 

21-393 

821-468 

*42-llll 

nPCVSF 

=  000000 

»2-5 

5-116 

51-l'i22 

riTPNSF 

=  000002 

«2-4 

5-112 

51-1401 

r^SSLOl' 

=  000001 

«1-129 

Mssnoi/ 

=  000021 

81-60 

N.  D'/NM 

=  000032 

12-198 

12-223 

tl  FNfin 

=  OOOOOfc 

12-198 

12-223 

N.  FTYP 

=  000014 

12-198 

12-223 

N.  UNIT 

=  000034 

12-198 

12-223 

ODDRDD 

001332 

P 

12-216 

814-340 

OFFHflN 

003546 

PG 

42-1052 

842-1085 

4S-1241 

OFHRNl 

003576 

R 

14-309 

842-1090 

ONLHRN 

003152 

RG 

37-97S 

837-979 

48-1243 

ONLINE 

001460 

PG 

21-3SS 

821-396 

23-671 

30-7S3 

*I7-9S0 

OPNFLG 

001513 

PG 

21-393 

821-458 

PfiP%%% 

=  000027 

825-731 

25-731 

825-"32 

25-732 

825-^33 

PENTER 

=  tttitt 

GX 

34-891 

POINT 

=  ****** 

G 

5-139 

33-838 

POINTl 

000700 

PG 

812-230 

P0INT2 

000702 

RG 

812-231 

P0INT3 

000704 

RG 

812-232 

PREND 

=  000255 

R 

852-1501 

52-1502 

PRGERR 

002232 

R 

825-730 

ZZ-2E>Z 

36-967 

PRINTX 

001507 

PG 

21-392 

821-450 

PRMTfl 

000247 

R 

12-224 

852-1500 

52-1502 

PPMTL 

=  000005 

23-670 

852-1502 

PROMPT 

002142 

Rb 

23-539 
34-895 

23-545 
37-997 

823-669 

25-728 

25-739 

PS 

=  177776 

85-125 

FUTEPP 

002770 

D 

33-845 

33-S50 

833-S53 

F'SSD^O 

=  000000 

81-100 

81-105 

P'^SGMX 

=  000000 

81-42 

PSSLfiS 

=  000000 

81-40 

FSSPll 

=   000001 

81-123 

PS%P4B 

=  000000 

81-97 

P%%RFL 

=  000000 

81-53 

PS5RTY 

=  000000 

81-93 

PSSRll 

=  000001 

81-124 

PS5SRF 

=  000000 

81-41 

QBLKM 

004114 

RG 

*3S-1044 

4<5-12Sn 

84?-i:S6 

QCOOE 

004120 

R 

*3S-1021 

849-12SS 

QC  ON  T 

003310 

P 

837-1011 

42-1117 

QDPBI- 

000614 

P 

812-226 

23-652 

42-1058    42-1073   *42-10S6 


25-733    828-761 


:s-76i 


30-789 


30-794 


33-821 


33-831 
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REFERENCES 

QDPBn 

0GG6HH 

RG 

M2-227 

23-660 

*28-774 

*28-775 

28-776 

QOPBP 

000564 

R 

M2-225 

23-676 

2fc-761 

QDPBW 

00053H 

R 

M2-224 

23-669 

QENO 

00H\24 

RG 

49-1280 

«49-1290 

49-1291 

49-1292 

'JLENIH 

=   000020 

G 

49-1280 

1149-1292 

QLNGTH 

=   000030 

G 

49-1280 

»49-1291 

QMOOE 

oomio 

RG 

*42-lll7 

49-1280 

849-1284 

QONL 

004034 

R 

37-981 

848-1242 

QSTPIT 

004104 

7G 

*37-981 

*42-1090 

49-1280 

849-1282 

49-1291 

49-1292 

QUEHRN 

=   ittttt 

G 

5-141 

48-1263 

'J*»SOPT 

=   000017 

»l-59 

ij.   lOFN 

=   000002 

12-224 

12-225 

12-226 

12-227 

Q.   lOPL 

=   000014 

*23-661 

*23-662 

*23-67C 

*23-673 

28-761 

*2S-774 

*28-775 

PPDCy 

=    ****** 

GX 

36-954 

PflTT 

004006 

RG 

«45-119S 

PRTTl 

004024 

PG 

*43-li:4 

845-1211 

PCHN 

0nH002 

RG 

*42-10S5 

845-1196 

PCHNl 

004020 

RG 

»45-1209 

PCi.'BLK 

006656 

PG 

34-869 

42-liJ95 

51-1365 

851-1407 

51-1407 

PCVCNT 

001512 

RG 

21-394 

821-456 

RCVEPP 

001174 

RG 

14-285 

814-293 

RCl'SE 

006732 

RG 

S51-1426 

PCVSWT 

-    000014 

G 

«45-1200 

51-1421 

pcvsm 

=   000014 

G 

43-1127 

845-1213 

Rcnm 

=   000177 

G 

13-250 

813-257 

RCVTMT 

001200 

PG 

14-286 

814-295 

RECSIZ 

001520 

PG 

21-393 

821-469 

t38-in30 

I3S-1043 

REC31 

003756 

PG 

n44-114b 

RECS2 

003764 

RG 

844-1149 

RESP 

004153 

PG 

50-1297 

850-1323 

RPEND 

003056 

R 

34-S71 

834-S95 

RPENDl 

003072 

R 

3i*-S92 

834-S96 

RSVDIN 

001412 

P 

12-240 

814-344 

RSX 

=   000001 

5-27 

5-99 

5-122 

5-150 

b-159 

3-137 

12- 

-196 

14-288 

14-302 

14-339 

20-379 

23-537 

23-612 

25-730 

23-757 

28- 

-769 

33-821 

34-S61 

34-890 

36-952 

^:^-9SR 

37-99b 

33-1031 

33-1039 

42- 

-1094 

42-1104 

43-1120 

44-1143 

45-1 ISS 

51-1334 

^l-13'^9 

51-1403 

51-1420 

51- 

-1491 

52-1498 

psxiin 

=   OOOGOl 

82-3 

5-28 

5-35 

5-100 

23-54S 

23-613 

23-622 

23- 

■625 

23-653 

PTMOE 

003404 

P 

83S-1037 

4S-125S 

PT,P 

004004 

RG 

845-1197 

P  T  YP  1 

004022 

PG 

*43-1133 

845-1210 

RTll 

=    ****** 

5-32 

5-96 

5-144 

6-171 

s-isi 

20-361 

21-461 

21- 

■472 

23-520 

23-575 

23-600 

23-oS9 

25-736 

28-747 

30-793 

33-323 

34- 

-357 

34-873 

35-S9S 

36-94:- 

37-985 

37-992 

42-1053 

42-109:^ 

42-1101 

44- 

■1155 

45-1216 

4S-1266 

50-1354 

51-1390 

51-14  13 

51-1429 

PVflL 

004010 

RG 

845-1199 

RHRLl 

004026 

RG 

*4  3-1132 

84B-1212 

RVIPEN 

001500 

PG 

21-390 

821-Ui5 

PSSDER 

=   000000 

81-Sb 

RSSEIS 

=    ****** 

1-35S 

PSSEyv 

=   000000 

81-79 

PS'tJPO 

=   000000 

81-107 

M     2 
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PSSJPl 

=   OOGOOl 

«1-108 

PSSJSl 

=   OGGGLl 

I»1-113 

PSShUC 

=   OGOOOO 

«1-H0 

PSSKll 

=   000001 

«1-111 

PSSNOC 

=   000003 

81-80 

PSSNDH 

=   000226 

81-81 

PS^NDL 

=   000001 

81-82 

PSSSND 

=   000000 

81-56 

81-94 

PSSllM 

=   000000 

81-136 

P    VflP 

=  ntu% 

•      < 

12-206 

12-221 

43-1133 

SIBEFN 

=    30G0MC 

85-156 

23-563 

23-5i5 

23- 

-570 

23-639 

:.LEEP 

002060 

P 

2:-621 

823-638 

SNDEOT 

003476 

RG                        : 

42-1052 

42-1061 

42-1063 

842- 

■1066 

^STVtC 

000706 

R 

812-234 

14-303 

STEQM 

004162 

R 

*37-10Gl 

850-1329 

SThLMT 

000732 

P 

814-289 

23-543 

*23-546 

STKSET 

0011 "4 

PG 

14-2S5 

814-292 

14-301 

STOREX 

OOlBOb 

RG 

21-392 

821-449 

SUPBN 

0037-^6 

RG 

845-1194 

45-1200 

SWRB1 

OOHOm 

RG 

43-112S 

8  45-1207 

45-1213 

SWPDF 

004012 

RG 

845-1201 

S"REN 

003774 

RG 

845-1192 

SWRSL 

00400C 

PG 

845-1195 

SWPSUP 

G01S22 

PG 

21-393 

-21-4  70 

Si^RSl 

004016 

PG 

845-120S 

SWTBN 

003772 

.'G 

845-1191 

45-1193 

SYSERR 

002076 

R 

823-642 

23-b-5 

23-677 

SSSWPC 

=   000036 

81-S3 

SSSWPR 

=   OOOOOB 

81-S4 

SSSWRG 

=   000000 

81-S9 

S%%YDF 

=  ttttu 

1-1 

1-43S 

SSSYSZ 

=    024000 

81-9S 

S.  BFHD 

=   000020 

12-228 

12-22S 

S.  FDB 

=    000140 

12-199 

12-199 

12-203 

12- 

■203 

12-20S 

i:-20S 

S.  FNflM 

=    000006 

12-198 

12-19S 

1    w  -  »-  ^  J 

12- 

'? '?  7 

S.  FNB 

=    00GG36 

12-198 

12-223 

51-1400 

51- 

1404 

51-1404 

51-1421 

S.  FTYP 

=    000002 

12-198 

12-198 

12-22" 

12- 

n  n  f 

S.  I'TTR 

=   000002 

1 2-234 

TOBSST 

000714 

PG 

12-234 

«  1  i,-i.ob 

TPGEl 

000010 

R 

14-340 

814-340 

TPGEIO 

000103 

R 

23-545 

823-545 

TPGEll 

OOClll 

P 

23-635 

823-635 

TflGEi: 

00013b 

P 

23-642 

823-642 

TflGE13 

000146 

P 

25-728 

825-"22 

TRGtm 

000156 

P 

25-735 

825-735 

TPGEIB 

000165 

R 

25-739 

825-^39 

TflGElb 

000176 

R 

30-789 

830-7S9 

TflGEl? 

000211 

p 

30-794 

830-794 

TRGE2 

000020 

R 

14-341 

814-341 

TRGE20 

000226 

R 

33-S31 

833-S31 

TPGE21 

000237 

P 

34-895 

834-S95 

TRGE22 

000247 

P 

37-991 

837-991 
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TQGEZ 

000027  R 

14-342 

«14-342 

TPGEH 

000036  R 

14-343 

i;i4-343 

TRGE6 

OOOOHb  R 

14-344 

«14-344 

TPGtb 

00005B  R 

14-34B 

«14-345 

T-iGE? 

OOOOfeB  R 

14-346 

»14-346 

TRGnJ"" 

=   000022 

«2-8 

14-340 

«14-340 

14-340 

14-341 

814- 

-341 

14- 

•341 

14- 

-342 

814- 

•342 

14-342 

14-343 

»14-343 

14-343 

14-344 

814- 

-344 

14- 

-344 

14- 

•345 

814- 

-345 

14-34B 

14-346 

«14-346 

14-346 

23-545 

823- 

-545 

23- 

-545 

23- 

-635 

823- 

■635 

23-63B 

23-642 

»23-642 

23-642 

25-728 

825- 

■728 

25- 

-728 

25- 

-735 

825- 

-736 

2B-73B 

25-739 

»2B-739 

25-739 

30-789 

830- 

•789 

30- 

-789 

30- 

-794 

830- 

-794 

30-794 

33-831 

«33-831 

33-831 

34-895 

834- 

-895 

34- 

■895 

37- 

-991 

837- 

-991 

37-991 

TRGl 

000000  R 

14-340 

14-340 

814-340 

ThG.C 

OOOObB  P 

23-B4B 

23-B4B 

823-B45 

iPGl 

000103  R 

23-b3B 

23-63B 

823-635 

TRGl. 

000111   R 

23-642 

23-642 

823-642 

TPG13 

00013b  R 

2B-728 

25-728 

825-728 

TQGm 

000 mb  R 

2B-73B 

2B-735 

825-735 

ThClE. 

000 15b  P 

2B-739 

25-739 

825-739 

TRGlb 

000 IbB  P 

30-789 

30- "^89 

830-:^S9 

TRG17 

000 l^b  P 

30-794 

30-794 

830-794 

TfiG2 

000010  P 

14-341 

14-341 

814-341 

TRG20 

000211    R 

33-S31 

33-831 

833-831 

TRG21 

00022b  P 

34-S<^c. 

34-895 

834-895 

TflG22 

000237   P 

3"-99l 

37-991 

837-991 

TRG3 

000020  P 

14-342 

14-342 

814-342 

TflG4 

000027  P 

14-343 

14-34  3 

814-343 

TRGB 

00003b  R 

14-344 

14-344 

814-344 

TRG6 

00O0H6  R 

14-34B 

14-345 

814-345 

TRG7 

OOOOBB  P 

14-346 

14-346 

814-346 

TRSKRD 

=    ttttti     GX 

23-562 

23-571 

23-617 

TDONE 

00m73  RG 

21-390 

S21-425 

*33-S22 

TERHRN 

0034H2  PG 

42-10B2 

«42-in5S 

4S- 12B1 

TEPPRP 

00H20b  R 

4  2-1089 

«50-1349 

TEPPP 

002B30  R 

S30-79B 

TEPl 

=    iftttti      Li 

5-142 

42-1079 

TPc^SBL 

OObBOM   PG 

30-7S6 

30-^95 

33-SZ3 

42-1100 

51-13bU 

nEl- 

!3S7 

51- 

13S7 

TRNSE 

OObbBH   RG 

;51-1405 

TPNSH 

oo:h32  P 

28-766 

«30-7S3 

TPNSB 

002540  P 

30-793 

»30-797 

TPN'3b 

002444    p 

30-784 

;30-7Sb 

TRNS7 

0024  70   R 

»30-790 

3C-S14 

TPOKT 

002bB2  P 

33-830 

*»  "^  "^      ."^  "^  / 

n  jj-b_^b 

TPPINS 

001442  P 

12-242 

nl4-34b 

TPPTNF 

001504   PG 

«21-44^ 

23-518 

tZZ-S23 

*u:-i072 

*42-in7b 

TRYREC 

002774   R 

2S-767 

«34-S5^ 

TTEPFN 

=    000020 

n5-155 

TTKLFN 

=    000004 

n5-153 

TT"'?FN 

--   000002 

^{5-152 

Ti'^DFN 

=   000010 

S5-154 

23-620 

23-626 

23-639 

TUPNRP 

00323b  PG 

37-9^8 

nZ:--99S 

TURNON 

00J232  P 

37-989 

«37-9?7 

fwmwrmms^^m  'Hpir  ^ 


xc::£a;gtBggtsHxfc^£3£&^ctg;cai5ErgAi;e:Bi^^ 


:a:»S;ty!g:Spss=;!gs:si£s!ffia=fegtsigSttoatat^=Sggs5gSg5gs552gas5gS=g=£=^ 


GET  CRERTED  BY 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VRLUE 

TURNl  003236  RG 

T\/Hd  00m6H  RG 

TXPEN  001511  RG 

TYPMSG  002112  RG 


RG 


TYPMSl 

002120 

TSSflCP 

=  000000 

TSSBTU 

=  000000 

TSSBUF 

=  000000 

T^SCCfi 

=  000000 

T-^SCCO 

=  oooroo 

T<5.^CTP 

--:  000000 

TSt,Cll 

=  GOOOOl 

TSSGMC 

=  000000 

T%%GTS 

=  000000 

TSSJlb 

=  000001 

TSSKnG 

=  000000 

TSSLWC 

=  000000 

TSSMflN 

^  006307 

TSSRNF 

=  000000 

TSSRPR 

=  000000 

TSSRST 

=  000000 

T<=^%RUB 

=  000000 

T^SSYN 

=  000000 

TSSTRW 

=  000000 

TS^VBF 

=  000000 

T.  EFLG 

000022 

UBFCNT 

0012014 

L I  BEEN 

=  000001 

USRTin 

001622 

USSMHI 

=    OOOOHO 

U%%MLO 

=  120000 

USSMPN 

=  170324 

VSSCTP 

=  000400 

XCEP 

=  077H05 

XDEOT 

=  002020 

XEOTS 

=  077404 

XFEPEN 

004100 

XITB 

=  00003" 

XMTERR 

001176 

XMTSWT 

=  000004 

XMTTMT 

001202 

XPflD 

=  000177 

XSTEQ 

=  002402 

XSSOBT 

.-  000000 

%%%flRG 

=  000003 

Si>SGLB 
.  CLOSE 
.  C3!l 


-  iiittt 

-  ****** 
^   ****** 


RG 


RG 


RG 
G 

RG 
G 

PG 


MRCRO     ON  6-DEC-77   AT   08:  22 


G 


REFERENCES 

37-978 

21-388 

21-392 

14-340 

23-642 
«23-660 
?i-63 
«l-45 
?ll-65 
nl-66 
81-67 
81-68 
81-115 
81-69 
81-70 
81-120 
81-52 
81-71 
81-128 
81-46 
81-73 
81-44 
81-75 
81-76 

tt  1  -  /  f' 

81-78 

z3-5bJ> 

14-2S5 
85-151 
823-541 
81-133 
81-134 
81-132 
81-137 
tt  1  J,  -  ^  (  0 
813-272 

13-261 

4S-123S 

13-260 

14-285 
845-1193 

14-286 
813-273 

13-260 
81-85 

It  1  id  —  il!*  il,  H 

tt      1     ij  M  id  O 

it  1  O  -  '7  -^  ^, 

IT    1   iU        <U*J(J 

tt  1  ^-  L^f 

12-224 
25-731 
28-761 


837-1000 

821-411 

821-454 

14-341 
823-652 

25-739 

81-64 


81-72 
81-74 


*23-565 
814-297 

'"^  T  _  C  "?  ^ 

36-969 


50-12^9 

50-1331 
813-271 
848-1270 
813-274 
814-294 

51-1400 
814-296 

50-1332 
813-275 

12-224 
12-225 
12-226 

1  9  -  -^  '">  7 

12-225 
25-731 

2S-7bl 


*33-825 
14-342 
25-728 
30-789 


*23-570 
23-639 


PFIGE 
CREF 


*33-832 
14-343 
25-735 
34-895 


B  3 


33-836 
14-344 
30-794 


37-1007 

14-345 

33-831 


*42-1087 
14-346 
37-991 


23-545 


23-635 


:23-572 


23-618 


*23-626 


37-1002 

E--1328 

50-1301 

51-1404 

51-1404 

37-1001 

50-1329 

812-224 
812-225 
12-226 
12-227 
12-226 
25-732 

12-224 

12-225 

812-227 

1  -?_  907 

1  id  ii  id  r 
i-b  p  J  id 

812-224 

u   4  9  _  -^  0  C 

12-227 

12-234 

25-733 

12-224 

12-225 

812-227 

25-733 

tt  1  ^-  idi,4 

tt  i^-..ib 
1  '">  _  '^ '?  7 

12-224 

12-225 

812-227 

12-224 
12-225 


1 


C  3 

get     created  by  mficro  on  6-dec-77  pt  08  22  prge  10 

symbol  cross  reference  cref 
Stmbol  value       ref:rences 

CSI2   =  *«««*»  G      28-763  28-763  34-862  3»4-862 
.  F IND   =  ******  G      8-188 
.  i^SPCe  =  ******  G      12-228 
PARSE  =  ******  G      8-189 

PCI  =  000336  R      12-198  12-198  »12-198  12-198     12-198     12-198     12-198     12-198    «12-198 

«12-199  12-200  12-200  12-200     12-201     12-202     12-202    1112-203     12-20M 

12-201*  12-20H  12-205  12-206     12-206     12-206     12-207     12-207    »12-208 

12-219  12-219  12-219  12-220     12-221     12-221     12-221     12-222     12-222 

12-223  12-223  «12-223  12-223     12-223     12-223     12-223     12-223    »12-223 

.  .PC2  =  000532  P      812-198  12-198  12-198  812-198     12-198     12-198    812-198     12-198    812-200 

12-200  812-200  12-200  812-200     12-200    812-201     12-201    812-202     12-202 

812-202  12-202  812-204  12-204    812-204     12-204    812-204     12-204    812-205 

12-205  812-206  12-206  812-206     12-206    812-206     12-206    812-207     12-207 

812-207  12-207  812-219  12-219    812-219     12-219    812-219     12-219    812-220 

12-220  812-221  12-221  812-221     12-221    812-221     12-221    812-222     12-222 

812-222  12-222  812-223  12-223     12-223    812-223     12-223     12-223    812-223 

J  -.  _  /?  'J  7 

PC'  =  C0033b  P      8i:-r9S  12-19S  812-223  12-223 


GET 

CRERTED  BT  MRCRO  ON  6- 

DEC-77  RT  08: 

D  3 
22     PRGE  11 

MRCPO  CPOSS 

REFERENCE 

CREF 

nOCPO  NAME 

REFERENCES 

RSPBUF 

«H-28 

B DOFFS 

«12-228 

CPLL 

«l-mH 

86-168 

23-539 

33-811 

37-997 

CRLLR 

»1-170 

CB'.'TES 

» 1 2-200 

12-200 

812-201 

12-201 

12-201 

12-201 

812-202 

12-202 

12-202 

812-204 

12-204 

812-205 

12-205 

12-205 

12-205 

812-206 

12-206 

12-206 

812-207 

12-207 

12-207 

812-219 

12-219 

812-220 

12-220 

12-220 

12-22C 

812-221 

12-221 

12-221 

«12-222 

12-222 

12-222 

CLOSES 

86-163 

826-731 

825-732 

815-733 

CPfiSH 

81-178 

CSIS 

86-161 

86-162 

828-761 

822-763 

834-862 

t 

CSISl 

86-166 

828-761 

CS1S2 

86-166 

28-763 

34-862 

CWOPDS 

812-198 

12-198 

12-198 

812-200 

12-200 

12-200 

812-201 

12-201 

812-202 

12-202 

12-202 

12-202 

812-204 

•2-204 

12-204 

812-205 

12-205 

812-206 

12-206 

12-206 

12-206 

812-207 

12-207 

12-207 

12-207 

812-21? 

12-219 

12-219 

812-220 

12-220 

812-221 

12-221 

12-221 

12-221 

812-222 

12-222 

12-222 

12-222 

812-223 

12-223 

12-223 

DEFSL 

812-228 

DIRSVS 

81-1S6 

DIRS 

86-167 

814-303 

823-639 

823-639 

823-652 

823-663 

823-674 

823-676 

828-776 

DPSTS 

81-19H 

ERROR 

82-9 

823-545 

825-728 

830-794 

8Z3-S31 

ERRORK 

82-16 

14-340 

14-341 

14-342 

14-343 

1U-7UI+ 

14-345 

14-346 

23-545 

23-635 

23-bH2 

25-728 

25-735 

30-794 

33-S31 

37-??l 

ERRORH 

82-32 

25-739 

30-7S9 

34-S95 

ERRORP 

82-H7 

825-739 

830-7S9 

834-S95 

ERRS 

825-731 

825-731 

825-732 

825-"^32 

825-733 

825-733 

FRTRL 

82-53 
825-735 

814-340 
837-991 

814-341 

814-342 

814-343 

nm-zi^H 

S  M-  :wB 

814-346 

823-635 

823-642 

FDRTSfl 

86-164 

812-206 

812-221 

FDRTSR 

86-165 

FDBDFS 

86-164 

12-199 

12-203 

12-20S 

FDBFSfi 

86-164 

12-201 

12-205 

12-220 

FDBKSfl 

86-164 

FDBSZS 

812-199 

12-199 

812-203 

12-203 

8i:-20S 

i:-20s 

FDOFFS 

812-200 

12-200 

812-201 

12-201 

8i2-:c: 

12-20: 

812-204 

12-204 

812-205 

12-205 

812-206 

12-206 

812-207 

12-207 

8i:-:i? 

i:-.i5 

812-220 

12-220 

812-221 

12-221 

812-222 

*  /^  no'^ 

\Z-  i/li. 

FDOPSP 

86-164 

812-202 

812-207 

u  .  ,-.   ^  /?  -■> 

«  1  i.-  i.l.i^ 

FDPCSfi 

86-164 

812-200 

812-204 

812-219 

FSRSZS 

86-164 

12-228 

GETS 

84-43 

23-5S1 

GTUCBS 

81-290 

INTlB 

81-204 

INTSES 

81-214 

INTSVS 

81-256 

LDFDBS 

825-731 

25-731 

825-732 

826-733 

ZB-'ZS 

LDROS 

82S-761 

828-761 

82S-"b3 

82S-763 

834-862 

834-862 

LINIT 

84-23 

riFFS 

81-312 

nous 

823-639 

23-b39 

GET 

IPERTED  BY     MfiCRO     ON  6- 

OEC-77  RT  08: 

22             PPGE 

E 
12 

MRCPO   L 

POSS 

REFERENCE 

CREF 

MRCPO   NRnE 

REFERENCES 

MIPS 

M-315 

NBOFFS 

M2-198 

12-198 

812-223 

12-223 

NtlBLKS 

»6-lfe5 

12-198 

12-223 

OFF% 

«12-22H 

812-225 

812-226 

812-227 

812-234 

PIJTD 

»4-52 

833-84H 

842-1077 

PUTnC 

«4-38 

30-791 

PUTTC 

»4-33 

33-849 

37-984 

42-1089 

PUTTM 

»4-47 

QDPBS 

»12-224 

12-224 

812-225 

12-225 

812-226 

Q '  0% 

»6-167 

12-224 

12-225 

12-226 

12-227 

pmDBOS 

«12-198 

12-198 

12-198 

8 1 2-223 

12-223 

PETUPN 

»1-3H9 

LPuNP 

;?l-329 

SCBLB 

81-339 

ZOE 

81-359 

Sl'TKS 

86-169 

12-234 

:.:j:t^  s 

81-369 

TCEOFS 

8E-10H 

S-105 

UTlOSS 

nb- 163 

82T-b39 

UTSESS 

So- 163 

12-226    812-227     12-227 
12-223 


F  3 

n»^iti   MPCPO  nilOH  Qb-OEC-77  08- 2^ 
TOBlE  or  CONTENTS 

:-    I      RSSEMBlE  for  use  with  an  UNnflPPED  SVSTFn 


MTHND    npcpo  nno4    O6-DEC-77  08:  2h    prge  1 


G  J 


7 

6 

7 
8 

Q 

16 
11 
1: 

\z 

1  C, 
It 

i:^ 

IS 
19 

20 
21 

o  ■-> 

:.:> 
2H 
26 
2b 
27 
28 
29 
30 
31 

3H 
35 
3b 
17 
12.. 
39 
146 

m 

42 
4  3 
4^ 
46 
4b 
47 
4S 
49 
60 
61 
62 
63 
64 
66 
6b 


000001 
000001 
000002 
000000 


OCOOOO 


;PREFIX  FILE  FOR  2780  UfiP  RUNNING  UNDER  RSXllM 

RSX=1 

RSXliri=l 

NTRNSF  =  2  ;  NUMBER   OF   FILES   -    1    TO  TRPMSFER    IN  ONE   CMriD  STRING   (3) 

NRCVSF=0  ;NUnBER   OF   FILES  -    1    TO  RECEIVE    (1) 

;riRCRO  DEFINITIONS 
TflGNUri=0 

.MRCRO     ERROR        TEXT 
ERRORK     <TEXT> 
JSR  PC. PROMPT 

.  ENDM 

;    MPiCRO   TO  DO  fl  KILL   RND  QUEUE    THE   MESSAGE 

.MRCRO  ERRORK   TEXT 
TflGNUM=TRGNUM+l 


.  IRP 

N,  <.   TRGNUM) 

JSR 

R5,TYPMSG 

.  UORD 

TRG'N 

.  WORD 

TRGE'N-TRG'N 

. PSECT 

MESflG2,GBL 

TRG'N: 

.  RSCII 

"TEXT" 

TRGE'N: 

. PSECT 

MAIN 

.  ENDM 

.  ENDM 

nflCRO  TO  QUEUE  fl  MESSAGE  ONlY 

.  MRCRO  EPRORM   TEXT 
TflGNUM=TflGNUM+l 
.  IPP    N, <  TRGNUM) 
R6,TYPMS1 
TRG'N 

TRGE'N-TRG'N 
MESRG2GBL 
"TEXT" 

MAIN 


MACRO  TO  QUEUE  A  MESSAGE  AND  FPOMPT 

.MACRO  ERRCkP   TEXT 

EPRORM  <.TEXT> 

JSP  PC, PROMPT 
.  ENDM 


JSR 

.  WORD 

.  WORD 

. PSECT 

TRG'N: 

.  ASC  1  1 

TRGE'N: 

.  PSECT 

.  ENDM 

.  ENDM 

,  MACRO 
EPRORK 
JSP 
.  ENDM 


FATAL 

aEXT^ 

R5.DIE 


TEXT 


H  3 

INTHMD  n«CPO  nilOH  Ob-DEC-77  08:  2^  PRGE  2 

RISEnELE  FOP  USE  WITH  fiN  UNMRPPED  SYSTEM 

V  .  SBTTL  OSSEMBLE  FOP  USE  WITH  AN  UNMAPPED  SYSTEM 

2  ; 


M'MEriBLE  FOP  I 

I 

2 

b 

•7 

s 

Q 

16 

11 
\   " 

13 
IH 

IB 
IK 

r 

IS 
19 
20 
21 


2^ 

2B 
26 

'->-7 

28 
29 
30 
31 

32 
33 
3^ 
35 
36 

3S 
39 
HO 

m 

H2 

h:v 
^^ 

H5 
46 
HT 
H8 
49 
BO 
51 
52 
53 

55 

56  onnooo 

57 


nilG4  Ob-DEC-77  08:  24  PRGE  3 
JSE  WITH  RN  UNMRPPED  SYSTEM 


I  r  f'  I  f  b 


.TITLE  INTHND 
.  IF  OF  MMMGE 
.  I  DENT  /0G03ri/ 
.  IFF 

.  I  DENT  /0003U/ 
.  ENDC 

COPYRIGHT  (C)   1975,  1976  ,  P""*  , 

DIGITRL  EQUiPnENT  CORPORRTION,  ..HYNflRD,  MflSS.  01754 

THIS  SOFTUflRE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
R  SINGLE  COMPUTER  SYSTEM  RND  MRY  BE  COPIED  ONLY  UITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWRRE,  OR  RNY  OTHER  COPIES  THEREOF,  MRY  NOT  BE  PROVIDED 
OR  OTHERWISE  MRDE  flVRILRBLE  TO  RNY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  RND  TO  ONE  WHO  RGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  RND  OWNERSHIP  OF  THE 
SOFfWRRE  SHALL  RT  RLL  TIMES  REMRIN  IN  DEC. 

THE  INFORMRTION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  RS  A  COM- 
MITMENT BY  DIGITAL  EQUIPMEN"^  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOP  THE  USE  OP  RELIABILITY 
OF  ITS  SOFTWARE  ON  EQUiPMENT  WHiCH  IS  NOT  SUPPLIED  BY 
DEC 

VERSION  0 

POBEPT  H.  POSENBAUM  30-JULY-r4 

LAST  MODIFICATION  ON  24 -JUNE -^5 

VERSION  1 

CLARISE  E.  PATTON  SEFT  1977 

MODIFIED  TO  ACCEPT  EITHER  HPP4  OR  hFP.B 

INTERRUPT  RELATED  ROUTINES  FOP  PZX-IIM 

REGISTER  DEFINITIONS 

PS=17777b 

.  IF  DF  M%%nGE 

UISAR4=177650 

KISAR4=172350 

UISAR5=177652 

KISAR5=172352 

.  ENDC 

MACRO  CALLS 

.MCOLL   CALL 

.PSECT  MAIN 


iNTHND  M^^cpo  nno^  oe-DEC-??  os.  2^  prge 

PSIEMBLE  FOP  USE  UITH  RN  UNMOPPED  SYSTEM 


J  3 


59 
bO 
bl 
bZ 
63 
64 
t'S 
66 
67 
6S 
69 
70 
71 


74 
7B 
76 

-7-' 

78 

SO 
SI 
82 
S3 
84 
SB 
86 
87 
88 
S9 
90 
91 

92  OOCOOO     nouE.67     iinnnnnG 

93 

94 

96 

9b 

97  ^ 

9S 
99 

100 
iOl 

102  000004 

103  OOOOIG 

104  000012 
lOB  000016 

106  000022 

107  000026 

108  000032 

109  000034 

110  000036 

111  000040 

112  000044 

113  000046 

114  0000B2 
IIB  0000B4 


;  + 


**-..  C INT-CONNECT  TO  OEUICE  VECTOR 

THIS  ROUTINE  IS  CRLLED  TO  ENABLE  fl  USER  TASK  TO  HPNDLE  INTERRUPTS 
FROM  fl  PARTICULAR  DEVICE  (SIMULATES  THE  RSX-llD  EXEC  ROUTINE 
BY  THE  SAME  NAME) 


NPUTS: 


RO  --  INTERRUPT  TRAP  ADDRESS 

R!  --  ENTRY  POINT  OF  INTERRUPT  SERVICE  ROUTINE 

(ADDRESS  MUST  BE  WITHIN  USER  APR'S  RANGE) 
R3  --  BITS  5  -  7  PRESCRIBE  THE  PRIORITY 


CALLING  SEQUENCE 


JSR 
OUTPUTS: 


PC,  . C INT 


THIS  ROUTINE  WILL  CHECK  TO  SEE  IF  IT  IS  TO  USE  APR4  (0PR5 
DEFAULT),  THEN  WILL  REQUEST  A  BUFFER  FROM  THE  EXEC,  STORE 
ADDR  IN  THE  VECTOR  ADOR  SUPPLIED  BY  THE  CALLER,  MOVE  THE 
STARTING  AT  "INTAD"  THROUGH  "INTEND"  INTO  THE  BUFFER  FILL 
THE  ADDR  CONTAINED  IN  USER  APR4  AND  THE  USER'S  I SR  ADDR 
AND  FINALLY  RtTURN  TO  THE  USER  WITH  ALL  REGISTERS  UNCHANGED. 
THE  "C"  BIT  WILL  BE  SET  IF: 
n  THE  VECTOR  IS  IN  USE  (I.E.  THE  ADDR  IN 
THAT  OF  THE  NONSENSE  INTERRUPT  ROUTINE 
2)  NO  BUFFERS  ARE  AVAILABLE 


IS 

THE  BUFFER 

NSTRUCTIONS 

NG  IN 


THE  VECTOR 
(5N0NSI )  OP 


IS  NOT 


CI  NT: 


BS 


010167 
00B103 
042703 
010367 
012701 

103447 
010004 
OlOOOB 
012701 
01212B 
020127 
103774 
01671B 


000162 

177437 
COO  144 
000020 


000162' 
000200' 
OOOOOOG 


lOS: 


JSR 

RB-C.SPEG 

■SAVE  THE  REGISTERS 

.  IF  DF 

M%%MGE 

IF  MEMORY  MANGEMENT 

cnp 

«STKSET,S120000 

;WHICH  REGISTER  USED"? 

BGT 

B% 

;REGISTER  B 

MOV 

nUISAR4,UISfiP 

MOVE  IN  REGISTER  4 

MOV 

?{K!SflP4.KISAR 

# 

MOV 

dUISflP..  INTRD+I.  Kfl       ;PUTS  CONTENTS  OF  PAP  INTO 

,MOVE  INSTRUCTION 

.  ENDC 

MOV 

Rl, INTAD: INT JSP  . 

STORE  ADDR  INTO  JSR  INTS 

COM 

P3 

COMPLEMENT  THE  PRIORITY 

BIC 

;i77437,R3 

CLEAR  ALL  BUT  PRIORITY  BITS 

MOV 

R3, INTPPI 

STORE  COMPLEMENTED  PRIORITY 

MOV 

«INTSI2..  Rl 

»  OF  BYTES  NEED  FROM  E.XEC 

CALL 

SALOCB 

ASK  FOR  THEM 

BCS 

30% 

NONE  AVAILABLE 

MOV 

R0,R4 

SAVE  THE  BUFFER  ADDRESS 

MOV 

RO,RB 

MOV 

8INTRD,Rl 

LOCATION  FROM  WHiCH  TO  GET  INSTRUCTIONS 

MOV 

(Rl)+, (RB)+ 

MOVE  A  WORD 

CMP 

R1,»INTEND 

LAST  WORD  MOVED'? 

BLO 

ICS 

NO 

MOV 

STKTCB,(RB) 

STORE  '    e  ADDRESS  IN  LAST  WORD 

IMTHND  MRCPO  MllO^  Ofe-DEC-77  08:  2^  PRGE 
RSSEMBLE  FOP  USE  UITH  AN  UNMRPPED  SYSTEM 


4-1 


K  3 


16 

17 
IS 
19 
20 
21 

/^  ,-> 

23 

25 

26 

2S 
29 
30 

:i 

33 
3H 
3B 
36 
37 
38 
39 
40 

m 

H2 
43 
44 
4B 
46 
47 
48 
49 
50 
51 
52 
53 
54 

55 
56 
57 

5S 
c,Q 

60 
61 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 
72 


000060 
000062 
000066 
000074 

000100 
000102 
000106 
000110 
000114 
000116 
000116 
000120 
000124 
000126 
000132 
000134 
000140 
000142 
000146 
000152 
00015b 
000160 


000162 
000 Ibb 


000170 


011600 
013746 
112737 
021027 

001406 
021027 
002412 
021027 
003007 

010420 
012637 
000241 
004567 
000207 
012637 
010400 
012701 

004567 
000261 
000207 


000340  177776 
OOOOOOG 


OOOOOOG 
OOOOOOG 

177776 

OOOOOOG 

177776 

000020 

OOOOOOG 


004537  OOOOOOG 
000000 


004737  000000 
000010 


000174   000137  OOOOOOG 


MOV 

dSP.RO 

MOV 

SIPS, -(SP) 

MOVB 

«340,a)»PS 

CMP 

(RO),ISNONS 

BEQ 

16% 

CMP 

(R0).»5NS0 

BLT 

20S 

CMP 

(R0)/»5NS7 

BGT 

205 

155: 

MCV 

R4,(R0)+ 

MOV 

(SP)+,i)»PS 

CLC 

jSR 

P5,C.  SRES 

RTS 

PC 

205: 

MOV 

(SPH,i«PS 

MOV 

P4,P0 

MOV 

«INTSIZ,P1 

CALL 

SDEflCB 

30S: 

JSP 
SEC 

P5.C.  SRES 

f 

PTS 

PC 

INTPID-  IN1 

rERRUPT  SERVIC 

RESTORE  VECTOR  ADDRESS 
SOVE  THE  PROCESSOR  STRTUS 

INHIBIT  INTERRUPTS 

IS  VECTOR  CONTENTS 

RDDR  OF  NONSENSE  INTERUPT  RTN? 


CHECK 
IF  NO 


ERRLOG 
ERRLOG 


LOCRTIONS 
RRE  SRME  RS 


NONS 


STORE  BUFFER  RDDR  IN  VECTOR 

ENRBLE  INTERRUPTS 
CLERR  CRRRY 
RESTORE  THE  REGISTERS 
RND  RETURN  TO  CRLLER 
;; ENRBLE  INTERRUPTS 
GET  NODE  ADDRESS 
RND  ITS  SIZE 
RND  RETURN  IT 
RESTORE  REGISTERS 
SET  CRRRY  TO  INDICRTE  ERROR 
RND  RETURN  TO  CALLER 


THIS  ROUTINE  IS  PUT  INTO  RN  EXEC  BUFFER  BY  ..CINT  RND  ITS  ADDRESS 

(OF  THE  BUFFER)  IS  PLACED  IN  THE  DEVICE  VECTOR. 

IN  AN  UNMAPPED  SYSTEM  IT  TRANSFERS  TO  THE  USERS  INTERRUPT 

SERVICE  ROUTINE  AND  THEN  TRANSFERS  TO  AN  RSX-llM  ROUTINE  TO  DISMISS 

THE  INTERRUPT. 

IN  A  MAPPED  SYSTEM,  KERNEL  APR4  IS  SET  TO  POINT  TO  THE  ADDRESS  IN 

APR4  OF  THE  USER  WHO  DID  THE  CONNECT  TO  INTERRUPT.   IN  THIS  MANNER 

THE  USER'S  ISR  CODE  IS  MAPPED  INTO  EXEC  ADDRESSING  SPACE. 

THIS  ROUTINE  MUST  BE  IN  THE  EXEC  (I.E.  AN  EXEC  BUFFER)  TO  GET 

CONTROL  OF  THE  INTERRUPT  AND  CHANGE  THE  MAPPING. 


NTAD: 
NTPRI 


000200  000G20 


UISAR: 

KISAR: 
INTEND: 


JSR 
.  WORD 
.  IF  DF 
MOV 
MOV 
I.  KA=. 
.  ENDC 
JSR 

INTJSR 
.  IF  DF 
MOV 
.  ENDC 
JMP 

IF  DF 
.  WORD 
.  WORD 
.  ENDC 
I  NTS'"' 


; SWITCH  STACKS 

; PRIORITY  (COMPLEMENTED) 


R5,i«5INTSV 

0 
M5SMGE 

aKISAP,--(SP)    ;SRVE  KERNEL  PAR 

SO^ilKISAR       .;SET  IT  TO  CONTENTS  OF  USEP  PAP 
■INTAD-4   ; POINT  TO  0  WORD 


PC/a)nO 
:.-2-INTAD 
M55MGE 
(SP)+,alKtSAR 

iliJSiNTXT 
M55MGE 
UISAR5 
KISRR5 


GO  TO  ISR 
POINT  TO  0  WORD 

RESTORE  KERNEL  PflP 

SWITCH  STACKS  BACK 


IZv  -INTflD+2 


LEAVE  ROOM  FOR  TCB  ADDRESS 


INTHND     MRCPO  nn04     Ofe-DEC-77  08:  2^     PRGE 
fllSEHBLE   FOP   USE  WITH  AN  UNMRPPED  SYSTEM 


L  3 


17H 

175 

1^6 

1  "*"" 

1  <  ' 
178 

179 

180 

181 

182 

183 

iw^ 

ISB 

1S6 

IS" 

ISS 

1S9 

190 

191 

r?: 

193 

19H 

19B 

000200 

01004b 

196 

000202 

010146 

197 

00020H 

013^46 

i:^:'7- 

-6 

198 

000210 

112737 

0003^ 

+0   17777b 

199 

000216 

011001 

200 

000220 

0:tlb7 

0000 

16  COonnoG 

201 

202 

203 

000226 

001007 

20H 

000230 

012^10 

000  Of 

JOG 

205 

206 

000234 

010100 

20:^ 

000236 

012701 

0000: 

:o 

20? 

00024  2 
000246 

01-637 

IV''.- 

1777" 

'b       1 

210 

000252 

012601 

211 

000254 

012600 

212 

00025b 

000207 

213 

000001 

««-..  DINT-DISCONNECT  FROM  DEVICE  VECTOR 

THIS  ROUTINE  IS  CALLED  TO  DISCONNECT  THE  USER  FROn  THE  DEVICE  VECTOR 

INPUTS; 

RO  =  INTERRUPT  TRAP  ADDRESS 

OUTPUTS: 

THE  CONTENTS  OF  THE  INTERRUPT  TRPP  ADDRESS  (THE  VECTOR)  ARE  RESET 

TO  THE  NONSENSE  INTERRUPT  ROUTINE  (SNONSI)  AND  THE  BUFFER  (POINTED 

TO  BY  THE  OLD  CONTENTS  OF  THE  VECTOR)  IS  RETURNED.   A  CHECK 

IS  MADE  TO  SEE  IF  THE  TCB  ADDRESS  OF  THE  USER  MAKING  THE  CALL  IS  THE 

SAME  AS  THE  ONE  WHICH  DID  THE  CONNECT.   (THE  TCB  ADDR  IS  SAVED 

IN  THE  LAST  WORD  OF  THE  BUFFER  BY  ..CINT)   IF  THEY  DO  NOT  MATCH 

THE  DISCONNECT  i S  NOT  DONE  BUT  NO  ERROR  INDICATION  IS  GIVEN 


DINT; 


lOS: 


MOV 

MOV 

MOV 

MOVB 

MOV 

CMP 


BNE 
MOV 

MOV 
MOV 
CRLL 
^OV 

nov 

MOV 
PTS 
.  END 


RO,-CSP) 
R1,-(SP) 

a;j°s.-(SP) 

»340.ii;PS 

iPO.Rl 

INTSIZ-2'Rl), 


lOS 
ttSNONS 


;SAVE  RO 

:AND  Rl 

;SAVE  THE  PROCESSOR  STATUS 

:;; INHIBIT  INTERRUPTS 

;,;GET  INTERRUPT  ADDR  FROM  VECTOR 
STKTCB  ;;;DOES  TCB  ADDR  OF  CURRENT  TASK 
MATCH  THAT  OF  THE  TASK  THAT  DID 
THE  ORIGINAL  CONNECT  TO  INTERRUPT? 


iPO 


FUPO 

; I  NTS  I  2^ PI 

SDEflCB 

(SP)  +  .iittPS 

(SP)+.R1 

(SF '  +  .P0 

PC 


;N0 
PUT  ADDR  OF  NONSENSE 
IN  THE  VECTOR 
GET  NODE  ADDRESS 
AND  SIZE  IN  BYTES 
DEALOCATE  THE  BUFFER 
RESTORE  THE  STATUS 

RESTORE  Rl 

AND 

AND 


NTEPRUPT  RTN 


PO 


PETuPN 


INTHND  nRCPO  MllDH   0b-D£C-77 

08:  24  PfiGE 

SYriBOL  TfiBLE 

C.  SPEG=  ******  G>; 

INTPRI 

0G0166R 

C.  SPES=  ******  GX 

1  NTS  12= 

000020 

INTPO   000lb2P 

002  NRCVSF= 

000000 

INTENO  G00200P 

002  NTRNSF= 

000002 

INTJSP-  000010 

PS 

177776 

.  RB"..   GOOOOO 

000 

000000 

001 

MR  IN    000260 

002 

EPPOPS  DETECTED 

0 

i/lPTUfiL  nEMOPY  USED:   B22  UORDS 

(  3  PflGESj 

DYNflniC  MEMOPY   2810  UOPDS   ' 

10  PAGES) 

ELfiPSED  TIME;   00: 

00:  lb 

25b- 020  INTHND.  UMP;  27<  2E.o  030 

INTHNDU/CRF 

5-1 


M     3 


00 


RSX   = 

000001 

5INT£U= 

III*** 

GX 

$NS7  = 

mill  GX 

RSXllMs 

000001 

SINTXTr 

III*** 

GX 

5TKTCB= 

nnn  gx 

TflGNUn= 

000000 

$NONSI= 

mill 

GX 

.  .  CINT 

OOOOOORG 

50L0CB= 

tttttt   GX 

SNSO  = 

^  ^  ^  ^  ^  ^ 

GX 

..DINT 

000200RG 

SDEflCB= 

««*«**  GX 

002 
002 


SP  =  lJPPPXM,UNnflP,.  INTHND 


N  3 

INTHNOU 

CPEflTED  BY 

MACRO  ON 

6- 

-DEC-77  PIT 

08:  24 

PRGE  1 

S'tlBOL 

:poss  reference 

CREF 

SaiBOL 

WflLUE 

REFERENCES 

C  SREG 

z 

iifttt^ 

GX 

14-92 

C  SPE'^ 

— 

ittttt 

GX 

^-130 

4-136 

IMTRD 

000162 

R 

«H-102 

4-111 

«4-155 

4-163 

4-172 

INTEND 

000200 

P 

H-113 

«4-172 

!  NT. JSP 

z 

000010 

*!H-102 

»4-163 

iNTPPi 

000166 

R 

*^-10B 

»4-156 

1  NTS  12 

- 

000020 

H-106 

4-134 

«4-172 

5-200 

5-207 

MSSHGE 

z 

tttttt 

3-2 

3-46 

4-93 

4-157 

4-164 

4-168 

UPOiZF 

~ 

000000 

«l-5 

NTRNSF 

z 

000002 

»1-H 

PS 

- 

177776 

«3-HB 

4-li7 

4- lis 

4-128 

4-132 

5-197 

PSX 

z 

000001 

Sl-2 

PSXllM 

z 

COOOOl 

**  1   7 

n  1  -  j. 

ThGNUM 

z 

000000 

n  1  - 1 

iRLOCB 

— 

****** 

GX 

H-107 

i.DEflCB 

r 

****** 

GX 

H-13B 

5-20S 

SINTSV 

- 

****** 

GX 

4-lBB 

%  INT XT 

z 

****** 

GX 

4-16:' 

^r^ONS  1 

= 

****** 

GX 

4-119 

5-204 

SNSO 

- 

****** 

GX 

H-122 

%NS7 

r 

****** 

GX 

4-124 

STKTCB 

= 

****** 

GX 

4-1  15 

5-200 

.  .  CINT 

nnnnnn 

PG 

H  U  -  Q  ; 

.DINT 

00Q2C0 

PG 

«5-i95 

5-19S 


5-209 


■  !iW!l»U"Jf-JHli"    i"'iW!i»?yif!-'WMW 


:rrrrr=rrrrr 


Ka«»««f»w»««H*i«ia 


UBRBi;  BU  susfcsa 


g???gggsgy^5ga«ritrtbUkiiiiL^ 
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nPCRO  CROSS  REFERENCE 

MPCRO  NRHE  REFERENCES 

CRLL  83-5H  H-107  ^-l35 

ERROR  »l-9 

EPPORK  «l~lb 

EPPOFn  «l-32 

EPPORP  nl-47 

FPTPL  ;i-B3 


24 


PAGE   2 
CREF 


B     H 


5-208 
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C  H 


I 


RSSEnBLuL)  FOR  USE  WITH  R  MPPPED  SYSTEM 
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D     H 


t 

2 

OOOOOl 

1 

000001 

H 

000002 

S 

000000 

6 

7 

8 

ocoooo 

q 

10 

1! 
1  ^ 

13 

IW 

1  c, 

lb 

1  *^ 
1  . 

IS 

19 

2G 

21 


24 

2B 

26 

27 

28 

29 

30 

31 

32 

33 

3H 

3B 

J.b 
•7  -J 

3S 

39 
"40 
Hi 
^2 
4  _ 

4S 
H9 
c,n 

51 
52 
53 
5'4 
55 
56 


;PREFIX  FILE   FOR   2780  UflP   RUNNING  UNDER  RSXllM 
RSX=1 

Rsxnn=i 

NTRNSF  =  2  ;NUnBER  OF  FILES  -  1  TO  TRPNSFER  IN  ONE  rtiMD  STRING  (3) 

NRCVSFrQ  ;NUn9ER  OF  FILES  -  1  TO  RECEIVE  (1) 


; MACRO 

DEFINITIONS 

TRGNUMs 

0 

.  nflCRO 

ERROR   TEXT 

ERRORK 

<TEXT> 

JSR 

PC. PROMPT 

» 

.  ENDM 

;  MfiCRO 

TO  DO  P 

KILL  RND  QUE 

* 

.  MRCRO 

ERRORK  TEXT 

TRGNUn= 

TRGNUM+l 

.  IRP 

N, <  TRGNUM) 

JSR 

R5.TYPMSG 

.  UORD 

TRG'N 

.  WORD 

TRGE'N-TRG'N 

.  PSECT 

MESRG2,GBL 

TRG'N: 
TRGE'N: 

.  flSCI 1 

"TEXT" 

.  PSECT 

MAIN 

.  ENDM 

.  EMOn 

nPCPO  TO  QUEUE  R  MESSRGF  ONlY 


.  MRCRO 

ERRORM  TEXT 

TRGNUM- 

TRGNUM+1 

.  IRP 

N, <  TRGNUM) 

JSR 

R5, TYPMSl 

.  WORD 

TRG'N 

.  WORD 

TRGE'N-TRG'N 

.  PSECT 

MESRG2.GBL 

TRG'N: 

.  flSCII 

"TEXT- 

TRGE'N: 

.  PSECT 

MR  1  N 

.  ENDM 

.  ENDM 

MRCRO  TO  QUEUE  R  MESSRGE  RND  PROMPT 

.  MRCRO  ERRORP   TEXT 

ERRORM  aEXT:^ 

JSP  PC. PROMPT 
.  ENDM 


.  MRCRO 
ERRORK 
JSR 
.  ENDM 


FRTRL   TEXT 

<TEXT> 

R5.DIE 


IMTHND  nOCPO  nnOH  Ob-DEC-77  08:  ? 3  PCiGE  2 
RSiEHBLED  FOP  USE  UITH  R  nRPPED  SYSTEM 


t 
2 
3 


000001 


E     H 


.  SBTTL     RSSEMBLED  FOR   USE   WITH  P  MAPPED  SYSTEM 
n5SriGE  =  l  .MEMORY  MflNflGEMENT 


INTHND      MQCPO 
PSSEMBLED  FOR 

t 

z 

3 

5 

6 

7 
8 

9 

10 
11 
12 

ii 
m 

15 
^.  b 

1  T 
1     ' 

IS 
19 
20 
21 
22 
23 
2H 
2B 

2e 

27 
28 
29 
30 


nnOH     Gfe-DEC-77  08:  23     PfiGE  3 
USE   WITH  fl  nOPPED  SYSTEM 


F  H 


31 

-» ^ 

j>^ 

33 

m 

35 

36 

37 

3S 

39 

UO 

41 

H2 

l4\ 

^H 

HS 

1 

1  t  t  D 

Hb 

^7 

1 

'7650 

us 

1 

'2350 

H9 

r 

"76^2 

SO 

r 

'2352 

51 

52 

53 

5'4 

55 

56  000000 

57 

TITLE   INTHND 

IF  OF  nwriGE 

I  DENT  /OGOJM/ 

IFF 

I  DENT  /0003U/ 

ENDC 

COPYRIGHT  (C)   1975,  1976  ,1977 

DIGITPL  EQUIPMENT  CORPORATION,  MflYNORD,  MflSS.  01754 

THIS  SOFTliflRE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
fl  SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWARE-  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT  E.  PROVIDED 
OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  «ND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
niTNENT  BY  DIGITAL  EQUIPMEN"^  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOP  THE  USE  OR  RELIABILITY 
OF  ITS  SOFTWARE  ON  EQUIPMENT  WHiCH  IS  NOT  SUPPLIED  BY 
DEC, 

VERSION  0 

ROBERT   H.    POSENBflUil     30-JULY-7H 

LAST  MOD!FICPTION  ON  2U-JUNE-^'=> 

VERSION  1 

CLflPISE  E.  PPTTON  SEPT  1977 

MODIFIED  TO  ACCEPT  EITHER  flPP4  OP  hPPB 

INTERRUPT  RELATED  ROUTINES  FOP  PSX-llM 

REGISTER  DEFINITIONS 

PS=177776 

.  IF  DF  M%SMGE 

UISARH=i77650 

KISARH=172350 

UISAR5=177652 

MSAR5=172352 

.  ENDC 

MACRO  CALLS 

. MCALL   CALL 

.  PSECT   MfilN 


INTHND   HQCPO 
PSSEMBLED  FOR 

B9 
60 
ki 
62 
b3 
o^ 
b& 
66 
67 
68 
69 
70 
?\ 
72 

77 

t  w 

7H 

75 

76 

77 

78 

79 

80 

81 

82 

83 

8H 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9H 

95 

9b 

97 

9S 

100 
101 
102 
103 

lO^ 

105 
106 
107 
108 
109 
110 
111 
112 
113 

im 

115 


nnoi*     Ofe-DEC-77  08;  23     PfiGE 
USE   WITH  fl  flPPPED  SYSTEM 

;  ♦ 


G  H 


000000  00H567 


00000^ 
000012 
000014 
000022 
OOOOJO 
000030 


000036 
000042 
000044 
000050 
000064 
000060 
000064 
000066 
000070 
000072 
000076 
000100 
000104 
000106 


022727 
003006 
012767 
012767 


IJ10167 
005103 
042703 
010367 
012701 

103447 
010004 
010005 
012701 
012125 
020127 
103774 
016715 


;  ««-..  C INT-CONNECT  TO  DEVICE  VECTOR 

THIS  ROUTINE  IS  COLLED  TO  ENABLE  fl  USER  TRSK  TO  HPNDLE  INTERRUPTS 
FROn  R  PflRTICUL«R  DEVICE  (SIMULflTES  THE  RSX-llD  EXEC  ROUTINE 
BY  THE  SAME  NfiflE) 


NPUTS: 


RO  --  INTERRUPT  TRRP  RDDRESS 

Rl  --  ENTRY  POINT  OF  INTERRUPT  SERVICE  ROUTINE 

(RDDRESS  MUST  BE  WITHIN  USER  RPR'S  RANGE) 
R3  --  BITS  5  -  7  PRESCRIBE  THE  PRIORITY 


CALLING  SEQUENCE: 


JSP 


PC.  .  CINT 


OUTPUTS: 


OOOOOOG 

OOOOOOG  120000 

177650  000226 
172350  000222 


CINT; 


5S: 


017767  000214  000172 


000174 

177437 
000144 
000042 


000214' 
000254' 
OOOOOOG 


lOS: 


THIS  ROUTINE  WILL  CHECK  TO  SEE  IF  IT  IS  TO  USE  RPR4  (RPR5  IS 
DEFAULT),  THEN  WILL  REQUEST  R  BUFFER  FROM  THE  EXEC,  STORE  THE  BUFFER 
RDDR  IN  THE  VECTOR  RDDR  SUPPLIED  BY  THE  CRLLER,  MOVE  THE  INSTRUCTIONS 
STRRTING  RT  "INTRO"  THROUGH  "INTEND"  INTO  THE  BUFFER  FILLING  IN 
THE  RDDR  CONTRINED  IN  USER  APR4  AND  THE  USER'S  ISR  ADDR 
AND  FINALLY  RETURN  TO  THE  USER  WITH  ALL  REGISTERS  UNCHANGED. 
THE  "C"  BIT  WILL  BE  SET  IF: 
n  THE  VECTOR  IS  IN  USE  (I.E.  THE  ADDR  IN  THE  VECTOR  IS  NOT 

THAT  OF  THE  NONSENSE  INTERRUPT  ROUTINE  (5N0NSI)  OR 
2)  NO  BUFFERS  RRE  RVRILRBLE 


OF 


JSR 
.  IF 
CMP 
BGT 
MOV 
MOV 

MOV 


.  ENDC 

MOV 

COM 

BIC 

MOV 

MOV 

CALL 

BCS 

MOV 

MOV 

MOV 

MOV 

CMP 

BLO 

MOV 


P5.C.SREG 
M%%MGE 
nSTKSET,»120000 
5S 

»UISAR4,UISAR 
t}K!SRR4,K.ISRR 


;SPVE  THE  REGISTERS 
; IF  MEMORY  MANGEMENT 

;WHICH  REGISTER  USED'? 

;REGISTER  5 
;MOVE  IN  REGISTER  4 


aUISAR,  INTAD-^I.  KA 


Rl.  INTRD+INTJSR 

R3 

«177437,P3 

R3, INTPRI 

»INTSI2,Rl 

SRLOCB 

30% 

R0,R4 

R0,R5 

^INTRD.Rl 

(Rl)+, (R5)+ 

Rl.;ilNTEND 

10% 

%TKTCB- iR5) 


;PUTS  CONTENTS  OF  PAP  INTO 
;MOVE  INSTRUCTION 

STORE  ADDR  INTO  JSR  I  NTS 
COMPLEMENT  THE  PRIORITY 
CLEAR  ALL  BUT  PRIORITY  BITS 
STORE  COMPLEMENTED  PRIORITY 
n    OF  BYTES  NEED  FROM  EXEC 
ASK  FOR  THEM 
NONE  AVAILABLE 
SAVE  THE  BUFFER  ADDRESS 

LOCATION  FROM  WHICH  TO  GET  INSTPUCTI 

MOVE  A  WORD 

LAST  WORD  MOVED'? 

NO 

STORE  TCB  RDDRESS  IN  LAST  UORD 


ONS 


IHTHND  nflCPO 
filSEMBLED  FOR 


nnOH  06-DEC-77  08:  23  PfiGE 
USE  WITH  R  MRPPED  SYSTEM 


H-1 


H  ^ 


17 
13 
19 
20 
21 

^  '7 

^^ 

23 
2^ 
2?^ 

2b 
27 

>Q 

29 

30 

31 

32 

JZ 

34 

3B 

36 

37 

38 

39 

MQ 

M\ 

M2 

,M3 

HH 

4S 

H6 

H7 

.48 

,H9 

50 

51 

52 

53 

54 

55 

56 

57 

5b 

,59 

60 

61 

62 

,63 

,64 

65 

66 

67 

6S 

69 

70 

71 

-^  /^ 


000112 
000114 
000120 
000126 

000132 
000134 
000140 
000142 
000146 
OOOISO 
000150 
000152 
000156 
000160 
000164 
000166 
000172 
000174 
000200 
000204 
000210 
000212 


000214 
000220 

000222 
000226 


000240 

000244 

000250 
000252 


011600 
013746 
112737 
021027 

001406 
021027 
002412 
021027 
003007 

010420 
012637 
000241 
004567 
000207 
012637 
010400 
012701 

004567 
000261 
000207 


004537 
000000 

017746 
012777 
000014 


000234  00473; 
0000 

012677 

000137 


17-652 
172352 


177776 

000340  177776 

OOOOOOG 


OOOOOOG 
OOOOOOG 


177776 
OOOOOOG 


1  r  I  <  i  D 


00004  2 
OOOOOOG 


OOOOOOG 


000024 

000000  0000  lb 


GOOOOO 

000006 
OOOOOOG 


155: 


20%: 


30S: 


MOU 

asp.RO 

MOV 

a«ps.-(SP) 

MOVB 

(1340,  d»PS 

CMP 

(RO)/«SNONS 

BEQ 

\s% 

CMP 

(RO),HNSO 

BLT 

20S 

CMP 

(R0),«%NS7 

BGT 

20S 

nOM 

R4;(R0)+ 

MOV 

(SP)+,a«PS 

CLC 

JSP 

R5-C.  SRES 

RTS 

PC 

MOV 

(SP)+,i8PS 

MOV 

R4,R0 

MOV 

«INTSIZ,P1 

CALL 

SDEflCB 

JSP 

R5.C.  SRES 

SEC 

RTS 

PC 

RESTORE  VECTOR  ADDRESS 
SRVE  THE  PROCESSOR  STRTUS 

INHIBIT  INTERRUPTS 

IS  VECTOR  CONTENTS 

RDOR  OF  NONSENSE  INTERUPT 


RTN? 


CHECK  ERRLOG  LOCRTIONS 

IF  NO  ERRLOG  RRE  SRME  RS  NONS 


STORE  BUFFER  RDDR  IN  VECTOR 

ENABLE  INTERRUPTS 
CLERR  CARRY 
RESTORE  THE  REGISTERS 
RND  RETURN  TO  CRLLER 
;;ENRBLE  INTERRUPTS 
GET  NODE  RDDRESS 
RND  ITS  SIZE 
RND  RETURN  IT 
RESTORE  REGISTERS 
SET  CRRRY  TO  INDICATE  ERROR 
AND  RETURN  TO  CALLER 


**-INTAD- INTERRUPT  SERVICE  CODE 

THIS  ROUTINE  IS  PUT  INTO  RN  EXEC  BUFFER  BY   CINT  AND  ITS  ADDRESS 

(OF  THE  BUFFER)  IS  PLACED  IN  THE  DEVICE  VE.iOR. 

IN  AN  UNMAPPED  SYSTEM  IT  TRANSFERS  TO  THE  USERS  INTERRUPT 

SERVICE  ROUTINE  AND  THEN  TRANSFERS  TO  AN  RSX-llM  ROUTINE  TO  DISMISS 

THE  INTERRUPT. 

IN  A  MAPPED  SYSTEM,  KERNEL  APR4  IS  SET  TO  POINT  TO  THE  ADDRESS  IN 

APR4  OF  THE  USER  UIHO  DID  THE  CONNECT  TO  INTERRUPT.   IN  THIS  MANNER 

THE  USER'S  ISR  CODE  IS  MAPPED  INTO  EXEC  ADDRESS'NG  SPACE. 

THIS  ROUTINE  MUST  BE  IN  THE  EXEC  (I.E.  AN  EXEC  BUFFER'  TO  GET 

CONTROL  OF  THE  INTERRUPT  RND  CHANGE  THE  MAPPING. 


INTAD: 
INTPR 


000254  000042 


UISAR: 
KISAR: 

INTEND: 


JSR 
.  WORD 
.  IF  DF 
MOV 
MOV 
I.  KA  =  . 
.  ENDC 
JSP 

INTJSR 
.  IF  DF 
MOV 
.  ENDC 
JMP 

.  IF  DF 
WORD 
.  WORD 
.  ENDC 
INTSI2 


; SWITCH  STACKS 

;  PR  I  OR  I  TV  <.  COMPLEMENTED) 


R5,a»SlNTSV 

0 
MSSMGE 

iKISAP.M.SP)    ;SAVE  KERNEL  PAR 

«0,i)KISAR       .SET  IT  TO  CONTENTS  OF  USER  PRP 
•INTAD-4   ; PC  INT  TO  0  WORD 


pc-a«o 

=. -2- INTAD 
MSSMGE 
(SP)+,ilK!SflR 

iifSINTXT 
MSSMGE 
UISAR5 
KISAR5 

=  .-INTflD+2 


GO  TO  ISP 
POINT  TO  0  UOPD 

RESTORE  KERNEL  PmR 

SWITCH  STACKS  BACK 


; LEAVE  POOM  FOR  TCB  ADDPE' 


fl'ISEtlBLED  FOR   USE   U 


Ob-DEC-77  08:  23     PRGE 
TH  fi  riRPPED  SYSTEM 


I   ^ 


174 

17B 

1-^b 

1 1  ' 
178 

179 

ISO 

ISl 

4  O  --V 

1  Oa:. 

ISZ 

isu 

1S5 

ISb 

1  V'' 

iss 

1S9 

IQP 

191 

192 

193 

19H 

195  00025H 

01004b 

19b  00025b 

01014b 

197  000260 

01374b 

17-7-6 

198  0002bH 

112737 

000340   177776 

199  000272 

011001 

200  00027H 

026167 

000040  n 00000 G 

201 

202 

203  000302 

001007 

204  000304 

012710 

OOOOOOG 

205 

20b  000310 

010100 

207  000312 

012701 

000042 

208  00031b 

209  000322 

012637 

1777-6 

210  000326 

012601 

211  000330 

012600 

:i:  000332 

000207 

1\  z 

000001 

«*-.  DINT-DISCONNECT  FROM  DEVICE  VECTOR 

THIS  ROUTINE  IS  CRLLED  TO  DISCONNECT  THE  USER  FROM  THE  DEVICE  VF  TOR 

INPUTS; 

RO  =  INTERRUPT  TRAP  ADDRESS 

OUTPUTS: 

THE  CONTENTS  OF  THE  INTERRUPT  TRRP  ADDRESS  (THE  VECTOR)  ARE  RESET 

TO  THE  NONSENSE  INTERRUPT  ROUTINE  (5N0NSI)  AND  THE  BUFFER  (POINTED 

TO  BY  THE  OLD  CONTENTS  OF  THE  VECTOR)  IS  RETURNED.   A  CHECK 

IS  MADE  TO  SEE  IF  THE  TCB  ADDRESS  OF  THE  USER  MAKING  THE  CALL  IS  THE 

SAME  AS  THE  ONE  WHICH  DID  THE  CONNECT.   (THE  TCB  ADDR  IS  SAVED 

IN  THE  LAST  i^ORD  OF  THE  BUFFER  BY  ..CINT)   IF  THEY  DO  NOT  MATCH 

THE  DISCONNECT  IS  NOT  DONE  BUT  NO  ERROR  INDICATION  IS  GIVEN 


.  DINT: 


10%: 


MOV 

R0,-(SP) 

MOV 

PU-(SP) 

MOV 

inDS,-(SP) 

MOVB 

«340.d)«PS 

MOV 

iPO,  Rl 

CMP 

INTSI2-2'P1K 

BNE 

10% 

MOV 

nSNONSL  f.PO) 

MOi/ 

P1,P0 

MOV 

nINTSlZ.Rl 

CALL 

SDEflCB 

MOV 

CSP)  +  ..i?fPS 

MOV 

(SP)+^R1 

MQH 

fSFU.RO 

PTS 

PC 

.  END 

;SAVE  RO 

AND  Rl 
;SAVE  THE  PROCESSOR  STATUS 
:;; INHIBIT  INTERRUPTS 
;wGET  INTERRUPT  ADDR  FROM  VECTOR 
5TKTCB  ;;;DOES  TCB  ADDR  OF  CURRENT  TASK 
;;; MATCH  THAT  OF  THE  TASK  THAT  DID 
,;;THE  ORIGINAL  CONNECT  TO  INTERRUPT'? 
; ; ;  NO 

;;:PUT  ADDR  OF  NONSENSE  INTERRUPT  PIN 
;;; IN  THE  VECTOR 
;;;GET  NODE  ADDRESS 
;;, AND  SIZE  IN  BYTES 
;; ;DEALOCATE  THE  BUFFER 
. ; , RESTORE  THE  STATUS 
: RESTORE  PI 
;fiND  RO 
.AND  RETURN 


INTHND 
SYMBOL 

C  SREG= 

•:.  SPES= 

INTRO 

INTEND 

INTJSP= 

INTPPI 

I  NTS  12  = 


nflCPO 
TQBLE 


nnO^  Ob-DEC-??  08:  23  PRGE  5-1 


J  H 


.    PBS. 

f1P  I  N 
FPPOFS 


tti%ii,%   GX 

tttttt   GX 

0002mR 

00025HR 

000022 

000220R 

000042 

000000 

000000 

000234 

DETECTED: 


002 
002 

002 


000 
001 
002 


I.  KP   : 

KISRR 

KISflRH: 

KISRR5: 

nSSMGE^ 

NRCVSF: 

NTRNSF: 


OGOOIH 

PS 

\777?i> 

UISflR4= 

177650 

5N0NS 1 = 

tttttt   GX 

000252R 

0G2 

RSX   = 

GOOGOl 

UISPR5= 

177652 

$NSO  = 

tttttt   GX 

17235G 

RSXlin= 

000001 

5PL0CB= 

tttttt   GX 

5NS7  = 

tttttt   GX 

172352 

STKSET= 

tttttt   GX 

$DEPCB= 

tttttt   GX 

$TKTCB= 

tttttt   GX 

000001 

TflGNUn= 

OOCOOO 

$INTSV= 

tttttt   GX 

. .  CINT 

OGOOOORG 

002 

000000 

UISFIR 

G00250R 

002  SINTXT= 

tttttt   GX 

.  .  DINT 

00025HRG 

002 

000002 

VIPTLiRL  MEnOPY  USED:   577  UORDS   (  3   PAGES) 
DYNRniC  riEnOPY:   28 lO  UORDS   (  10  PRGES) 
ELRPSED  TIME:   00:  00:  21 
:Et  0:u  iNTHtID,  MRP:  27,  25b. 030  I  NTHNDn.'CRF.'-SP^UflPPyn.  MRF  , 


NTHND 


K     4 

INTHNOn 

CRERTED  BY 

MRCRO     ON  6- 

-DEC-77  RT 

08:  23 

PRGE    1 

SYI1B0L 

CROSS  REFERENCE 

CREF 

SYMBOL 

VRLUE 

REFERENCES 

C.  SPEG 

r 

ttntt 

GX 

4-92 

C.  SRES 

~ 

tttttt 

GX 

4-130 

4-136 

INT9D 

0002m 

R 

*4-99 

«4-102 

4-111 

84-155 

*4- 

■160 

INTEND 

000254 

R 

4-113 

84-172 

INTJSR 

z 

000022 

*4-102 

84-163 

INTPRI 

000220 

R 

*4-105 

84-156 

1  NTS  12 

r 

000042 

4-106 

4-134 

84-172 

5-200 

5- 

•207 

1.  Kfi 

■• 

000014 

*4-99 

84-160 

KISRR 

000252 

R 

*4-97 

4-158 

4-159 

4-165 

84- 

■170 

KlSflPH 

: 

172350 

«3-48 

4-97 

f  ISRP5 

= 

172352 

«3-50 

4-170 

n^<inGE 

z 

000001 

82-3 

3-2 

3-46 

4-93 

4- 

■157 

:^PCUSF 

= 

000000 

81-5 

NTPNSF 

r 

000002 

«l-4 

PS 

z 

177776 

83-45 

4-117 

4-118 

4-12S 

4- 

■132 

PSX 

- 

000001 

81-2 

PSXlin 

z 

GOOOOl 

81-3 

STKSET 

z 

*.!**»* 

GX 

4-94 

TfiGNUM 

z. 

000000 

81-S 

UISRR 

000250 

P 

*4-96 

4-99 

84-169 

UISRR4 

z 

177b50 

83-47    : 

4-96 

UISRRB 

z 

177652 

83-49 

4-169 

SRLOCB 

~ 

****** 

GX 

4-107 

SDERCB 

— 

****** 

GX 

4-135 

5-20S 

SINTSV 

z 

****** 

GX 

4-155 

SINTXT 

— 

****** 

GX 

4-167 

SNONSI 

z 

****** 

GX 

u-119 

5-204 

%NSO 

— 

****** 

GX 

4-122 

%NS7 

z 

****** 

GX 

4-124 

STKTCB 

— 

****** 

GX 

4-115 

5-200 

.  .  CINT 

000000 

PG 

84-92 

.  .  DINT 

000254 

RG 

«5-l95 

4-163 


4-172 


4-164 


5-197 


4-168 


5-198 


5-209 


INTHNDn          t 

IPERTED  BY     MRCPO 

nfiCPO  cposs 

PEFEPENCE 

rwcpo  r^i^nE 

REFEPENCES 

L«LL 

«3-5H                ^ 

EPPOP 

«l-9 

EPPOPi- 

81-16 

EPPOPM 

81-32 

EPPOPP 

81-4:' 

FPTQL 

81-53 

L      H 
ON  b-DEC-77  AT   08;  23  PRGE   2 


CREF 


4-107  4-135  5-208 


n  H 

LOOKUP   MfiCPO  ^nO^  Ob-DEC-77  08:25  PRGE  1 


t 

2 

000001 

3 

000001 

H 

000002 

B 

000000 

6 

7 

8 

ocooco 

9 

10 

11 

12 

13 

m 

IS 

lb 

r 

IS 

1  ? 

20 

21 

"?■•> 

24 

25 

2b 

'?? 

^  r 

2S 

29 

30 

31 

ji^ 

34 

35 

36 

37 

3S 

7Q 

40 

4i 

42 

4:> 

44 

4B 

4b 

47 

4S 

49 

50 

51 

52 

53 

54 

c;c; 

5b 

;PREFIX  FILE  FOR  2780  U«P  RUNNING  UNDER  RSXIIM 

RSX=1 

RSXllMM 

NTRNSF  =  2  ;  NUMBER  OF  FILES  -  1  TO  TRANSFER  IN  ONE  CflMD  STRING  (3) 

NRCVSF=0  ;NUnBER  OF  FILES  -  1  TO  RECEIVE  i\) 

; MACRO  DEFINITIONS 
TflGNUri=0 

.  MACRO  ERROR   TEXT 
ERRORK   <TEXT> 
JSR     PC, PROMPT 
.  ENDM 

;  MACRO  TO  DO  A  KILL  AND  QUEUE  THE  MESSAGE 

.  MACRO  ERRORK  TEXT 

TAGNUM=TA0NUM+1 

.  IRP  N, <  TAGNUM) 

JSR  R5.TYPMSG 

.  UOPD  TRG'N 

.  UORD  TAGE'N-TAG'N 

PSECT  MESRG2.GBL 

TflG'N:   .  ASCII  "TEXT" 
TRGE'N: 

.PSECT  MAIN 

.  ENDM 

.  ENDM 

;  MACRO  TO  QUEUE  A  MESSAGE  ONlY 


.  MACRO 

ERRORM  TEXT 

TAGNUM= 

TAGNUM+1 

.  IRP 

N, <  TAGNUM) 

JSR 

R5.TYPMS1 

.  WORD 

TAG'N 

.  WORD 

TAGE'N-TAG'N 

.  PSECT 

MESAG2.GEL 

TflG'N- 

.  ASC 1 1 

"TEXT" 

TflGE'N: 

. PSECT 

MAIN 

.  END-i 

.  Er  jM 

MACRO  TO  QUEUE  A  MESSAGE  AND  PPOflPT 

.  MACRO  ERROPP   TEXT 

ERRORM  ^TEXT^ 

JSR  PC -PROMPT 
.  ENDM 


.  MACRO  FATAL   TEXT 

ERRORK  aEXT' 

JSR  R5DIE 
.  ENDM 


LOOKUP  n«CPO  nnOH  OS-DEC-??  08:  25  PRGE  2 


N  ^ 


I 

2 

3 

5 


9 

10 
11 

\Z 
\1. 

m 

15 
lb 
17 
IS 
19 
20 
21 

'7  '"^ 

23 

2H 

25 

26 

27 

28 

29 

30 

31 

32 

ZZ 

3H 

35 

3b 
77 

38 
39 

HO 

m 

H2 

^3 

H5 
H6 
H7 
Hg 

t»9 
50 

51 

52 
53 
SH 
EB 
Sb 
57 


TITLE 
I  DENT 


LOOKUP 
/OOOOH/ 


OOOOOG 


OOOCOO 
OOOOOG 


000000 
000002 
OQOOOfc 
000012 
00003^ 
000036 
0000H2 


010201 
005067 
005067 

103H7H 
012700 
012702 


OOGOQOG 
OOOOOOG 


OOOOOOG 
OOOOObG 


COPYRIGHT    (C)      1975.    1976.    1977 
DIGITAL   EQUIPflENT  CORPORRTION.    nflYNflRD, 


MASS.  01754 


THIS  SOFTUflRE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
fl  SINGLE  COMPUTER  SYSTEM  AND  MAY  3E  COPIED  ONLY  UITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWARE.  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED 
OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MITMENT  BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OP  RELtOBlLiTr' 
OF  ITS  SOFTWAPE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  Br 
DEC. 


VEPSION  0 

ROBERT   H.     ROSENBOUM   2-flUGUST-7H 
lRST   MODinCATlON   ON   20-FEBPUflPV-75 

FIND   HLL    Files   fop    INPUT    i  TRANSM  I  SS  I  ON   COMflfiND) 

. PSECT   nfllN 


MACPO  CALLS 
.  nCALL 


FDOFF%  DEFSL 
FCSBTS  OEFSl 


CSI%2. CSISSW- CSISND. FOOFFS- FCSBTS. CALL 
; DEFINE  FCS  OFFSETS  LOCflLLt 
; DEFINE  FCS  BITS  LOCALLY 


;  + 


NPUTS: 


P2  =  ADDRESS  TO  STORE  PARSED  COnfiAND  STRING 

OUTPUTS: 

FILE  NAME  BLOCK  INFORMATION  IS  PLACED  IN  AREA  POINTED 

TO  BY  R2  UPON  ENTRY. 

1!^  AN  ERROR  CONDITION  IS  DETECTED.  A  MESSAGE  WILL  BE  QUEUED 

AND  CARRY  WILL  BE  SET. 


.  IF  DF  PSX 

.  ENABL  LSB 

L'JKUP;  ;  flOl'"  R2-R1 

lOS;     CLP  SWREN 

CLR  SWTBN 

CSI%2  ^FlLDES,  INPUT..  ;?SWTAB 

BCS  HOS 

MOU  SFDBIN.RO       ;FDB  BLOCK 

MOV  «FILDES+L.  DSDS-R2 


; ENABLE  LOCAL  SYMBOL  BLOCK 

;SRVE  AREA  FOP  FNB 

; CLEAR  END  SWITCH 

: CLEAR   BINARY  SWITCH 


LOOKUP      MfiCPO  nnOH     06-DEC-77   08;  25      PRGE   2-1 


B  S 


B8 
S9 
bO 
bl 
62 
63 
bH 
66 
("(:> 
t7 
6S 
69 
70 
71 

73 
74 
75 
76 
7/ 
7S 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 

C|7 


000046 
000052 
000056 
000060 
000066 
000070 
000074 
000076 
000102 
000106 
000112 
000114 
000116 
000120 
000126 
00013G 
000134 
000136 
000142 
000156 
000160 
000162 
000164 
000166 
000172 
000206 
000210 
000224 
000226 
000232 
000246 
000250 
000264 
000270 
000272 


012703  OOOOOOG 


103474 
132761 
001050 

103434 
062701 
012703 
012700 
012321 
005300 
001375 
137767 
"  .1414 
'JLU.27 
103722 
005077 

G00442 
C05011 
000241 
000207 
004767 

000426 


000406 

005077 
000261 
000207 


000070  000020 


000036 
OOOOOOG 

oooooo: 


000020  OOOOOIG 

OOOOOOG 

OOOOOOG 


155: 


OOOOOOG 


ooom7 

004767  OOOOOOG 


OOOOOOG 


20S: 

30%: 

355: 
405: 


505: 
605: 


nov 

CALL 

BCS 

BITS 

BNE 

CALL 

BCS 

ADD 

MOV 

MOV 

MOV 

DEC 

BNE 

BITB 

BEQ 

CMP 

BLO 

CLP 

ERPOPP 

BR 

CLP 

CLC 

RTS 

.SR 

EPRORP 

BR 

ERRORP 

BR 

JSP 

ERRORP 

BR 

ERRORP 

ClR 

SEC 

RTS 

.  DSflBL 


«DfBLK.R3 

.  PARSE 

505 

«NB.  SVRINB.  SNhlNB.  STP.N.  STflT(Rl) 


;DEFflULT  FILE  NAME  BLOCK 
; PARSE  IT 


355 

.FIND 

305 

»S.  FNB.Rl 

«SWTBN.R3 

UXMTSWT/2.P0 

(R3)+, (Rl)+ 

RO 

155 


;ANY  WILD  CARDS? 


YES  ILLEGAL 
AND  FIND  IT 
AN  ERROR 


I?  OF  WORDS  OF  XMIT  SWIT.,,.S 
MOVE  TO  TRANSMIT  BLOCK  AREA 
ONE  LESS  SWITCH 
MOVE  THE  NEXT  ONE 


«CS.  MOR,C.  STflT  +  FILDES 


205 


RUSTRNSE       ;T00  MANY  FILES 

105  ,N0.  LOOK  FOR  NEXT  FILE 

i)TRNSBLK        ;YES.  CLEAR  WHAT  HAS  BEEN  DONE 

<T00  MANY  xniT  FILES:    ; AND  INFORM  OPERATOR  OF  ERROR 

605 

(Rl) 


PC 

PC  CS'iERR 

<N0  SUCH  FILE^ 

605 

<WILD  CARD  FND> 

605 

PCCSIEPR 

<  ILL  SWITCH) 

605 

<FPPSE  FAIL) 

iiTPNSBLI' 

PC 
LSB 


CLEAR  CARRY 

; PR  I  NT  STRING  IN  ERROR 


; PR  INT  STRING  IN  ERROR 


SET  COr^PY 
AND  RETURN 


LOOKUP  MRCPO  nnO^  Ob-DEC-7?  08;  25  PRGE  3 


C  5 


95 
96 

97 
9S 

QQ 
IOC 

lOl 

1C2 
103 


00027^ 
0G027^ 
00030H 
OOOZIH 


;  COnnRND  STRING  INTERPRETER'S  SWITCH  TPBLE  FOR  TPflNSniT  COnnONDS 
SWTflB: 


000001 


CSI4SW 

Bl, 

200, 

SUTBN 

CSI5SU 

EN, 

200, 

SUREN 

CSI5N0 

.  ENDC 

.  END 

■ — - — ■ . 1 

LOOKUP 

MflCPO  MllOH  06-DEC-77  08:25  PAGE  3-1 

D 

5 

SYMBOL 

TABLE 

CHR55  = 

000116         FA. 

UCK=  02GG00 

F.  ALOC=  OGOOHG 

F. RSIZ=  000002 

R.  FIX  = 

OOOGOl 

CH,  RND= 

000001         FA. 

WRT=  00GG02 

F.  BBFSs  000062 

F. RTYPs  OOOGGO 

R.  seo  = 

000003 

CNT5%  = 

000002         FOB  IN  -  tttttt   GX 

F.  BOB  =  Gn0G70 

F.  SEQNs  OGOIGO 

R.  VAR  = 

000002 

CSIERR= 

tttttt   GX       FO. 

BLK=  GGGGIO 

F.  BGBC=  f  ,0057 

F. SPDVs  000072 

SIZSS  = 

000002 

CS  DIF= 

000002         FD. 

CCL=  GGGG02 

F. BKDNs  000026 

F.  SPUNs  000074 

SUREN  = 

tttttt   GX 

CS.  DUF  = 

00000^         FD. 

COM=  G20G00 

F.  BKDS=  000020 

F. STBKs  000036 

SUTAB 

G00274R 

002 

CS.  EQU= 

0000^0         FD. 

CR  =  0GGGG2 

F. BKEF=  OOOOSO 

F.  UNIT=  000136 

SUTBN  s 

tttttt   GX 

CS.  INP  = 

000001         FD. 

DIR=  OOGGIO 

F. BKP1=  0G0061 

F. URB0=  0G0G2G 

S.  FATT= 

000016 

CS.  MOR  = 

000020         FD. 

FTN=  GGOGGl 

F. BKST=  0G0024 

F. V8N  =  000064 

S.  FOB  = 

000140 

CS.  NMF  = 

000001         FD. 

Fll=  140000 

F.  BKVB=  000064 

F. V6SZ=  000060 

S.  FNAMs 

000006 

CS.  OUT  = 

000002         FD. 

INS=  OOGGIO 

F.  CHR  =  000075 

LUKUP   OOGOOOk.1 

002  S.  FNB  = 

000036 

CS.  WLD= 

000010         FD. 

ISP=  GG200G 

F.  CNTG=  000034 

NB.  0£U=  00G20G 

S.  FNBUs 

000017 

C.  CMLD- 

000002         FD. 

MNT=  100000 

F.  DFNB=  000046 

NB.  DIR=  000100 

S.  FNTYr 

000004 

C.  DEVD= 

000006         FD. 

0SP=  004000 

F.  0SPT=  000044 

NB.  NAM:  000004 

S.  FTYP= 

000002 

C.  DIPD= 

000012         FD. 

PLC=  000004 

F.  DVNn=  000134 

NB.  SD1=  000400 

S.  NFEN= 

000020 

C.  DSD5= 

000006         FD. 

PSE=  010000 

F  EFBK=  000010 

NB.  SD2=  001000 

TAGEl 

G00023R 

003 

C.  FILD= 

000016         FD. 

RflH=  000001 

F.  EFN  =  000050 

NB.  SNM=  000040 

TAGE2 

000037R 

003 

C.  MKm  = 

00002M         FD. 

RflN=  000002 

F. E0BB=  000032 

NB.  STP=  000020 

TAGE3 

00GG54R 

003 

C.  MKW2= 

000026         FD. 

REC=  000001 

F.  ERR  =  000052 

NB.  SVR=  OOGGIO 

TAGE4 

000066R 

003 

C.  SI2E= 

00005^         FD. 

RWM=  000001 

F.  FACC=  000043 

NB.  TYP=  000002 

TAGE5 

0001 OGR 

003 

C.  STRT= 

000001         FD. 

SDI=  000020 

F.  FFBY=  000014 

NB.  VER=  000001 

TAGNUM= 

000005 

C.  SWRD= 

000022         FD. 

SQD=  000040 

F.  FNAM=  000110 

NRCVSF=  000000 

TAGl 

OOOOOOR 

003 

C.  TYPR= 

000000         FD. 

TTY=  000004 

F. FNB  =  000102 

NTRNSF=  000002 

TAG2 

000023R 

003 

DFBLK  = 

tttttt   G.X       FD 

WBH=  000002 

F.  FTYP=  000116 

N.  DID  =  000024 

TAG3 

000037R 

003 

FR.  flPD= 

000100         FF. 

CHR=  OOOOOE 

F.  Fl/ER=  000120 

N.  DVNM=  000032 

TAG4 

000054R 

003 

Ffl.  CRE= 

GOOOlO         FF. 

NV  =  000003 

F  HIBK=  000004 

N.  FID  =  000000 

TAG5 

000066R 

003 

Ffl.  DLK= 

001000         FF. 

P0E=  000002 

F.  LUN  =  000042 

N.  FNAM=  000006 

TRNSBL= 

tttttt   GX 

Ffl.  ENB= 

lOOOOO         FF. 

RUD=  000001 

F. MBCT=  000054 

N.  FTYP=  000014 

TRNSE  = 

tttttt   GX 

Ffl.  EXC= 

002000         FF. 

RUF=  000006 

F.  MBC1=  000055 

N.  FVER=  000016 

TYPMS1= 

tttttt   GX 

Ffl.  EXT= 

OOOOOH         FF. 

SPC=  000004 

F.  MBFG=  000056 

N.  MEX1=  000022 

XMTSWT= 

tttttt   GX 

Ffl.  NSP= 

000100         FILDES=  tttttt   GX 

F.  NRBD=  000024 

N.  STAT=  000020 

55 

OOOGGO 

Ffl.  POS= 

010000         FO. 

flPD=  000106 

F.  NREC=  000030 

N.  UNIT=  000034 

. CSI2  = 

tttttt   G 

Ffl.  RD  = 

000001         FO. 

MFY=  000002 

F.  OVBS=  000030 

PAR555=  000027 

.FIND  = 

tttttt   GX 

Ffl.  RWO= 

004000         FO. 

RD  =  000001 

F.  RACC=  000016 

PROnPT=  tttttt   GX 

. PARSE= 

tttttt   GX 

Ffl.  SEQ= 

OHOOOO         FO. 

UPD=  000006 

F.  PATT=  000001 

PSX   =  OOOCOl 

.  .  .  GBL  = 

000000 

i 

Ffl.  SHR= 

000040         FO. 

WRT=  000016 

F.  PCNM=  000034 

PSX11M=  GOOOOl 

...TPC  = 

000140 

Ffl.  TMP= 

000020         F.  flCTL=  000076 

F.  RCTL=  000017 

.  flBS. 

000000     000 
000000     001 

MP  IN 

000316     002 

M£SflG2 

000100     003 

ERRORS  DETECTED:   0 

VIRTUAL 

MEMORY  USED:   3725 

UORDS   (  15  PAGES) 

DYNflMIC 

MEMORY:   4922  WORD? 

(  IS  PAGES) 

ELflPSED 

TIME:   00:00:27 

256,020  LOOKUP; 27,  25b- 03C 

1  lookup/crf.-sp=urff: 

■:naooK  UP 

E  5 

LOOKUP 

CRERTED  BY 

MRCRO  ON  6 

-OEC-77  RT 

08:  25 

PPGE  1 

SYMBOL 

CROSS  REFERENCE 

CREF 

SYMBOL 

VRLUE 

PREFERENCES 

CHPS-i 

=  000116 

»3-99 
II3-100 

3-99 
3-100 

3-99 
3-100 

113-99 

3-99 

3-99 

»3-100 

3-100 

3-100 

CNTSS 

=  000002 

»3-99 
»3-100 

3-99 
3-100 

»3-99 
3-100 

3-99 
113-100 

3-99 
3-100 

»3-99 

3-99 

113-100 

J-100 

CSIERP 

=  tttttt 

GX 

2-81 

2-86 

CS.  INP 

=  000001 

2-64 

CS  MOR 

=  000020 

2-71 

C.  DSDS 

=  000006 

2-57 

C  SIZE 

=  00006H 

2-54 

C.  STRT 

=  000001 

2-71 

C.  SURD 

=  000022 

*2-54 

0«^BLK 

=  tttttt 

GX 

2-58 

FDBIN 

=  tttttt 

GX 

2-56 

FILDES 

=  tttttt 

GX 

2-54 

2-54 

2-57 

2-71 

LUKUP 

000000 

RG 

»2-51 

NB.  SMM 

=  oooo^o 

2-61 

NB  SIP 

=  000020 

2-61 

r<B.  SUP 

=  000010 

2-61 

NRCVSF 

=  OOODOO 

»l-5 

NTRNSF 

=  000002 

»l-4 

N.  STRT 

=  000020 

2-61 

PRRS5S 

=  000027 

«2-54 

2-54 

PROMPT 

=  tttttt 

G.v 

2-S4 

n      C"7 

2-89 

PSX 

=  000001 

nl-2 

2-49 

RSXllM 

=  000001 

«l-3 

SI  255 

=  000002 

nZ-99 

3-99 

3-99 

3-99 

;3-100 

3-100 

3-100 

3-100 

SUREN 

=  tttttt 

GX 

^2-52 

3-100 

SWTRB 

00027^ 

R 

2-54 

;3-98 

SUTBN 

=  tttttt 

GX 

*2-53 

2-66 

3-99 

S.  FNB 

=  000036 

2-65 

TflGEl 

000023 

R 

2-76 

«:-76 

TPGE2 

000037 

R 

2-S2 

»2-S2 

TfiGE3 

000054 

R 

2-84 

»2-S4 

TRGEH 

000066 

R 

2-87 

{J2-S7 

TRGE5 

000100 

R 

2-S9 

«2-89 

TRGNUM 

=  000005 

»1-S 

2-76 

It  i<   1  D 

2-76 

2-84 

»2-84 

2-84 

2-87 

«2-S7 

4-  -  b  1 

2-S9 

82-S9 

2-S9 

TRGl 

000000 

R 

2-76 

2-76 

«2-76 

TflG£ 

00002Z 

R 

2-82 

2-82 

«2-S2 

TRG3 

000037 

R 

2-84 

2-84 

IJ2-S4 

TPG^ 

000054 

R 

2-87 

2-87 

«2-S7 

TRG5 

000066 

R 

2-89 

2-S9 

«2-S9 

TPMSBL 

=  tttttt 

GX 

2-75 

2-90 

TRNSE 

=  tttttt 

GX 

2-73 

TYPrlSl 

=    tttttt 

GX 

2-76 

2-82 

:-s4 

2-S9 

XMTSWT 

=  tttttt 

GX 

2-67 

S5 

=   000000 

nZ-99 

3  09 

«3-99 

3-99 

S3-99 

3-99 

»3-?9 

Z-99 

S3-100 

3-100 

«3-lLn 

3-100 

«t3-100 

3-100 

»3-i0iJ 

Z-IijO 

.  CSI2 

=  tttttt 

G 

2-54 

2-54 

FIND 

=  tttttt 

GX 

2-63 

.  PRPSE 

-  tttttt 

GX 

2-59 

F     5 

LOOKUP  CPERTED  BY     nflCRO     ON  b-DEC-77  OT  08   25  PRGE   2 

M^^CPG  CPOSS  REFERENCE  CREF 

MRCPO  r^PriE  REFERENCES 

CRLL  »2-35  I2-59  112-63 

CSIS  «2-54 

CS'SND  «2-35  U3-101 

CSiSSy  «2-35  «3-99  113-100 

CS1S2  «2-35  «2-5H 

EPPOP  «l-9 

EPPOPK  »l-lb 

EPPOPM  «l-32  «2-76  »2-82  l«2-8^  «2-87  »2-89 

EPPOPP  «l-^7  2-76  2-82  2-8i*  2-87  2-89 

rPTOL  «l-53 

FCSBT^.  82-35  «2-37 

FDOFFS  r:-35  «2-3fc 

lDPOS  Sl-SH  »2-BU 


nPKPNT     nPCPO  nnOH     Ob-DEC-??  08:  25     PfiGE   1 


G     5 


1 
2 

OOOOOl 

7 

OOOGOl 

4 

000002 

B 

000000 

D 

7 

0 

ocoooo 

Q 

10 

11 
1  -• 

13 

1^ 

15 

lb 

r 

IS 

1? 

zo 

21 

22 

97 

24 

2B 

2b 

27 

28 

29 

30 
31 

■n  .-! 

33 
2H 

IS 
3b 
Z7 
3B 

HO 
HI 
H2 
Hj 
HH 
H6 
H6 
H7 
M8 
H9 
50 
5t 
52 
53 
5«# 
§5 
56 


;  PREFIX  FILE  FOR  2*^80  URP  RUNNING  UNDER  RSXllM 
RSX=1 

9sxnn=i 

NTRNSF  =  2  ;NUriBER  OF  FILES  -  1  TO  TRflMSFER  IN  ONE  CMMO  STRING  (3) 

NRCVSF=0  ;NUnBER  OF  FILES  -  1  TO  RECEIVE  (1) 


;nfiCRO 

DEFINITIONS 

TPGNUMs 

0 

.  MACRO 

ERROR   TEXT 

ERRORK 

<TEXT> 

JSR 

PC.PROnPT 

.  ENDM 

;  MfiCPO 

TO  DO  P 

KILL  RND  QUE 

/ 

. nflCRO 

ERRORK  TEXT 

TflGNUn= 

TRGNUM+1 

.  IRP 

N,  <  TflGNUM) 

JSR 

R5.TYPnSG 

.  WORD 

TflG'N 

.  WORD 

TRuE'N-TOG'N 

PSECT 

MESfiG2,GBL 

TOG'N: 
TfiGE'N: 

.  flSCil 

"TEXT" 

.  PSECT 

MAIN 

.  ENDn 

.  ENDM 

nPCRO  TO  QUEUE  A  MESSAGE  ONlY 


TAG  •  N: 
TAGE'N: 


.  MACRO 

ERRORM  TEXT 

TAGNUM= 

TAGNUM+! 

.  IRP 

N, <  TAGNUM) 

JSR 

RB.TYPMSl 

.  WORD 

TAG'N 

.  WORD 

TAGE'N-TAG'N 

.  PSECT 

MESAG2.GBL 

ASCI  1 

"TEXT" 

. PSECT 

MAIN 

ENDM 
ENDM 


MACRO  TO  QUEUE  A  MESSAGE  AND  PROMPT 

.  MACRO  ERRORP   TEXT 

ERRORM  <TEXT> 

JSP  PC, PROMPT 
.  ENDM 


.  MACRO  FATAL 

ERRORK  <TEXT> 

JSP  RS-DIE 
.  ENDM 


TEXT 


nPrPHT  nflCPO  nn04  Ob-DEC-77  08:  25  PRGE  2 


H  5 


1 
Z 
I 

B 

6 
7 
8 

9 

10 
M 

i: 

14 
15 
lb 
I" 
IS 
1? 
20 
21 

23 

2^ 

26 
2b 
27 
28 
29 
30 
31 
32 
ZZ 
34 
3B 
3b 


000000 


TITLE  riRKPNT 
.  I  DENT  /00006/ 

COPYRIGHT  (C)  1975.  1976.  1977 

DIGITfiL  EQUIPHENT  CORPORRTION.  nflYNflRD.  flflSS.  0175^ 

THIS  SOFTWARE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
R  SINGLE  COMPUTER  SYSTEM  AND  MAY  3E  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED 
OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
niTMENT  BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPCNS IB IL ITY  FOR  THE  USE  OP  RELIABILITY 
OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY 
DEC. 

VOO-H  10/1/7H 

ROUTINES  TO  SAVE  AND  PESOPE  PLACE  !N  FILE 

MPCPO  CALLS 

.  MCALL   CALL. RETURN 

.  PSECT  MAIN 


;  + 


**-POINT  -  POINT  TO  PLACE  IN  FILE 
INPUTS: 

POINTl-3  -  COPPESPOND  TO  P1-P3  SAVED  AFTER  .MARK 


OUTP 


UTS: 


39 
40 

m 

42 
4i 
44 
45 

47 
48 
49 
50 
51 
52 
53 
54 
55 
56 


000000 
000004 
OOCOIG 

0000  m 

000020 
00002H 
000030 
000032 
0000H6 
000050 
000052 
000056 
000062 


0045S7 
012700 
016701 
016702 
016703 

103010 

000261 
000402 
105067 
004567 


OOOOOOG 
OOnoOOG 
OOOOOOG 

oonoooG 

OOOOOOG 


OOOOOOG 
OOOOOOG 


POINT: 


lOS: 
20S: 


FDB  IS  SET  SO  NEXT  READ  WILL  PETREIVE  THE  RECORD  AFTER  THE 
ONE  LAST  READ  BEFORE  THE  CALL  TO  MARK 


.  ENABL 

JSP 

MOV 

MOV 

MOV 

MOV 

CALL 

BCC 

ERROR 

SEC 

BR 

CLRB 

JSP 

RETURN 

.  DSABL 


R2 
R3 


LSB 

R5,C.  SREG 

;fdbin.ro 

P0INT1,R1 

P01NT2, 

P0INT3 

. POINT 

10% 

\POINT  ERR) 

20S 

ELATCH 
P5.C. SPES 

LSB 


SAVE  THE  REGISTERS 
, FDB  ADDRESS 
RETRIEVE  SAVED  POINTERS 


CALL  PCS  TO  SET  UP  FDB 
BRANCH  IF  NO  ERROR 
ERROR  WHILE  TRYING  TO  POINT 
;SET  THE  CARRY  FLAG 
AND  RETURN 
ALLOW  READS  AGAIN 
RESTORE  THE  REG 'STEPS 
AND  RETURN 


nPl-PNT  nOCPO  nnOH  Oo-DEC-77  08:  25  PRGE  3 


5S 

bO 
bl 
hZ 
hZ 

bU 

bS 
bb 
b7 

bS 
69 

n 


'4 


00006^4 
000070 
000076 
000102 
000106 

ooon: 

000116 

ooci:: 

000130 
000! 34 


0C4B67 
1B276^ 
012700 

010167 
010267 
010367 
152767 
00i*5t7 


000001 


OOOOOOG 

000200 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000040 

OOOOOOG 


«t-riRKFiL    -   SOVE   PLfiCE    IN  FILC 
INPUTS 

NONE 
OUTPUTS: 

POlNTl-3  CONTAIN  R1-R3  AFTER  COLL  TO  PCS  ROUTINE  .  MPRK 


OOOOOOG 


flPKFIL: 


OOOOOOG 


JSR 
BiSB 

nov 

CRLL 

MCV 

iluU 

MOV 

BiSB 

JSP 

PETUPN 

.  END 


R5,C.  SREG 

»200,ELRTCH 

«FDBIN.RO 

.  nORK 

Rl.POINTl 

R2.P0INT2 

P3,P0INT3 

^UOTXPEN 

P5,C.  SPES 


;SflVE  THE  REGISTERS 

;N0  MORE  RERDS 

;GET  ADDRESS  OF  INPUT  FOB 

;CflLL  PCS  ROUTINE  TO  FIND  PLACE 

;SAVE  INFO  RETURNED 


;PEnEriBER  TO  CONTINUE  LATER 

RESTORE  THE  REGISTERS 
.AND  RETURN 


N  FILE 


J 


-  'tlBOL 

C   SPEG= 

C.  SRFS= 
ELOTlH= 
FOB  IN  = 
nPK.FiL 

QBS. 

MR  IN 

MESflG2 
tPPOP 


riRCPO 

TRBLE 


nno^  06-DEC-77  os.  25  prge  3-1 


J  5 


tttitt   GX 

♦  ^([tlikt  GX 
:  ittttt  GX 
:  *»**«»  GX 

000064RG    002 

GGOOGO  GGO 

OGGOOO  OGl 

0GG13fe  002 

OGOOn  003 

DETECTED.  0 


NRCUSF: 
NTFNSF; 
P01..T 
POINTl: 


OOGGOO 
000002 
GOOOOORG 

)([ t )|[ 1 1 ]t^  GX 


002 


P0INT2= 

ntttt 

GX 

Rsxiiri= 

000001 

P0INT3= 

ttnn 

GX 

TRGEl 

00001 IR 

PROMPT= 

ntttt 

GX 

TflGNUM= 

000001 

RSX 

000001 

TflGl 

OOOOOOR 

TXPEN  =  tttttt  GX 

003  TYPnSG=  tttttt  GX 

.  MPRK  =  tttttt  GX 

003  .  POINTS  tttttt  GX 


mRTUPL  nEnOPY  USED:   635  UORDS   (  3  PAGES) 
DfNRMIC  MEMOPY:   28 10  WORDS   (  10  ''flGES) 
ElPPSED  TIME:   00:  GO  Ofc 
:Sb-ij:0  f1PKPNT.;27.  256-030  riPKPNT,'CPF/-SP  =  UnPP>:ri.  riPKPNT 


nRKPNT  CRERTED  BY 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VRLUE 

C  3REG  =  tttttt     GX 

C,  SRES  =  tttttt     GX 

ELPTCH  =  tttttt     GX 

FOB  IN  :  tttttt      GX 

MRKFIL  00006H  RG 

NPCVSF  =  OOOGOG 

NTRNSF  =  00GG02 

POINT  OOGOOO  RG 

POINTl  =  tttttt      GX 

P0INT2  =  tttttt      GX 

POINTZ  =  tttttt      GX 

PPOMPT  =  ******  GX 

PSX  =  OOOGOl 

PSXlin  =  OGOGOl 

TPGEl  OCOOll  R 

ThGNUM  =  000001 

TPGl  000000  P 

TXPEN  =******   GX 

TYPnSG  =  ******  GX 

.  MRPK  =****♦*   GX 

POINT  =  t*nM   GX 


HRCRO  ON  b-DEC-77  RT  08:  25 


REFERENCES 

2-H3 

2-5H 
«2-53 

2-HH 
»3-6B 
»l-5 
»l-^ 
82-43 

2-45 

2-46 

2-H7 

2-50 
81-2 
81-3 

2-50 
81-S 

2-50 

2-50 
3-bS 

2-4S 


PRGE  I 
CREF 


K  5 


3-65 

Z'7Z 

*3-66 

3-67 


»3-69 
*3-70 
«3-71 


82-50 
2-50 
2-50 


82-50 
82-50 


2-50 


nPKPNT 

CPERTED  BY     MRCRO     ON 

nnrpo  rPOSS 

PEFERENCE 

iiplPO  nfiriE 

REFERENCES 

COLL 

»2-29 

2-148 

EPPOP 

»l-9 

2-50 

EPPOPK 

»1-1G 

2-50 

EPPOPn 

111-32 

EPPOPP 

SI-H7 

FRTQL 

M-53 

PETUPN 

;2-29 

2-55 

L  5 
6-DEC-77  AT  08:  25      PfiGE  2 

CREF 

3-68 


7-' 


n  5 

conTEx-nocPos   nocRO  nno^  oe-DEC-??  08- 24 

ThBLE  0^    CONTENTS 

3-  Z\  COMTEX  riRCRO  DEFINITIONS 

S-   S3      INITRLIZE  LINE  TABLES 


1N1T9L 

URCPO 

nUQH  Ob- 

■DEC-77  08- 

t 

2 

000001 

3 

OOOGOl 

H 

000002 

S 

000000 

b 

7 

8 

OCGOOO 

Q 

10 

11 

i: 

13 

14 

IB 

lb 

r 

IS 

19 

:o 

21 


2H 
2B 
2b 

28 
29 

30 
31 
32 


34 
35 
36 
37 
3S 
39 
40 
41 
42 
43 
44 
45 
4b 
47 
4S 
49 
50 
51 
52 
53 
54 
55 
56 


N  5 


;PREFIX  FILE  FOR  2780  UQP  RUNNING  UNDER  RSXllM 

RSX=1 

RSXliri=l 

NTRNSF=2  ;  JMBER  OF  FILES  -  1  TO  TRflMSFER  IN  ONE  CMMD  STRING  (3) 

NRCVSF=0  ;NUnBER  OF  FILES  -  1  TO  RECEIVE  (1) 

;MRCRO  DEFINITIONS 
TRGHUM=0 

.  MACRO  ERROR   TEXT 
ERRORK  <TEXT> 
JSP     PC.PROnPT 
.  ENDn 

;  MPCPO  TO  DO  R  KILL  AND  QUEUE  THE  MESSRGE 


.  nPICRO 

ERRORK  TEXT 

TflGNUM= 

TRGNUn+1 

.  IRP 

N.  <  TflGNUn> 

JSR 

R5.TYPnSG 

.  WORD 

TRG'N 

.  WORD 

TRGE'N- TRG'N 

.  PSECT 

nESflG2.GBL 

TRG'N: 

.  flSCI 1 

"TEXT" 

TOGE  '  N: 

.  PSECT 

MR  i  N 

.  ENDn 

.  ENDM 

MRCPO  TO  QUEUE  R  MESSAGE  ONlV 


.  MRCPO 

ERPOPM  TEXT 

TRGNUn= 

TRGNUf1+l 

.  IPP 

N.  <  TRGNUM) 

JSP 

R5.TYPnSl 

.  WORD 

TRG'N 

.  WORD 

TRGE'N-TRG'N 

.  PSECT 

MESflG2-GBL 

TRG'N: 

.  flSC  1  1 

"TEXT" 

TRGE'N: 

. PSECT 

MR  IN 

.  ENDM 

.  ENDM 

MRCPO  TO  QUEUE  R  MESSAGE  RND  PROMPT 

.  MRCPO  ERROPP   T'.XT 

EPPOPM  vTEXT> 

JSP  PC- PROMPT 
.  ENDM 


MRCPO  FRTRL 

EPPOPK  aEXT> 

JSP  P5.DIE 
.  ENDM 


TEXT 


:;a:.4JJU5tt:.*^^*^5«.*^>i.-*-;u.u;i::.««t::;;;;;;3^s«:;s- 
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1 
2 
3 

H 

5 

6 

7 

8 

9 

10 

11 

12 

1  3 

14 

IB 

ib 

17 
IS 

r? 


.TITLE   COMTEX-MflCROS 
.  iOENT  /00002/ 

COPYRIGHT  197H,  1975,  1976,  1977 

DIGITAL  EQUIPnENT  CORP. 

mb  MAIN  STREET        MflYNflRD,  MASS.  C1754 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR 
RELIABILIFY  OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH 
IS  NOT  SUPPLIED  BY  DIGITAL 

VERSION  0 

23-SEPTEMBER-7^ 

VERSION  1 
SEP  1977  -  CEP 

MODIFICATIONS  FOP  CUT  CODE  liEPSION  OF  2780 
LIBPTiPY  OF  COMTE^''  MACRO  DEFINITIONS 


cCiiTEx-nfiCPOs     nocRO  nno^ 

COMTEX  HRCPO  DEFINITIONS 

2t 
ZZ 
23 
2* 
2S 
2^ 
27 
2t 
29 
311 
3t 
32 
33 
Z^ 
35 
36 
37 
38 
39 
tiO 
HI 

Ha 

H3 

HH 

H7 
t»8 

Hf 

SO 
6! 
S2 
53 
5H 
55 


06-DEC-77  08:  24     POGE   3 


C     6 


.  SBTTL  COflTEX  MflCRO  DEFINITIONS 

.  MfiCRO  LINIT,PRRLST 

nOV  «P«RLST,Rl 

JSP  PCEflTlNT 
.  ENDM 

.  MfiCRO  flSRBUF,PRRL3T 

MOV  IIP0RLST,R1 

JSP  PC.EMTPUT 

.  ENDI1 


.  MflCPO 
MOV 
JSP 
.  ENDM 

.  MflCPO 
MOV 

JSP 
.  ENDM 

.  MflCPO 
JSP 
.  ENDM 

.  MflCPO 
MOV 
JSP 
.  ENDM 

.  MflCPO 
MOV 
JSP 
.  ENDM 


PUTTCPflPLST 

«PflRLST,Pl 

PCEMTPUT 


PUTMC-PflPLST 

«PflPLST.Pl 

PCEMTPUT 


GETS 

PC    EMTGET 


PUTTM,PflPLST 

«P0PLST<P1 

PC-EMTTin 


PUTD.PflPLST 

nPflPLST.Pl 

PC. EMTPUT 


INITRL      nfiCPO  nllO^     nb-DEC-77  08:  2^ 
COnTEX   HRCPO  DEFINITIONS 


t 

2 
3 

S 

7 
8 


PfiGE  H 


D  6 


^0 
21 
22 
23 
24 
26 
26 
27 
28 
29 
30 
31 
32 
2Z 
34 

3B 

7<:. 


38 
39 
HO 

42 
4j 
44 
45 
4fa 
47 
48 
49 
50 
51 
52 
53 
54 
55 
5b 
57 


OOOOGO 


1  f  I  I  ■  b 


000000 


000000' 


000000 


.  TITLE   INITOL 
.  I  DENT  /00013/ 

COPYRIGHT  (C)  1974,1975.1976,1977 

DIGITAL  EQUIPflENT  CORPORflTION,  MflYNPRD,  MflSS. 

THIS  SOFTWRRE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY 
ON  fl  SINGLE  COnPUTER  SYSTEM  RND  MAY  BE  COPIED  ONLY  UITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRiSHT  NOTICE.   THIS 
SOFTUARE,  OR  ANY  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR 
OTHERUISE  HADE  AVBAILABLE  TO  ANY  OTHER  PERSON  EXCEPT 
FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE 
LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE 
SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MITMENT BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OP  RELIABILITY 
OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY 
DEC. 


BLR   7/08/75 

nODlFlEb  FOP  PT-ll  V02-1  «F/B) 
MODIFIED  FOR  CUT  CODE  >'EPSI0N 
CEP  S/77 


EDIT  5 


MODIFIED  TOCLERP  SST  VECTORS 

CEP  9/77 

MODIFIED  TO  NOT  CLEflP  CSP  iF  CALLED  WHEN  SOMEONE  ELSE  USING  DEVICE 

CEP  10.'77 


INITIRLIZATION  AND  EXIT  ROUTINES 


IFDF  PSX 

PSECT  MAIN 

ENDC 

IF  DF  RTll 

CSECT   INITIfl 

GLOBL   CP.TIC 

ENDC 


;CPE  TiMEF  IN  T! 


PS=17777b 


MACPO  CALLS 

IF  DF   PSX 

MCALL   DIPS- WTSE^S- EXIT5SF INITS- Q'OS-GrCP^ 

IF  NDF  PSXllM 

MCALL   CLEFSS 

ENDC 

QIOLBL:  010%  ;JUST  DEFINE  QIC  OFrSETS 

.  =QI0LBL  .;OuEPLflY  QIO  PPER 


GMCR;  GMCRS 
.  ENDC 
.  IF  DF  RTll 


,GET  MCR  COMMflND  LINE 


INIiqi      MRCPO  nnOH     Ob-DEC-77  08:  2H 
COMTEX   HRIPO  DEFINITIONS 


IS 
61 


PfiGE  H-1 


.  nCRLL 
.  riCRLL 
.  .  U2.  . 
.  ENDC 
MfiCRO  DEFINITIONS 


E     6 


.  V2..  ..  PRINT,.  HRESET,.  EXIT 
QSET.RCTRLO 


b7 
b8 
69 

70 
71 
72 
73 
7^ 
75 
76 
77 
78 
79 
80 
81 


IF  OF  RSXlin 

MPCRO  DIV     DISOR.DEND 

IF  DIF  <DEND>, <R0> 

MOV  DEND.RO 

IFF 

MOV  R1,R0 

ENDC 

I  IF  DIF  DISOR.Rl       MOV 

CPLL  5DIV 

ENDM 


MRCRO 
I  IF  D 
I  IF  D 

CALL 
ENDM 

.  ENDC 


MUL     MIEP/MCRND 
F  MIEP.PO       MOV 
F  MCRNDRl       MOV 

SriUL 


D!S0P,R1 


MIEP.PO 
MCRND. PI 


NlTfiL      n«CPO  nnOi+     Ob-DEC-77  08:  24     PRGE   5 

MITPLIZE   LINE   TRBLES 


F   e 


33 

35 
Sfe 
37 
88 
89 
90 
91 
92 

9H 

95 

9  b 
97 

98 

QQ 

100 
101 
102 
103 
lOH 
106 
lOfe 
107 
108 
109 
110 
111 
112 
113 

im 

IIB 

life 

117 

lis 

119 
120 
121 
122 
123 
124 
12b 
12b 
127 
128 
129 
130 
131 
132 
133 
134 
13E 
136 
137 
138 
139 


000134 
000142 
0001 52 
000154 

000162 
000166 
000172 
000176 
000206 

000210 


000214 
000216 
000220 


SBTTL   INIT9LIZE  LINE  TfiBLES 


*»-INITPL  -  INITIflLIZE  LINE  TABLES,  DEVICE  VECTORS  ETC. 


INPUTS: 

NONE 
OUTPUTS: 

EXITS 
F  DF  RSX 

THE  B 


UITH  BUFFERS  ASSIGNED  AND  LINE  TABLES  INITIALIZED 


ENDC 
CALL 


000122  005066 
000126   112767 


000002 
OOOOOOG 


NITOL: 


OOOOOOG 


012767  000777  000330 


100503 
012767 

012703 
062703 
012701 

010146 

016701 


01C123 
006201 
010123 


OOOOOOG  000310 

00n^72• 

000006 
000003 


OOOOOOG 


SYNC  TAP  TinER  ARE  ALSO  CALCULATED  BY  THIS  ROUTINE 
FOR  THE  RSX  2780 'S.  THE  CRB  'iMER  AND  THE  SLAVE  RECEIVE  TIMER 
ARE  SPEED  AND  CLOCK  TICS  PE  SECOND  DEPENDENT.  IN  THE 
CALCULATIONS  BELOW  THE  FORMULAS  ARE  BASED  ON  FOR  A 
2000  BAUD  LINE  WITH  A  CLOCK  RUNNING  AT  60  TiCS  PER  SECOND 
IF  THESE  ARE  THE  PARAMETERS  OF  THE  TARGET  SYSTEM  THEN  THE 
SLAVE  RECEIVE  TIMER  WILL  BE  102.  TICS  AND  THE  CRB  TIMER  WILL 
BE  5.  TICS 


NG  SEQUENCE: 

JSR 

PC, INITAL 

.  GLOBL 

INITAL,DONE,RC 

.  GLOBL 

BASELN,COnflV,C 

.  IF  DF 

RTll 

.  GLOBL 

QLSTRT 

.  ENDC 

.  ENABL 

LSB 

CLR 

2(SP) 

MOVE 

«COMflV-CMBFflV 

.  IF  DF 

PTll 

.  RCTRLO 

.  QSET 

»QLSTPT,»10. 

8  1  SB 

nl00,ail»44 

.  ENDC 

MOV 

«RSTRT, INTPflR 

LINIT 

INTPflP 

BMI 

lOS 

MOV 

;baseln. intprr 

.  IF  DF 

RSX 

MOV 

??INTPAP,R3 

ADD 

«6,R3 

MOV 

»3,R1 

MUL 

»D.  SPED,R1 

MOV 

R1.--(SP.) 

.  IF  DF 

RSXllM 

MOV 

STKPS.Rl 

.  IFF 

MOV 

.  TKPS.Pl 

.  ENDC 

MOV 

Rl.  (R3)  + 

ASR 

Rl 

MOV 

R1,(R3)+ 

■RV 


;RE5FT 


RCVE  see  ERROR  COUNT 
;PRESET  COMM  BUFFERS  AVAIL 


; RESET  CONTROL  0 
SET  UP  FOR  EXTRA  QUEUE  ELEMENTS 
SET  UP  FOR  NO  STALL  ON  TTY  INPUT 
IMPORTANT  IN  F/B 

-SELECT  RESTART  LINIT 
;D0  RESTART  LINIT 
; CAN'T  RESTART 
; SELECT  START 

; POINTER  TO  PARAMETER  LIST 
, POINT  TO  TIMER  AREA 
;MOVE  CONSTANT  TO  Pi 
; MULTIPLY  BY  LINE  SPEED 
;SAVE  DIVISOR  ON  STACK 

;GET  TICKS  PEP  SECOND 

;GET  TICKS  PER  SECOND 

;SflVE  AS  BID  TIMER 

;{?  OF  TICKS  IN  1/2  SECOND 

.SAVE  AS  INTF.PVRL  TiMEP  TO 

: CHECK  SLAVE  RND  MRSTEP  1  mEOUTS 


INITRL   MflCPO  nilOH   Ob 

-DEC-77  08;  24 

INITQL IZE  LINE 

TABLES 

mo  000222 

012723 

000006 

mi 

m2  000226 

012/23 

000006 

14  3  000232 

005000 

mi+ 

14B  00023^ 

016701 

OOOOOOG 

mb 

m? 

ms 

m9  000240 

150  000250 

151  000260 

010013 

152 

153  000262 

154  000272 

100433 

155 

PRGE  5-1 


15b 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

17S 

179 

ISO 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 


0002:'4   10EG37  17777b 

000300  C05077  OOOCOOG 

000304  012777   177777  OOOOOOG 


000312 


000320 
000326 
000334 
000342 


000354 
000360 


000362 
000372 


000011 
000011 
000014 
000017 
000022 


OUMES: 


012767  OCOOll '  000014G 
012767  000012  0000 16G 


000207 


000167  000054 


105: 


122 
040 
063 
060 


112 

126 
055 


Ipc^ 

060 
060 


HEinSG. 


nou 

MOV 

CLR 

.  IF  OF 

MOV 

.  IFF 

MOV 

.  ENOC 

MUL 

DIV 

MOV 

.  ENDC 

LIMIT 

BMI 

.  IF  DF 

MTPS 

.  IFF 

CLRB 

ENDC 
CLR 

.  IF  DF 
MOV 
.  ENDC 
.  IF  DF 
CLR 

PRINT 
PTS 

.  flSCIZ 
.  ENDC 
.IF    DF 
DIPS 


MOV 
MOV 
DIRS 
WTSESS 
.IF    NDF 
CLEFSS 
.  ENDC 
FIN  ITS 
RTS 
ENDC 

ERRORK 
JMF 
. DSflBL 


IF  DF 
PSECT 
flSCI  I 


G     6 


ff6, (R3)^ 

116.  (R3)4> 
RO 

Rsxnn 

$TKPS,R1 

.TKPS,Rl 

HS.Rl 
(SP)+,RO 
RO, (R3) 

INTPflR 
lOS 
LSlll 
SO 

alSPS 

ilTRNSSL 

RSX 

;-l,iPCbBLK 

RTil 

alRCVBLK 

SOUMES 

PC  ; 

"RTll  RBT  V03-0G" 

PSX 

nGMCP  :THIS  DIRECTIVE  IS  DONE  MERELY  TO 

:FREE  THE  MCR  BUFFER  SO  THRT  ANOTHER 
,TflSK  CRN  USE  IT.  NOTHING  IS  DONE 
;UITH  THE  DRTfl  RERD. 
»HELMSG,QDPBM+Q.  lOPL    ; RDDR  OF  MESSAGE 
nHELLNG<CiDFBM  +  Q.  IOPL  +  2  .LENGTH  IN  BYTES 
SQDPBM         ; QUEUE  THE  URITE 
»5  ;WRIT  FOR  ITS  COMPLETION 

RSxiin 

»5 


; MASTER  TIMEOUT  VALUE  IS  6.  1/2 
;  SECOND  INTERVALS 
;SAVE  SLAVE  RECEIVE  TIMEOUT  VALUE 
.CLEAR  UORKING  REGISTER 

;GET  TICKS  PER  SECOND 

;GET  TICKS  PER  SECOND 

;MULTIPLY  BY  5 

; DIVIDE  BY  CONSTANT 

;SAVE  CRB  TIMER 

; INITIALIZE  THE  LINE 
;N0  GOOD 

CLEAR  PROCESSOR  STATUS  WORD 

; CLEAR  PROCESSOR  STATUS  UORD 

NO  TRNSMT  FILES  YET 

OP  PECEIUE  FILES 

OP  RECEIVE  FILES 
AND  RETURN 


PC 


<i.lNE  IMIT) 

DONEl 

LSB 


PSX 

MESflG2 

"RJE  V03-00" 


; INITiflLIZE  FCS 
;RND  PETUFN 


H     6 

NiTPL    npcpo  nno^    Ob-DEC-??  08:  2^    ppge  5-2 

NiTfiLiZE  LINE  TRBLES 

1"^^        000012  HELLNG=. -HELMSG 

1?B  000376  PSECT  tlPIN 

.  ENDC 


1  : 


NITRL  n«CPO  nnOH  Ob-DEC-??  08;  24  PRGE6 

NITRLIZE  LiriE  TOBLES 


19S 

> 

•f 

199 

> 

%t- 

DONE  -  DE- 

•INlTlfiLIZE  FIND 

200 

f 

201 

* 

INPUTS: 

202 

t 

NONE 

203 

t 

OUTPUTS: 

20H 

> 

EXITS 

205 

i 

COLLING  SEQUENCE: 

206 

.  IF  DF 

RTll 

207 

4 

' 

JflP 

DONE 

20S 

.  ENDC 

209 

.  IF  DF 

RSX 

210 

i 

4 

JSP 

PC. DONE 

21  2 

.  ENDC 

213 

/ 

.  IF  DF 

PSX 

214  000376 

DONE: 

WTSE^S 

«5 

215  ooomo 

012" 

'00 

OOODOOG 

MOU 

»TRBSST,PO 

216  ooomn 

012' 

'05 

000007 

MOV 

87-P5 

217  000420 

005020 

55: 

CLP 

(P0)+   ; 

21S  000422 

005 

305 

DEC 

P5 

219  000424 

001. 

375 

BNE 

55 

220  00042b 

012- 

"67 

00077"'  0000  3t. 

nou 

«PSTPT, INTPflP 

221  000434 

LINIT 

INTPflP 

222  000444 

EXITSS 

223  000452 

r 
L 

JONE 1 

224  000452 

WTSESi 

»5 

225  000464 

EXIT%2 

226 

.  ENDC 

229 

.  IF  DF 

PTM 

230 

DONE: 

m\j 

;PSTPT,  iNTPflP 

231 

MOV 

;  INTPflP..  -.SP) 

232 

LINIT 

233 

.  HPESEl 

234 

CLP 

PO 

235 

.EXIT 

21 1> 

.  ENDC 

URIT  FOR  MESSRGE'S  COMPLETION 

CLERR  OUT  SST  VEC  SO  DON'T  LOOP  ON  ERROR 


SET  UP  FOP  RESTART 

fiND  RESTART  (DISCONNECT  FROM  VECTORS) 


WRIT  FOP  MESSAGE'S  COMPLETION 

EXIT  -  DON'T  DO  PESTRPT  IN  CASE  SOMEONE 

ELSE  IS  USING  CSR 


SELECT  RESTART 
;SET  PRPRMETEP  BLOCK  RDDR  ON  STACK 
.AND  PESTRPT  (DISCONNECT  FROM  VECTORS) 
^KiLL  t/O-  RESET  MONITOR 

.RE TURN  TO  RT-11  MONITOR 


N'TflL      f1«CP0   nnOH      Ob- 
NiTfiL'ZE   LINE   TRBLES 


DEC-77  08:  2H     PPIGE   7 


J  6 


23S 

-779 

!•  ->  . 

240 

2m 

000777 

24  2 

24  3 

000003 

244 

000001 

246 

24b 

000472 

OOOG 

247 

000473 

000 

24S 

000474 

003 

24  9 

000476 

000000 

2B0 

2Sl 

252 

253 

254 

000500 

000000 

255 

000502 

000000 

25b 

000504 

000000 

00050b 

000000 

25S 

000510 

nooooo 

259 

260 

2b  1 

000001 

;♦ 


PRRRMETER  LIST 


NTPOR: 


001 


RSTRT=777 

DPISR=3 

BiTflPM 

.  BYTE 

BflSELN 

.  BYTE 

0 

.  BYTE 

DPiSR.BlTfiP 

.  UORD 

0 

.  iF  OF 

RTll 

.  WORD 

CR.  TIC 

.  ENDC 

.  IF  DF 

RSX 

.  WORD 

0 

.  WORD 

0 

.  WORD 

0 

.  WORD 

0 

.  WORD 

0 

.  ENDC 

;RESTfiRT  LINIT  PflRflrETER 
;LINE  277,    OPCODE  1 
;DP11  ISR  CODE 
;BISYNC  TAP  CODE 

;LINE  NUMBER 

;0P  CODE 

;DPn  iSR  AND  B  I  SYNC  TAP 

;FOR  ERROR  CODE 

;TICK  COUNT  FOR  B I  SYNC  TRP 


CONTENTION  T 
INTERVAL  FOR 
MASTER  TIMER 


MER    (TICKS) 
MASTER.  SLfll/E 
'.  INTEPl/ALS> 


TIMERS  iTlCKS) 


SLAVE  TIMER  (  INTER^'ALS) 
CRB  TIMER  (TICKS) 


END 


INlTflL 
SVnBOL 


tIfiCPO 
TRBLE 


^no^  Ofe-DEC-77  os-.m    prge  7-1 


K     6 


BRSELN= 

tittn   G 

GnCR 

OGOOOOR 

002 

QOPBM  = 

IllIXt  GX 

RCVBLK= 

tttttt 

BiTRP  = 

000001 

G.  nCRB  = 

000002 

QIOLBL 

OOOOOOR 

002  RSTRT  = 

000777 

<:riBFO'i= 

$tt%tt   G 

HELLNG= 

000012 

Q.  IORE  = 

000012 

RSX   = 

000001 

conpu  = 

tttttt   G 

HELflSG 

OOOOllR 

003 

Q.  IOEF  = 

000006 

RSXlin= 

000001 

DONE 

000376RG 

002  INITflL 

0001 22RG 

002 

Q.  IOFN= 

000002 

TRBSST= 

tttttt 

DONEl 

000452R 

002  INTPRR 

000H72R 

002 

Q.  IOLU= 

OOOOOH 

TRGEl 

OOOOllR 

DP  1 SR  = 

000003 

NRCVSFr 

000000 

Q.  IOPL  = 

oooom 

TflGNUM= 

000001 

D  SPED= 

iitttt   GX 

NTRNSFr 

000002 

Q.  IOPR  = 

000007 

TRGl 

OOOOOOR 

EnTINT= 

******  GX 

PS 

177776 

Q.  IOSB  = 

000010 

^BS. 

000000 
000000 

000 
001 

'■]Q  \  H 

0005 1 2 

002 

MtSflGZ 

000023 

003 

EPFOPS 

DETECTED: 

0 

•'  'PTUflL 

nEnOPY  USE 

:D;   1832  WOPD 

S   <:  S  PAGES) 

DYNPnic 

ME  nop V; 

1810  UORDS  ( 

10  PRuES) 

GX 


TRNSBL= 

tttttt 

G 

TYPnS6= 

tttttt 

GX 

$DIV  = 

tttttt 

GX 

$nuL  = 

tttttt 

GX 

$TKPS  = 

tttttt 

GX 

003 

SSSPRG= 

000000 

$$50ST= 

000122 

003 

.  FINIT= 

X»XI*« 

G 

ELRPSED    TIME.       00;  00:  26 
ZBb.02C    1N!TRL::7.    25b- 03G    INITRL 


CPF,  -SP  =  URPRXM,CTXriflC.  INITflL 


INITRL 

SYMBOL 

SVnBOL 

BRSELN 

BiTPP 

CMBFfl'u 

COMflV 

DOr^E 

DONE  I 

OP  1  SP 

D.  SPED 

EMTINT 

GMCR 

G.  MCPB 

HEILNG 

HELtlSG 

iNlTRL 

INTPflP 

LSI  11 

NP'IUSF 

t^TRNSF 

PS 

QDPBM 

QIOLBL 

Gl.   lOFN 

Q.   lOPL 

PCVBLK 

RSTRT 

RSX 

RSXllM 

RTll 

TRBSST 

TRGEl 

TRGNUM 

TRGl 

TRNSBL 

TYPMSG 

%DIV 

SMUL 

STHPS 

S'tSPFG 

S*SGLB 

.  F  I  N  I  T 


CPERTED  BY 
CROSS  REFERENCE 
VRLUE 

=  tttttt     G 
=  OOGOOl 
=  tttttt     G 
=  tttttt     G 

000376  RG 

000^52  R 
=  000003 
=  tttttt     GX 
=  tttttt     GX 

000000  R 
=  000002 
=  000012 

000011  R 

000122  RG 

000H^2  P 

=  n**i* 

=  OOOGOO 

=  ooooo: 

=  17:^77b 

=  ttttii     GX 

000000  P 
=  000002 
=  000014 

=  n  *.*.♦*  G 

=  000777 
=  000001 


MRCRO  ON  b-DEC-77  RT  08:  2H 


000001 
tttttt 

"  ^r  ^n  ^  ^  ^' 

000011 
000001 
OOOGOO 

****** 

■T  ^n  -"  ^  'T  ^ 

T  ^  ^  ^n  ^  '^ 

****** 
****** 

000000 

****** 

Mni* 


GX 


G 

GX 
GX 
GX 

GX 


REFERENCES 
5-107      5- 

«7-2^^     7- 

5-107  «5- 
5-107  5- 

5-lOb  »6- 

5-187  Hfc- 

»7-243  7- 

5-129 

5-122  5- 

8H-55  5- 

M-55 

5-176  «5- 

5-175  «5- 

5-106  85- 
*5-12l  5- 

5-155 
81-5 
»l-4 

«4-44  5- 

*5-l7B  *5- 
84-52  4- 

4-52 

*5-175  *5- 

5- 10b  5- 

E.-i:i 

81-2  4- 

6-213 
81-3  4- 

4-40  4- 

6-215 

5-1S6  86- 
81-S  5- 

5-lSb  5- 

5-lOb  5- 

5-lSb 

5- 150 

5-129  5- 

5-132  5- 

84-52  4- 

4-52  4- 

5-1S2  &-1S, 


124 

2^8 

im 
im 

214 
223 

248 

153 
171 

194 
193 
113 
122 


15S 
176 
53 

17b 
162 
220 

253 

4? 

57 

iSb 
ISb 
ISb 
16C 


14? 
145 
52 
55 


7-246 


6-221 

5-194 
*5- 124 


5-1 


8  7-24  1 
4-47 

4-64 
5-1  OS 


8  5- ISb 
85- 1  So 


PRGE   1 
CREF 


L     6 


5-126 


5-153 


*6-220 


b-221 


87-246 


B-92 

5-131 
E-115 


5-1S6 


5-125 

5-14U 
?-lb4 


5-161 

5-179 
6- 2Gb 


5-170 


t>~  ^^7 


5-191 


7-250 


6-209 


4-52 


1  N  1  TflL 

MPCPO 

nRCPO 

RSPBUF 

ChLL 

DIP^ 

D  1 1' 

EPPOP 

EPPOPK 

EPPOPM 

EPPOPP 

EXITSS 

FPTQL 

F  IfilTS 

GETS 

GncPS 

L  ir<!T 

noi'S 

MUL 

OFFS 
FUTD 

puinc 

PUTTC 
PUITM 
QOPB-i 
Q  1  0% 
WTSE%S 


CPERTED  BY 
CPOSS  PEFERENCE 


MRCRO  ON  6-DEC-77  PI  08  2^ 


MPME 


REFERENCES 

»3-28 

»5-l29 

;h-h8 

b-22i4 


«5-m9 

5-171 
«6-225 


«5-150 
B-177 
b-225 


»H-fe5 

«5-150 

«l-9 

»l-lb 

5-186 

81-32 

«1-H7 

«H-HS 

«6-222 

86-225 

«l-53 

8H-H8 

85-1S2 

«3-H3 

«^-4S 

S4-55 

5-122 

5-K3 

n5-17S 

5-178 

8b-2iH 

SH-75 

85-129 

85-m9 

«U-52 

n4-E.B 

n"^-c^: 

?3-3S 

M  7      -»  7 

f  j  -  3  i 

n3-'47 

;JH-E.2 

s^-b: 

tJH-us 

u-b: 

nU-4S 

fi5.-l"£ 

«b-::u 

PRGE   2 
CREF 


n    6 


86-222 
85-178 


86-225 
5-178 


86-2m 


6-211* 


86-222 


6-222 


86-22H 


b-::i 

6-214 


8b-::4 


n  r  -  _  ^  4 


N'TFIL     HRCPO  m\Q^     Ob-DEC-77  08:25     PRGE    1 


N  6 


t 

2 

000001 

3 

000001 

H 

000002 

S 

000000 

b 

7 

8 

ocoooo 

9 

to 

It 

\Z 

13 

tH 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2H 

25 

2b 

27 

28 

2f 

30 

3t 

32 

33 

3H 

35 

36 

37 

38 

39 

HO 

HI 

H2 

fj 

HH 

H6 

•• 

H6 

H? 

HS 

%9 

50 

51 

52 

53 

5H 

55 

5b 

;PREFIX  FILE  FOR  2780  UflP  RUNNING  UNDER  RSXtlM 

RSXrl 

RSXlin=l 

NTRNSF=2  ;NUnBER  OF  FILES  -  1  TO  TRPNSFER  IN  ONE  CMMD  STRING  (3) 

NRCVSF=0  ;NUnBER  OF  FILES  -  1  TO  RECEIVE  (1) 


;MRCPO 

DEFINITIONS 

TflGNUn= 

0 

.  MACRO 

ERROR   TEXT 

ERRORK 

<TEXT> 

JSP 

PC. PROMPT 

•■ 

.  ENDH 

;  MfiCPC 

'  TO  DO  P 

KILL  AND  QUE 

f 

.  MRCRO 

ERPORK  TEXT 

TPGNUn= 

TflGNUM+1 

.  IRP 

N. <    TflGNUM) 

JSP 

P5-TYPMSG 

.  UOPD 

TflG'N 

,  WORD 

TftGE'N-TflG'N 

. PSECT 

riESRG2.GbL 

TRG'N: 

.  OSC 1 ! 

"TEXT" 

TRGE'N: 

.  FSECT 

MAIN 

ENDn 

.  ENDM 

MHCFO  TO  QUEUE  A  MESSAGE  ONlY 

.  MACRO  EPROPM  TEXT 
TAGNUn=TAGNUM+l 


.  IRP 

N.  <;  TAGNUM) 

JSP 

R5.TYPMS1 

.  UOPD 

TAG'N 

.  UOPD 

TAGE'N-TRG'N 

. PSECT 

MESAGCGBL 

TAG'N: 

.  ASC  1  1 

"TEXT" 

TAGE'N: 

.  PSECT 

MA  I  N 

ENDM 

.  ENDM 

MACRO  rO  QUEUE  A  MESSAGE  AND  PROMPT 
.  MACRO  ERROPP   TEXT 


EPROPM 


"EXT 


JSP 
.  ENDM 

PC- PROMPT 

.  MACRO 
EPkX^PK 

JSr^ 

.  ENDM 

FATAL   T 

aEXT^ 

RB-DtE 

TEXT 


^B^S^^^ 


5as4^g5«^5j{8tfyHat-ga{- 


e:T3Hyigg3:£gx:g:tHfHa;:£S~ia 


ssSesSsl 


fes^gfegytma 


NXTFIL   nflCPO  nnOH  Ob-DEC-77  08:25  PRGE  2 


B  7 


I 

n 


4 
b 
8 

Q 

10 

11 
1  ■* 

13 

15 

lb 

1  c 

A  — 

r? 

20 
21 

2B 

26 

27 

28  000000 

29 

30 

31 

33 
3H 

35 

36 

77 


TITLE 
IDENT 


NXTFIL 
/00006/ 


3S 

39 

^o 
41 

HZ 
H6 

l4^ 

46 
46 
47 
HS 
49 
50 
51 
52 
53 
54 
55 
56 
57 


GOOOOO 


000000 
000010 
000016 
000022 
000024 
000026 
000032 
000036 
000040 


COPYRIGHT  (C)   1975,  1976,  1977 

DIGITPL  EQUIPMENT  CORPORATION,  MflYNPIRD,  MflSS. 


01754 


THIS  SOFTWARE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
fl  SINGLE  COMPUTER  SYSTEM  AND  MAY  3E  lOPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWARE.  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED 
OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
"^HESE  LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWfl'.  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NO!  BE  CONSTRUED  AS  A  COM- 
MITdENT  BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OP  RELIABILITY 
OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  By 
DEC. 

OPEN  FOP  PEflD  NEXT  FILE  IN  COMMAND  STRING 
LAST  MODIFICATION  ON  16- JANUftP (-75 


.  PSECT  MAIN 

;  MACRO  CALLS 

.  MCALL  GETSS. CLOSES. 0FNB5P.FD0FF5 

FDOFFS  DEFSL  .:  DEFINE  FCS  OFFSETS  LOCALLY 


;  + 


NPUTS: 


TRNSBLK  =  POINTEP  TO  LAST  FILE  NAME  OPENNED 


CALL; 


NXTFIL  -  TO  OPEN  NEXT  F ILE 

FSTFIL  -  TO  OPEN  FiRST  FILE  IN  P  lOMMAND  STPiNG  "TRANSMIT) 

OUTPUTS: 

ROUTINE  UPDATES  TRNSBLK  AND  OPENS  NEXT  KILE  IF  ANY 

RETURNS  WITH  "C"  BIT  SET  IF  AN  OPEN  FAILURE  OCrUPPED 

PETURNS  WITH  "C"  AND  "2"  BIT  SET  IF  NO  MORE  FILES  FPOn 
COMMAND  STRING 


062767 
016700 
005710 
001427 
012701 
012705 
012025 
005301 


.  IF  DF  RSX 
NXTFIL: :  CLOSES  SFDBIN 
ADD 


OOOOSbG  OonnooG 

OOOOOOG        FSTFIL: : MOV 

TST 
BEQ 

000017  MOV 

0001 n:b  MOV 

lOS;     MOV 
DEC 


; FIRST  CLOSE  THE  F ILL 
«S.  FNB+XMTSUT, TRNSBLK    ; GET  LOCATION  OF  NEXT  FNB 
TRNSBLK, RO      ; 
(RO) 

3ns  ;LAST  FNB  FOP  THIS  COMMAND 

;JS.  FNBWPl      ;  NUMBER  OF  WORDS  IN  FNb 
SFDBIN+F. FNB,R5  ;FDB  FOR  INPUT 
(RO.U...  (R5)+     ;MOuE  THE  FNB 
Rl 


N/TFIL     nflCPO  MllOH     Ofe-DEC-77  08:  25 


bS  0000142 

001375 

B9  0000^^ 

012701 

ooooooc 

bO  000050 

012^05 

OOOOOOG 

61  00005H 

012025 

62  000056 

005301 

63  000060 

001375 

64  000062 

65  000100 

000244 

66  000102 

000401 

67  000104 

000261 

69  000106     000207 


PfiGE  2-1 

BNE 

105 

MOU 

IIXnTSWT/2,Rl 

MOV 

(ISUT8N,R5 

155: 

nov 

(R0)+. (R5)+ 

DEC 

Rl 

BNE 

155 

0FNB5R 

»FDBIN 

205: 

CL2 

;flNO 

BR 

405 

305: 

SEC 

405: 

RTS 

PC 

C  7 


;NOT  riNISHED 

;«  OF  WORDS  OF  XMIT  SWITCHES 

;fiDDR  OF  FIRST  SWITCH 

;nOVE  fl  SWITCH  VALUE 
;ONE  LESS  SWITCH 

;riO\/E  THE  NEXT  ONE 
;OPEN 

;flNOTHER  FILE  PT  LEAST  WAS  FOUND 

;INDICfiTE  ERROR  CONDITION  EXISTS 
;N0  FILES  ARE  OPENNED 


.J 


NXTFIL      MhICPO   nUOH 


7% 

72 

73 
7H 
75 
?h 
77 
72 
79 
SO 
81 
82 


C7 

SB 
S6 
87 
88 
39 
90 
91 
92 
93 
94 
9B 
9b 
97 


OGOUG 
O0C12O 
000122 
000130 


000132 
OOOlHb 
OOOIBO 


3b-DEC-77  08: 

25 

PRGE  3 

;  «*-FSTGET 

;  INPUTS; 
;      NONE 

• 

;  OUTPUTS: 

D  7 


ROUTINE  TO  00  THE  FIRST  GET  flFlER  THE  FILE 
RNO  POINTED  TO  IF  NECESSARY 


S  OPENNED 


SEQUENT  I fiL  GET  ON  THE  FILE  OPENNEO  IN  NXTFIL  IS  DONE 
RO  !^  DESTROYED. 


103013 
122760 
001406 


FSTGET. 


GOOCOOb  000052 


. ENflBL 

LSB 

GET?3 

«FDBI 

BCC 

30S 

CMPB 

81E.  E 

BEQ 

205 

N, 


DO 
NO 


000261 
000207 


ooono! 


EPPOP 

<IN 

20%: 

SEC 

30%: 

PTS 

PC 

.  DSflBL 

LSB 

.  ENDC 

.  END 

THE  GET 
ERRORS 
0F,F. ERRfRO)       ;  END  OF  FILE 

.YES,  NO  ERROR  MESSAGE 

THIS  CAN  OCCURR  IF  PIN  RUI  UflS  RECEIVED 
ON  THE  NEXT  TO  LOST  RECORD.  WHEN  THE 
LAST  RECORD  IS  READ  THE  GET  IS  NOT  DONE 
AND  HENCE  THE  EOF  CONDITION 
IS  NOT  DETECTED 
GIVE  ERROR  MESSAGE 
SET  CARRY 
PETURN 


EPP> 


NXTF  IL 
SvriBOL 


MQCPO 
TPBLE 


nnOH     Ofe-DEC-77  08:25     PfiGE   3-1 


E  7 


FOB  IN  = 
FO.  PD  = 
FSTFIL 
FSTGET 
F  «CTL= 
PLOC  = 
BBFS= 
BOB  = 
BGBC  = 
B:'DN= 
BK.DS= 
BKEF  = 
BKPl- 
BKST  = 
BK'/B- 
CHF  = 
CNTG= 
DFNB  = 


F 
F 
F 
F 

F 
F 

f 

F 


.  RBS. 

MR  IN 

MESflG2 

ERRORS 


tutn  Gx 

tttttt   GX 

000016RG 

OOOnORG 

000076 

OOOOHO 

000062 

000070 

000067 

000026 

000020 

000050 

000051 

00002H 

00006H 

000075 

U0002H 

OOOOHb 


000000 
000000 
000152 
OCOOOb 
DETECTED: 


002 
002 


000 
001 
002 

003 


.  DSPT= 

OOOOHH 

F  NREC= 

000030 

NTRNSFs 

000002 

S.  FOB  = 

000140 

.  DVNn= 

0001 3H 

F  OVBSs 

000030 

NXTFIL 

OOOOOORG 

002  S.  FNflns 

000006 

.  EFBK= 

000010 

r.RRCC  = 

000016 

N.  DID  s 

000024 

S.  FNB  = 

000036 

.  EFN  = 

000050 

r  RRTT= 

000001 

N.  Dl/NMs 

000032 

S.  FNBUs 

000017 

EOBB= 

000032 

F.  RCNn= 

00003H 

N.FID  = 

000000 

S.  FNTY= 

000004 

.  ERR  = 

000052 

F.RCTL  = 

000017 

N.  FNRfls 

000006 

S.  FTYP= 

000002 

.  FRCC= 

0000H3 

F.  RSIZ= 

000002 

N.  FTYPs 

000014 

S.  NFENs 

000020 

.  FFBY= 

oooom 

F.  RTYP  = 

000000 

N.  FJERs 

000016 

TRGEl 

000006R     003 

.  FNRri= 

000110 

F.  SEQN= 

000100 

N.  N£XT= 

000022 

TRGNUMs 

000001 

.  FNB  = 

000102 

F.  SPDV= 

000072 

N.  STPTr 

000020 

TRGl 

OOOOOOR     003 

.  FTYP= 

000116 

F.  SPUN= 

000074 

N.  UNIT- 

000034 

TRNSBL= 

tttttt   GX 

.  FVER= 

000120 

F.  STBK= 

000036 

PRR$iS= 

000027 

TYPMSGs 

tttttt   GX 

.  HIBKr 

000004 

F.UNIT= 

000136 

PROMPTS 

nntt 

GX 

XMTSWTs 

tttttt   GX 

.  LUN  = 

O000H2 

F.  URBD= 

000020 

RSX   = 

GOOOOl 

. CLOSES 

tttttt   G 

.  nBCT= 

00005H 

F.  VBN  = 

000064 

PSX11M= 

000001 

.  GETSQ= 

tttttt   G 

.  nBCl= 

000055 

F  VBS2= 

000060 

SWTBN  = 

tttttt 

GX 

. OPFNB= 

tttttt   G 

.  nBFG= 

000056 

IE  EOF= 

******  GX 

S.  FRTT= 

000016 

...TPC= 

000140 

NRBD= 

000024 

NPCVSF= 

OCOOOO 

VIRTURL  MEMORY  USED;   1933  WORDS 
DYNRMIC  MEMORY:   2S10  UOPDS   (  10 
ELRPSED  TIME:   00:  OC.  15 
256,020  NXTFIL. 27.  256^030  NXTFiL. 


I    S  PRGES) 
PPGES' 

PF  ■-SF  =  UPPRXM,NXTF'  iL 


NXTFIL  CPERTED  BY 

SYMBOL  CROSS  REFERENCE 

SYMBOL  URLUE 

FDBIM  =  tttttt 

FO.  RD  =  tttttt 

FSTFIL  000016 

FSTGET  OOOnO 

F  ERR  =  000052 

F  FOCC  =  0000H3 

F,  FNB  =  000102 

IE. EOF  =  tttttt 

NPCVSF  =  000000 

NTPNSF  =  000002 

NXTFIL  000000 

PqPSSS  =  000027 

PROMPT  =  tttttt 

»SX  =  000001 

PSXUM  =  000001 

SUTBN  =  tttttt 

S.  FNB  =  000036 

S.  FNBW  =  000017 

TRGEl  000C06  P 

TRGNUn  =  OOOGOl 

TRGl  000000  R 

TRNSBL  =  tttttt      GX 

TYPMSG  =  ******  GX 

XMTSWT  =******  GX 

.  CLOSE  =  ******  G 

.  GETSQ  =  ******  G 

.  OPFNB  =  ******  G 


GX 
GX 

RG 

RG 


GX 


RG 

GX 


GX 


MPCRO  ON  fe-DEC-77  AT  08:  25 


REFERENCES 
2-49 
2-64 

»2-51 
«3-84 

3-86 
*2-64 

2-55 

3-86 
»l-5 
«l-4 
«2-49 
«2-49 

3-93 
81-2 
81-3 

2-60 

2-50 

2-54 

3-93 
81-S 

3-93 
*:-50 

3-9^ 

2-60 

2-49 

3-S4 

2-64 


2-49 


2-49 
2-48 


83-93 
3-93 
3-93 
2-51 

2-59 
:-49 
3-S4 
:-b4 


2-55 


PRGE   1 
CREF 

2-64 


F     7 


2-64 


3-84 


3-84 


82-t4 


2-64  83-84 


3-84 


•♦  7 

n  ^' 


^3 


>93 


n:«tf  il 

CREQTED  BY 

MACRO     ON 

nPCPO  CP03S 

REFERENCE 

MRCPO   NRME 

REFERENCES 

CLOSES 

«2-31 

2-H9 

cnousB 

RZ-e^ 

«2-fei4 

cnovsu 

82-bH 

«2-6'4 

EPPOP 

M-9 

3-93 

EPPOPK 

»t-16 

3-93 

EPPOPn 

»l-32 

EPPOPP 

81-H7 

EPPS 

«2-H9 

n-^9 

FfiTRL 

«l-53 

F DOFFS 

S2-31 

«2-32 

FDOP^R 

»2-6H 

2-614 

rnpf^p 

»:-6H 

82-6H 

OETSS 

«:-3i 

»3-SH 

.OF  DBS 

«2-H9 

2-U9 

■FMBS      , 

»2-b4 

ft:-b4 

^^t^BSF 

«2-31 

»2-b4 

6-DEC-77  RT  08  25 


PfiGE 
CREF 


G     7 


«2-6^ 
«2-64 


»2-fe^ 
»2-6i* 


»2-6^ 


«2-6H 


i2-bi4 


2-bH 


^l2-fe^ 

ll2-bW 


:2-6^ 
»2-6H 


»2-6i* 


83-8H 


»J-8H 


«3-8H 


»3-8^ 


»3-S4 


»2-6U 


2-6H 


83-84 


3-84 


pppsE      n«cpo  nno^    oe-DEC-??  08: 26    prge  i 


H  7 


t 

z 

000001 

3 

000001 

«♦ 

000002 

6 

000000 

l» 

7 

8 

ocoooo 

9 

10 

It 

12 

13 

IH 

IS 

1^ 

17 

t8 

19 

20 

Z\ 

22 

23 

2H 

2S 

26 

27 

28 

29 

30 

31 

32 

33 

3*» 

35 

36 

3? 

38 

39 

40 

m 

•42 

UH 
45 
4b 
47 
4S 
49 
50 
61 


;PREFIX  FILE  FOR  2780  UfiP  RUNNING  UNDER  RSXllM 
RSX=1 

Rsxiin=i 

NTRNSF=2 
NRCUSF=0 


;  NUMBER  OF  FILES  -  1  TO  TRPMSFEP  IN  ONE  CMflD  STRING  (3) 
.NUMBER  OF  FILES  -  1  TO  RECEIVE  (1) 


;MfiCRO  DEFINITIONS 
TRGNUM=0 

.  MPCRO  ERROR   TEXT 
ERRORK  <TEXT> 
JSP     PC, PROMPT 
.  ENDM 

;  MfiCRO  TO  DO  R  KILL  RND  QUEUE  THE  MESSRGE 


.  MRCRO  ERRORK  TEXT 
TRGNUM=TRGNUnil 

.  IRP  N, <  TRGNUM) 

JSP  P5,TYPMSG 

WORD  TRG'N 

,  WORD  TRGE'N-TRG'N 

.PSECT  MESRG2-GBL 

.  flSCII  "TEXT" 


TRG'N; 
TflGE'N: 


PSECT 

ENDM 

ENDn 


nfliN 


MflCPO  TO  QUEUE  fl  MESSRGE  ONLY 


.  MRCPO 

ERROPM  TEXT 

TRGNUM= 

TRGNUM+1 

.  IRP 

N, <  TRGNUM) 

JSP 

P5.TYPMS1 

WORD 

TRG'N 

.  WORD 

TRGE'N-TRG'N 

. PSECT 

MESRG2-GBL 

TRG'N: 

.  flSCI 1 

"TEXT" 

TRGE'N: 

. PSECT 

MR  1  N 

.  ENDM 

.  ENDM 

MRCPO  TO  QUEUE  fl  MESSAGE  AND  FPOflPT 

.  MRCRO  ERPOPP  TEXT 

ERROPM  aEXT) 

JSP  PC. PROMPT 
.  ENDM 


63 

64 

5b 


MRCRO 
ERRORK 
JSP 
.  ENDM 


FRTRL 

<TEXT:^ 
PS-DlE 


TEXT 


PPPSE        nPCPC   nnOH     Oe-DEC-??  08:  26     PRGE   2 


t 

2 

3 

^ 

s 

7 

8 

9 

10 
l! 
1  2 

u 

b 

— ^ 

c 
9 

20 

:i 

->  ■-> 

-">  7 
«•  -I 


2b 
17 
28 
29 
30 
31 
32 
33 
3H 
35 
3b 
37 
3S 


000000 


ooocoo 

000000 


HO 

141 

42 

44 
46 
4b 
47 
4S 
49 
SO 

51  000000 

52  00002^ 

53  000026 

54  000030 

55  000034 
5b  000040 
57  000062 


103531 
010201 

005067  OOOOOOG 

103501 


•  TITLE  PARSE 
.  I  DENT  /00005/ 

COPYRIGHT  (C)   1975.  1076.  1077 

DIGITRL  EQUIPflENT  CORPORRTION.  MRYNflRD,  MflSS.  0175^ 

THIS  SOFTWRRE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
R  SINGLE  COMPUTER  SYSTEM  RND  MRY  aE  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  RBOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWRRE.  OR  ANY  OTHER  COPIES  THEREOF,  MRY  NOT  BE  PROVIDED 
OR  OTHERWISE  MROE  RUfllLRBLE  TO  RNY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  RND  TO  ONE  WHO  RGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  RND  OWNERSHIP  OF  THE 
SOFTWRRE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMRTION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MITMENT BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  PESPONS IB  I L I TY  FOP  THE  USE  OP  RELIABILITY 
OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  By 
DEC, 

VERSION  0 

POBEPT  H.  POSENBAUM  l-AUGUST-74 

LAST  MODIFICATION  ON  3-MAPCH-75 

CHANGED  TO  AVOID  DEFAULT  FILE  SPEC  DELETEING  OTHER  SWITCHES 

CLARISE  E,  PATTOH  ?,/77 

PARSE  OUTPUT  FILES 

.  PSECT  MAIN 


S2.-  CS  i  %SW,  CS  I  SS'".  CS  I  5ND-  FD0FF5.  FCSBTS,  CALL 


ICRO  CALLS 

. MCALL 

CSISl 

.  MCALL 

DIPS 

FCSBT% 

DEFSL 

FDOFFS 

DEF%L 

;  + 

;  INPUTS; 

;  TAKES  ITS  INPUT  FROM  THE  TELETYPE  COMMAND  STRING 

;  R2  =  RCVBLK+2  'BLOCK  WHERE  INPUT  FILES  APE  TQ  BE  PARSED  TO) 

;  OUTPUTS: 

;  FILLS  IN  THE  RECEIVE  BLOCK  (PCVBLK)  AS  THE  INFO  MUST 

;  APPEAR  IN  THE  FOB  FOR  THE  OPEN 

.  IF  DF  PSX 

.  ENABL  LSB  ; ENABLE  LOCAL  SYMBOL  BLOCK 

PENTEP: :  CSISl  »FILDES.FILDES+C.  CMLD+2,FILDES+C.  CMLD 

BCS  70% 

MOV  R2,R1  ;RCVBLK  AREA 

lOS:     CALL  CLRRSW         ; INITIALIZE  COMMON  FECu  SNITCH  flPEh  FOP  PARSE 

CLR  SWRDF  ; CLEAR  DF  SWITCH  TOO 

CSI52  ttFILDES- OUTPUT. ;SWPAB 

BCS  60S 


PfiPSE        MflCPO  nnOM     Ob-DEC-77  08:26     PIhGE   2-1 


J  7 


69 
bO 
bl 
b2 
63 
bH 
66 
6b 
67 
bS 
69 
70 

7  1 


7U 

7B 

76 

77 

73 

79 

80 

81 

82 

83 

8H 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

9S 

96 

97 

QC 

99 
lOU 
101 


000064 
000070 
00007H 
000100 
000102 
000106 
000110 

oooim 

000120 
000122 
000124 
000132 
000134 
000140 
000142 
000146 
000162 
000166 
000162 
000164 
000166 
000170 
000172 
000200 
000202 
000206 
000210 
000216 
000232 
000234 
000240 
000242 
000246 
000260 
000264 
000266 
000272 
000306 
000310 
000314 
000330 
000 3 3b 
00034 0 


012700 
012702 
012703 
010146 
106767 
001402 
012701 

012601 
103462 
132761 
001066 
105767 
001014 
062701 
012704 
012700 
012703 
011324 
012321 
006300 
001374 
132767 
001416 
020127 
103710 
012777 

000436 
105767 
001002 
012711 
000207 

000421 
004767 

000410 
004767 

012777 

nno26l 

000207 


OOOOOOG 
000006G 
OOOOOOG 

OOOOOOG 

OOOOOOG 


000070  000020 

OOOOOOG 

000036 
OOOOOOG 
OOOOOOC 
OOOOOOG 


125: 


15%: 


000020  GOOOOIG  17S: 
OOOOOOG 


177 


r"  I  f 


OOOOOOG 


OOOOOOG 


1  ''    i'    >     <     I 


OOOOOOG 


OOOOOOG 


lOS: 


215: 
505: 

60S: 


705: 


177777  OOOOOOG  S05: 


MOV 
MOV 
MOV 

nov 

TSTB 
BEQ 
MOV 
CALL 
MOV 
BCS 
BITS 
BNE 
TSTB 
BNE 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
BITB 
BEQ 
CMP 
BLO 
MOV 

EPPOPr 
BR 

TSTB 
BNE 
MOV 
PTS 

ERPOPP 
BP 
JSP 

EPPOPP 
BR 
JSR 

ERPOPP 
MOV 
SEC 
PTS 
DShBL 


4IFDB0U0.ro 

«FILDESK.DSDS 

II0F8LK.R3 

RU-(SP) 

SURDF 

125 

«CFNLP,R1 

. PPRSE 

(SP)i,Rl 

605 

«NB.  SVRINB.  SNM 

705 

SWRDF 

175 

»S  FNB.Rl 

KSUR6N,R4 


;?RCVSWl/2. 


PO 


8SWPB1.R3 
(R3),(P4)  + 

(P3)+, (Rl)+ 

RO 

155 

«CS.  MOR-C.  STflT 


;FDB  FOR  OUPUT  FILES 
.?.Z  ;OflTflSET  POINTER 

; DEFAULT  FILE  NOME  BLOCK 
;SflVE  LOCRTION  TO  PPPSE  TO 
; REQUEST  TO  CHANGE  DEFAULT  RECV  FILE? 
;N0 
;YES.  PARSE  TO  DEFAULT  NAME  BLOCK 

; RESTORE  Rl  AND  STACK  POINTER 

; ERROR  FOUND  FROM  PARSE 
!NB.  STP.N.  STAT(Rl) 

;BAD  FILE  OR  VERSION 

;  REQUEST  TO  CHANGE  DEFAULT  RECV  FILE'' 

;YES  SKIP  SWITCH  PROCESSING 

; NUMBER  OF  BYTES  IN  FNB 

; ADDRESS  OF  PERMANENT  SWITCHES 

,t   OF  WORDS  OF  RECEIVE  SWITCHES 

;ADDR  OF  FIRST  TEMPORARY  SWITCH 

;MOVE  TO  PERMANENT  SWITCHES 

;MOVE  TO  RECEIVE  BLOCK  AREA 

;ONE  LESS  SWITCH 

;MOVE  THE  NEXT  ONE 
^FIlDES 


205 


P1,?RCVSE 

105 

«-l.iPCVBLK 

<T00  MANY  RECV 

S05 

SWRDF 

215 

8  - 1  -  1 P 1) 

PC 

•PQPSE    FOIL- 

S05 

PC^CSIEPP 

(Ml    SWITCH' 

S05 

PC  CSlEPP 

<UILD   CORD   FND; 

n- 1 . iPCVBLK 

PC 


; ST  ILL   MOPE   ROOM 
;T00  MANY  FILES  SPECIFIED 
FILES) 

TAKE   ERROR   EXIT 

DID  WE    JUST   PROCESS  P  DEFAULT  FILE"? 

YES 

MARK  END  Of^  PEC'/  BLOCK  AREA 


PR  INT  THE  STRING  IN  ERROR 


PRINT  THE  STRING  IN  EPPOP 


; INDICATE  EPPOP  EXISTS 
; RETURN  TO  CRlLLR 


tpP'IE 

nfiCPO  nll0^ 

Ob- 

■DEC-77 

08;  2b 

103 

IGU 

105 

10b 

000342 

107 

0003H2 

108 

0003S2 

109 

000362 

110 

000372 

in 

000402 

112 

000412 

113 

000422 

im 

000432 

IIB 

000^3^ 

1  lb 

0004 UQ 

117- 

lis 

000001 

PPGE  3 


K  7 


COnnRND  STRING  INTERPRETER'S  SWITCH  TABLE 


SURAB: 


CS 
CS 
CS 
CS 
CS 
CS 
CS 


ssu 
ssu 
ssu 

ssu 

ssu 
ssu 


VAlU: 


CSISND 
CSISSV 
CSiSND 
.  ENDC 
.  END 


6I.200.SURB1 

SL,200,SURS1 

RC,200RCHN1 

FX,R.  FIX,RTYPI,, 

FN.FO.  FTN,RflTTl 

TK,220,SURB1 

DF,200,SURDF 

NUMERIC. RURLl. 2 


VAlU 


PRPSE 

HRCPO  nno^  06 

-DeC-77  08:  26  PRGE  3-1 

L 

7 

IrMBOL 

TRBLE 

CHPSS  = 

000106 

FR. 

TnP=  000020 

F.  flLOC  = 

000040 

F.  RTYPs 

000000 

RSX   = 

OOOOGl 

•:h.  RND= 

000001 

FR. 

WCK=  020000 

F.BBFSs 

000062 

F.  S£QN= 

000100 

RSXllMs 

0000G1 

CLPPSW= 

%tt\t%   GX 

FR. 

URT=  000002 

F.  BOB  = 

000070 

F.  SPDV= 

000072 

RTYPl  = 

tttttt   GX 

CNT%%  X 

000002 

FDBOUO=  tttttt   GX 

F.  BGBC  = 

000067 

F.  SPUNs 

000074 

RVRLl  = 

tttttt   GX 

CSIERP= 

\%t%%%   GX 

FD. 

BLKr  000010 

F.  BKON= 

000026 

F.  STBK= 

000036 

R.  FIX  = 

GOGOOl 

CS.DIF  = 

000002 

FD, 

CCL=  000002 

F.  BKOS= 

000020 

F.  UNIT= 

0G0136 

R.  SEQ  = 

0GG0G3 

CS 

DUF  = 

OOOCOH 

FD. 

con=  020000 

F.  BKEF  = 

OOOO&O 

F.  URBD= 

000020 

R.  VRR  = 

0000G2 

CS 

EQU= 

OOOCi+0 

FD. 

CR  =  000002 

F.  BKPlr 

000061 

F.  V3N  = 

GG0064 

SIZM  = 

000002 

CS 

1NP  = 

000001 

FD. 

DIR=  000010 

F.  BKSTs 

000024 

F.  U3SZ= 

000060 

SURRB 

00034 2R 

002 

i-c 

flOR  = 

000020 

FD. 

FTN=  000001 

F  BKVB= 

000064 

NB.  OEU= 

GG0200 

SURBN  - 

tttttt   GX 

CS 

\m- 

000001 

FD. 

Fll=  OHOOOO 

F.  CHR  = 

000076 

NB.  DIR:^ 

0G0100 

SURBl  = 

tttttt   GX 

CS 

OUT  = 

000002 

FD. 

INS=  000010 

F.  CNTG= 

000034 

NB.  NRn= 

GGGGG4 

SWRDF  = 

tttttt   GX 

ULD- 

000010 

FD. 

ISP=  002000 

F.  DFNB  = 

000046 

NB.  SOU 

QG0400 

SWRSl  = 

tttttt   GX 

c.'cnLD= 

000002 

FD 

MNT=  100000 

F.  DSPT= 

000044 

NB.  SD2= 

OOIOGO 

S.  FRTTr 

000016 

C.  DE'.'D  = 

DOCCOb 

FD. 

OSP=  004000 

F.  DUNMs 

000134 

NB.  SNn= 

000040 

S.  FOB  = 

000140 

C  DIPD= 

000012 

FD. 

PLC=  000004 

F.  EFBKr 

000010 

NB.  STP  = 

GG0020 

S.  FNfln= 

000006 

■:  csDS= 

OOCOOfe 

FD 

PSE=  010000 

F.  EFN  = 

000050 

NB.  SVRs 

GGOOIO 

S.  FNB  = 

000036 

C.  FILD:: 

000016 

FD. 

RRH=  000001 

F.  EOBB  = 

000032 

NB.  TYP  = 

000002 

S.  FNBW= 

000017 

c.  riKwu 

00002H 

FD 

RRN=  000002 

F.  ERR  = 

000052 

NB.  VER  = 

OGOOOl 

S.  FNTY= 

000004 

C  nKU2= 

00002b 

FD. 

PECr  000001 

F  FRCC= 

000043 

NRCUSFr 

OGOOOO 

S.  FTYP= 

000002 

C. SIZE= 

0000B4 

FD. 

Rwn=  000001 

F.  FFBY  = 

000014 

NTRNSF= 

000002 

S.  NFEN= 

000020 

C. STRT= 

000001 

FD. 

SDl=  000020 

F.  FNRM= 

000110 

N.  D 1  D  = 

000024 

TRGEl 

000023R 

003 

C. SURD= 

000022 

FD. 

SQD=  000040 

F.  FNB  = 

0001C2 

N.  DVNn= 

000032 

TRGE2 

000035R 

003 

C.  TYPR= 

000000 

FD 

TTY=  000004 

F.  FTYP  = 

000116 

N.  FID  = 

000000 

TRGE3 

000047R 

003 

DFBLK  = 

t\t%\%    GX 

FD. 

UBH=  000002 

F  FVER= 

00G120 

N.  FNRn= 

000006 

TRGE4 

000064R 

003 

DFNLP  = 

%%%%%%    GX 

FF. 

CHP=  000005 

F  HIBK= 

000004 

N.  FTYP  = 

000014 

TRGNUri= 

000004 

FR.  flPD= 

000100 

FF 

m  -   000003 

F.  LUN  = 

000042 

N.  FVER  = 

000016 

TRGl 

OOOOOOR 

003 

FR.  CRE  = 

000010 

FF 

POE=  000002 

F  MBCT= 

000054 

N.  NEXT= 

000022 

TRG2 

000023R 

003 

FR.  DLK  = 

001000 

FF. 

RUID=  000001 

F.  riBCl  = 

000055 

N.  STflT= 

000020 

TflG3 

000035R 

003 

FR.  ENB  = 

100000 

FF. 

RUF=  000006 

F  MBFG= 

000056 

N.  UNIT  = 

000034 

TRG4 

000047R 

003 

FR.  EXC  = 

002000 

FF. 

SPC=  000004 

F  NPBD= 

000024 

PRPS5S= 

000027 

TYPMS1= 

tttttt   GX 

FR.  EXT  = 

OOOOOH 

FILDES=  ******  GX 

F.  NPEC  = 

000030 

PENTER 

GCOnOOPG 

002  VRLU 

000434R 

002 

FR.  NSP  = 

000100 

FO 

RPD=  000106 

F.  OVBS  = 

000030 

PROnPT= 

****** 

GX 

55 

000000 

^^   POS= 

010000 

^^ 

nFY=  000002 

F.  RRCC  = 

00001b 

PPTTl  = 

****** 

GX 

.  CSll  = 

******  G 

FR.  RD  = 

000001 

FO. 

RD  =  000001 

F.  PRTT  = 

000001 

PCHNl  = 

****** 

GX 

.  CSI2  = 

******  G 

FR  RWD= 

004ono 

FC. 

UPD=  000006 

f^  PCNn  = 

000034 

PCl/BLK  = 

****** 

GX 

. PRPSE= 

******  GX 

^^.  3EQ  = 

OHOOOO 

FO. 

WP^=  000016 

F  PCTLr 

00QC17 

RCV'SE  = 

****** 

GX 

. . .  GBL= 

000000 

FR  SHF= 

OOOOun 

F.  P 

)CTL=  000076 

F.  RSIZ- 

coooo: 

RCI'SW1  = 

****** 

GX 

. . .  TPC= 

000140 

.  RBS. 

000000     000 
000000     001 

MR  IN 

000^42     002 

hesrg: 

oooob4    \^zz 

EPfi 

^OPS  DETECTED.   0 

UIRTURL    MEnORY   USED:       3?40  U- 
DYNRMiC    MEMORY.       4922  WORDS 
ELRPSED   TIME:       00-  00:  33 
256,020  PRPSE.;27.    256-030   FflPSE 
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SVMBOL 

CROSS  REFERENCE 

CREF 

SYMBOL 

VRLUE 

REFERENCES 

CHPSS 

= 

OOOlOfe 

«3-107 

3-107 

3-107 

83-107 

3-107 

3-107 

83-108 

3-108 

3-108 

83-108 

3-108 

3-108 

83-109 

3-109 

J-109 

83-109 

3-109 

3-109 

83-110 

3-110 

3-110 

83-110 

3-110 

3-110 

83-111 

3-111 

3-111 

83-111 

3-111 

3-111 

83-112 

3-112 

3-112 

83-112 

3-112 

3-112 

83-113 

3-113 

3-113 

83-113 

3-113 

3-113 

CLPPSU 

z 

****** 

GX 

2-5H 

CM"''%* 

- 

000002 

83-107 

3-107 

83-1G7 

3-107 

3-107 

83-107 

3-107 

83-108 

3-108 

83-108 

3-108 

3-108 

83-108 

3-108 

83-109 

3-109 

83-109 

3-109 

3-109 

83-109 

3-109 

83-110 

3-110 

83-110 

3-110 

3-110 

83-110 

3-110 

83-111 

3-111 

83-111 

3-111 

3-111 

83-111 

3-111 

83-112 

3-112 

83-112 

3-112 

3-r.2 

83-112 

3  112 

83-113 

3-113 

83-113 

3-113 

3-113 

8  3-113 

3-113 

CSsEPP 

= 

****** 

GX 

2-93 

2-96 

CS.  nop 

r 

000020 

2-SO 

cs.  OUT 

= 

000002 

2-56 

c.  cniD 

r 

000002 

2-Sl 

*2-51 

2-51 

*2-51 

C.  OSDS 

- 

00000b 

2-c;q 

C.  SIZE 

r 

00005H 

2-51 

2-56 

C.  STRT 

:: 

OOUOOl 

2-SO 

C.  SURD 

= 

000022 

*2-S6 

DFBLK 

3 

****** 

GX 

2-60 

DFNLP 

= 

****** 

GX 

2-bH 

FDBOUO 

z 

****** 

GX 

2-5S 

FD.  FIN 

z 

000001 

3-111 

FILDES 

~ 

****** 

G^-' 

2-51 

:-5i 

2-51 

^   —  A 

2-56 

2-5? 

2-20 

NB. SNM 

z 

OOOOHO 

2-bS 

NB.  SIP 

~ 

000020 

2-bS 

NB.  SVR 

z 

000010 

2-feS 

NRCVSF 

z 

000000 

81-5 

NTRNSF 

— 

000002 

81-M 

N.  STRT 

z 

000020 

2-t£ 

PRR%%% 

- 

000027 

82-51 

2-51 

82-5b 

2-5t 

RENTER 

000000 

RG 

82-51 

PROMPT 

= 

****** 

GX 

2-S5 

2-91 

■-94 

2-9'." 

RRTTl 

z 

****** 

GX 

3-111 

PCHN! 

r 

****** 

bX 

3-109 

PCi/BLK 

: 

****** 

GX 

2-84 

PC  USE 

z 

****** 

GX 

2-82 

PC  USUI 

- 

****** 

GX 

2-7H 

PSX 

- 

000001 

81-2 

2-H9 

PSXllM 

r 

000001 

81-3 

PTYPl 

= 

****** 

GX 

3-110 

P'.'HiLl 

- 

****** 

GX 

3-115 

P.  Fix 

z 

000001 

3-110 

S  1  L'SS 

z 

000002 

83-107 

3-107 

3-107 

3-lC^ 

8  3-10. 

3-1  OS 

:-ios 

3-1  OS 

83-109 

3- 1 09 

3-103 

3-109 

8:-110 

3-110 

3-110 

3-110 

8  3- IV 

3-111 

3-111 

3-111 

83-  112 

3-112 

3-ii: 

z-ii: 

8  3-113 

3-113 

3-113 

3-113 

SUPRB 

0003^2 

P 

2-56 

8"- 1 06 

SUPBN 

z 

****** 

GX 

SUPBl 

z 

V*.**** 

GX 

2-75 

3-107 

3-!  12 

SURDF 

z 

****** 

GX 

*2-55 

„  -  n  ^ 

2-70 

2-S7 

3-ii: 

N     7 


FftPSE 

CPEfiTED  BY 

nflCRO  ON  6 

-DEC-77  AT 

OS:  26 

P«GE  2 

SYMBOL 

CPOSS  REF^ 

:rence 

cpj:f 

SYMBOL 

•"RLUE 

REFERENCES 

SUP  SI 

=  **««** 

GX 

3- '08 

S.  FNB 

=  ooooze 

2-^2 

TRGEl 

000023 

R 

2-'i5 

«2-85 

trge: 

000035 

R 

2-91 

82-91 

ThGEZ 

0000U7 

R 

2-91- 

82-9^ 

TqGEi4 

OOOObH 

R 

2-97 

82-97 

TPGNUM 

=  OOOOOH 

«l-8 
2-91* 

*2-85 

2-97 

»2-85 

82-97 

2-85 
2-97 

2-91 

82-91 

2-91 

2-9^ 

82-9^ 

TPGl 

000000 

R 

2-S5 

2-85 

82-85 

"TQGZ 

000023 

R 

2-91 

2-91 

82-91 

-QGZ 

000035 

R 

2-9»4 

2-9^ 

82-94 

^mG4 

0000^7 

R 

2-97 

2-97 

82-?7 

TYPMSl 

=  ♦*♦*** 

GX 

2-S5 

2-91 

2-94 

2-97 

Vf^LU 

000H34 

R 

3-110 

83-115 

%% 

=  000000 

«3-ia7 

3-107 

83-107 

3-107 

83-107 

3-107 

83-107 

3-107 

83-108 

3-103 

;t3-108 

3-103 

83-108 

3-108 

83-108 

3-108 

83-109 

3-109 

;3-:o9 

3-109 

8  3-1C9 

3-109 

8  3-109 

3-109 

83-110 

3-110 

83-110 

3-110 

83-110 

3-110 

83-110 

:-iio 

83-111 

2'\\\ 

83-111 

3-111 

«3-in 

3-111 

83-1 11 

Z-111 

83-112 

3-112 

83-112 

3-112 

83-112 

3-112 

83-112 

^-112 

8:-n3 

3-113 

83-113 

3-113 

83-113 

:-ii3 

83-113 

Z-113 

CSll 

r  ♦♦♦*** 

G 

:-5i 

2-51 

.  CSi2 

=  iiiiii 

G 

:-Eb 

2-56 

PflP''^ 

-  ami 

GX 

2-b5 

tsMJ}3J«iJdtJtffiJSgg!stfet:ti;sia^d:dMia«dbJ»a^d;£A^^ 


B     8 

PflPSE 

CPEfl 

TED  BY 

nRCRO      ON  6- 

'DEC-77  RT  08: 

26 

PAGE   3 

npcpo  cposs 

REFERENCE 

CREF 

r.fiCRO   NRnE 

REFERENCES 

CRLL 

«2-3b 

82-5H 

82-65 

CSIS 

»2-51 

»2-5fc 

CSISND 

«2-:fe 

»3-im 

83-116 

CSISSV 

?2-3b 

«3-115 

CSISSU 

;2-36 

83-107 

83-108 

83-109 

87-110 

CSISl 

«2-3b 

82-51 

CSIS2 

«2-3b 

2-56 

DIPS 

«2-37 

EPPOP 

»l-9 

EPPOPK. 

«l-lfe 

Lf'POPM 

nl-32 

82-S5 

82-91 

82-?u 

82-97 

ECPOPP 

S1-H7 

2-85 

2-91 

2-OLj 

2-97 

FOTflL 

«l-53 

FCSBTS 

«2-3b 

2-38 

f'DOFFt 

n2-36 

2-39 

.DPO* 

^:-5! 

2-51 

82-56 

2-56 

83-111 


83-112 


83-113 


QUEHHt^ 

MRCPO  nn04     Ofe-OEC-77  08 

I 

2 

OOOOOl 

3 

000001 

H 

000002 

S 

000000 

6 

7 

8 

ocoooo 

9 

lU 

11 

12 

13 

U 

IS 

lb 

1 . 

IS 

r? 

20 

21 

22 

^0  w 

24 

26 

26 

27 

28 

29 

30 

PRGE  1 


C  8 


31 
32 

34 
35 
3fa 
37 
38 

40 
41 
42 
4i 
44 
45 
46 
47 
4S 
hS 
50 
51 
52 
53 
54 
55 
56 


;PREFIX  File  FOR  2780  UflP  RUNNING  UNDER  RSXllM 

RSXrl 

RSXlin=l 

NTRNSF=2  ;NUn8ER  OF  FILES  -  1  TO  TRANSFER  IN  ONE  CMMD  STRING  (3) 

NRCVSF  =  0  ;NUriBER  OF  FILES  -  1  TO  RECEIVE  (1) 


;riRCRO 

DEFINITIONS 

TflGNUns 

0 

.  nflCRO 

ERROR        TEXT 

ERRORK 

<TEXT> 

JSR 

PC, PROMPT 

* 

.  ENDM 

,  nfiCRo 

TO  DO  P 

KILL   RND  QUE 

i 

.  nOCPO 

ERRORK      TEXT 

TflGNUM= 

TPGNUM+1 

.  IRP 

N, <   TflGNUH) 

JSR 

R5,TYPnSG 

.  UORD 

TflG'N 

.  UORD 

TflGE'N-TflG'N 

. PSECT 

riESflG2,GBL 

TflG'N: 

.  flSCII 

"TEXT" 

TRGE'N: 

. PSECT 

Mfl  i  N 

.  ENDM 

ENDU 


MPICRO   TO   QUEUE    fl   MESSAGE    ONlY 


.  nflCPO  ERRORM      TEXT 
TflGNUn=TflGNUri  +  l 

.IRP  N, <   TflGNUn> 

JSP  R5,TYPnSl 

.WORD  TflG'N 

.  WORD  TflGE'N-TflG'N 

.PSECT  nESflG2.  GBL 

.ASCII  "TEXT" 


TflG'N: 
TflGE'N: 


PSECT 

ENDn 

ENDM 


MAIN 


nflCRO   TO  QUEUE    fl   MESSflGE   AND   PPOnPT 

.  MflCRO  ERRORP      TEXT 

ERROPn  <TEXT> 

JSR  PC.PPOnPT 
.  ENDM 


nflCPO  FflTflL 

ERRORK  <TEXT> 

JSP  R5.DIE 
.  ENDM 


TEXT 


"iUEHPN  MRCPO  nnO^  Ob-OEC-77  08:  26  PRGE 


2 


D  8 


t 
2 
3 
H 
6 

7 
8 

to 

U 
12 
13 

IH 
IB 
16 

17 
18 

19 
20 
21 

22 

23 

m 

25 

26 

27 

28 

29 

30 

31 

32  ilOOOOO 

32 

3H 

3B 

36 

37 

3S 

39  000000 

40  000000 

m 

42 
43 
4H 
45 
46 
47 
4S 
49 
50 
51 

53  000000 

54 

55 

56 

57 


000000' 


TITLE  QUEHRN 
.  I  DENT  /00002/ 

COPYRIGHT  (C)   1975.  1976.  1977 

DIGITRL  EQUIPnENT  CORPORATION.  MflYNflRO.  MflSS.  01754 

THIS  SOFTWRRE  IS  FURNISHED  UNDER  R  LICENSE  FOR  USE  ONLY  ON 
R  SINGLE  COriPUTER  SYSTEM  RND  MRY  3E  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  RBOVE  COPYRIGHT  NOTICE.   THIS 
SOFTURRE.  OR  RNY  OTHER  COPIES  THEREOF.  MRY  NOT  BE  PROVIDED 
OR  OTHERWISE  flRDE  RURILRBLE  TO  RNY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  RND  TO  ONE  WHO  RGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  RND  OWNERSHIP  OF  THE 
SOFTWRRE  SHALL  RT  RLL  TIMES  REMRIN  IN  DEC. 

THE  INFORMRTION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHRNGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  RS  R  COM- 
MlTflENT  BY  DIG.TAL  EQUIPMENT  CORPORRTION. 

DEC  RSSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OP  RELiRBILlTY 
OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY 
DEC. 

VERSION  0 

ROBEf.T  H.  ROSENBRUM  l-AUGUST-74 

LOST  MODIFICATION  ON  20-N0VfEnBEP-74 

QUERY  COMMAND  HANDLER 

.  PSECT  MAIN 

GLOBAL  DEF  I  N III ONS 

.  GLOBL   QOPBri.FDBIN.FDBOUO 


;  MflCPC  CALLS 

.  MCALL  FDOFFS.DIPS.-QIOS 

FDOFF%  DEFSL 
QIOLBL:  QIOS  ;JUST  DEFINE  010  OFFSET' 

.  =QIOLBL        ; OVERLAY  QtO  AREA 


;  INPUTS: 

;  NONE 

;  OUTPUTS: 

;  ROUTINE  WILL  PRINT  ON  THE  OPEPATOPS  CONSOLE  THE  CUPPENT 

;  STATUS  OF  EMULATOR  INCLUDINl  OFFL  I  NE/'CNL  I  NE  CONDITION, 

;  TRANSMIT/RECEIVE  CONDITION,  AND  FILE  NAME  IJHICH  IT  IS 
CURRENTLY  ACCESSING. 


QUE  HAN: 


.  IF 

DF 

RTU 

MOV 

»QEND-QSTAT,P1 

MOV 

i?QSTAT.R5 

JSR 

PC,R50STP 

MOV 

^\Q:9.\ 

LENGTH  OF  MESSAGE 

PRINT  PAD50  STRING 

TYPE  DEVICE  AND  FILE  NAME 


QUEHPN     MflCPO  nn04     06-DEC-77  08:2b     PRGE   2-1 


E     8 


BS 

CMPB 

MODE. 12 

TRNSMIT? 

E.9 

BNE 

QUER 

NO 

bO 

MOV 

TRNSBLK.R5 

ADDRESS  OF  DEV  AND  FILE  NAME 

bl 

BR 

QFIL 

PRINT  MESSAGE 

62 

QUER; 

CMPB 

MODE/ « I 

RECV 

63 

BNE 

60GET2 

NO 

64 

MCV 

RCVBLK.RS 

ADDRESS  OF  DEVICE  AND  FILE  NAME 

6S 

QFIL: 

JSR 

PC.R60STR 

PRINT  RAD50  STRING 

66 

.ENOC 

67 

.  IF  OF 

RSX 

6S  000000 

012702 

OOOOOOG 

MOV 

«KBI6UF,R2 

FOR  QUE  STOREAGE 

69  OOOOOH 

010267 

000014G 

MOV 

R2.QDPBM*Q.  lOPL 

70  000010 

012706 

OOOOOOG 

MOV 

«QSTflT,R5 

FOR  STATUS  MESSAGE 

71  oooom 

020527 

OOOOOOG 

105: 

CMP 

R5.«QEND 

FINSHED? 

72  000020 

103004 

BHIS 

20% 

YES 

73  000022 

012500 

MOV 

(R5)+.R0 

RAD50  TO  ASCI  1 

74  000024 

004767 

OOOOOOG 

JSR 

PC,R500UT 

75  000030 

000771 

BR 

105 

7..  000032 

012767 

OOOOOOG 

000016G 

20S: 

MOV 

;QLNGTH, QDPBM+Q. 

OPL+2  ; NUMBER  OF  CHARACTERS  TO  PRINT 

77  000040 

012705 

000102G 

MOV 

8FDBIN+F. FNB,R5 

78  000044 

126727 

OOOOOOG 

000002 

CMPB 

M0DE,«2 

TRANSMIT  MODE? 

79  000052 

001406 

BEQ 

305 

YES 

80  000054 

126727 

OOOOOOG 

000001 

CMPB 

M0DE,«1 

RECEIVE  MODE 

81  000062 

001051 

BNE 

405 

NO 

82  000064 

012705 

0001 02G 

MOV 

8FDB0U0+F.  FNB,R5 

83  000070 

116522 

000032 

30S: 

MOVB 

N.  DVNM(R5),  (R2)"^ 

84  000074 

001444 

BEQ 

405 

85  000076 

116522 

000033 

MOVB 

N.  DVNM+1(R5^  (R2 

)-♦• 

36  000102 

116503 

000034 

MOVB 

N.  UNIT(R5),R3 

GET  UNIT  NUMBER 

87  000106 

062703 

000060 

ADD 

«60,R3 

88  000112 

110322 

MOVB 

R3.  (R2)  + 

89  000114 

112722 

000072 

MOVB 

«•:  ,  (R2)  + 

90  000120 

016500 

000006 

MOV 

N.  FNflM(R5K.R0 

91  000124 

004767 

OOOOOOG 

JSR 

PC.R50CUT 

92  000130 

016500 

000010 

no\j 

N. FNflM+2(R5)<R0 

93  000134 

004767 

OOOOOOG 

JSR 

PC.R500UT 

94  000140 

016500 

000012 

MOV 

N.  FNflM+4(R5).P0 

95  000144 

004767 

OOOOOOG 

JSP 

PC,R500UT 

96  000150 

112722 

000056 

MOVB 

»'.,(R2)  + 

97  000154 

016500 

000014 

MOV 

N.  FTYP(R5),R0 

98  000160 

004767 

OOOOOOG 

JSR 

PC.R500UT 

99  000164 

112722 

000073 

MOVB 

»';, (R2)+ 

100  000170 

016500 

000016 

MOV 

N.  FVEP(R5).R0 

101  000174 

004767 

OOOOOOG 

JSP 

PC.RSOUT 

CONVERT  TO  OCTPL 

102  000200 

062767 

000025 

OOOOlbG 

ADD 

«21.  -QDPBM  +  Q.  IOPL  +  2 

103  000206 

HOS: 

DIRS 

;QDPBri 

104 

.  ENDC 

105  000214 

000167 

OOOOOOG 

G0GET2: 

J  MP 

CPOUTX         ; 

PRINT  PROMPT  fifjL  GET  fiEXT  UB  ENTRY 

106 

000001 

.  END 

QUEHQN 
SYMBOL 

CROUTX= 
FOB  IN  = 
FDB0UO= 
F.  RCTL= 
fiLOC  = 
BBFS= 
BOB  = 
BGBC  = 
BKDN= 
BKDS= 
BKiF  = 
BKP1  = 
BkSTt 
B^  uB  = 
CHP    ^ 

DFNB-- 
DSPT  = 

D\iNn- 


F 
F 
F 
F 

F 
F 

F 

r 


RBS. 


MR  IN 


nfiCPO 
TRBLE 

tttttt 
tttttt 
ittttt 
00007b 
OOOOHO 
000062 
000070 
0000B7 
000026 
000020 
000050 
000051 
000024 
OOOOfeH 
000075 
000034 
000046 
000044 
000134 

OOOCOO 
CGOOOC 
•^UOZZO 
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F  8 


GX 

G 

G 


000 

001 
002 


F 

F 

F. 

F. 

F 

F. 

F. 

F 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F 


EFBK= 
EFN  = 
EOBB= 
ERR  = 
FflCC  = 
FFBY= 
FNflri= 
FNB  = 
FTYP  = 
FVER  = 
HIBKs 
LUN  = 
nBCT= 
MBCls 
nBFG= 
NRBD= 
NREC  = 
OVBS= 
PRCC  = 


000010 
000050 
000032 
0000S2 
000043 

oooom 

000110 
000102 
000116 
000120 
000004 
000042 
000054 
000055 
000056 
000024 
000030 
OOOOJO 
GOGOlb 


F, 
F, 
F 


RRTTs 
RCNMs 
RCTL  = 


F.  RSIZ= 


RTYPs 
SEQN= 
SPOV= 
SPUN= 
STBK= 
UNIT= 
URBO= 
VBN  = 
UBSZ= 
G0GET2 
KBIBUF= 
nODE  = 
NRCUSF= 
NTRNSF= 
N,  DID  = 


ooooot 

000034 

000017 

000002 

000000 

000100 

000072 

000074 

000036 

000136 

000020 

000064 

000060 

000214R 

tttttt   GX 

000000 
000002 
000024 


002 


DVNn: 
FID  : 
FNRfl: 
FTYPs 
FVER; 
NEXT; 
STRT: 
UNIT: 
QDPBn  : 
QEND  : 
QIOLBL 
QLNGTH: 
QSTflT  : 
QUEHPN 


Q. 
Q. 
Q. 

Q. 
Q. 


I  ORE: 
lOEF: 
lOFN: 
lOLU: 
lOPL: 


000032 

000000 

000006 

000014 

0000  U 

000022 

000020 

000034 

tttttt   G 

tttttt   GX 

OOOOOOR 

tttttt   GX 

tttttt   GX 

GOOOOORG 

000012 

000006 

000002 

000004 

000014 


002 


Q.  ;OPR  = 
Q.  lOSB^ 
RSX  s 
RSXllMs 
R500UT= 
R80UT  = 
S.  FRTT= 
FOB  = 
FNflMs 
FNB  s 
FNBU= 
FNTY= 
FTYP= 


S. 

S. 
S. 

s. 
s. 
s. 


002  S.  NFEN= 
TPGNUM= 
S$SPRG= 
5$50ST= 
. . .  TPC= 


000007 
000010 
000001 
000001 

tttttt 
tttttt 

000016 
000140 
000006 
000036 
000017 
000004 
000002 
000020 
000000 
000000 
000014 
000140 


GX 
GX 


ERRORS  DETECTED 


VIRTURL  nEMORY  USED:   1842  UOPDS 
DYNRMIC  MEnORY:   2S10  WORDS   i  10 
ELAPSED  TIME:   GO:  00:  19 
256.020  QUEHRN;27,-  256-030  QUEHRN 


(  S  PAGES) 
FPGESi 

.  C P F ,  - SP  =  UhP P XM .  QUE  HRN 


.-J 


QIJEHRN 

CRERTED  BY 

nPCRO  ON  6- 

•DEC-77  AT 

08:  27 

imBOL 

CPOSS  REFERENCE 

SYMBOL 

VRLUE 

REFERENCES 

CROUTX 

z 

tttttt 

GX 

2-105 

FOB  IN 

z 

tttttt 

G 

2-35 

2-77 

FDBOUO 

z 

tttttt 

G 

2-35 

2-82 

F  FNB 

: 

000102 

2-77 

2-82 

G0GET2 

000211* 

R 

»2-105 

KBIBUF 

z 

tttttt 

GX 

2-68 

MODE 

z 

tttttt 

GX 

2-78 

2-80 

NPCUSF 

z 

000000 

»l-5 

NTPNSF 

z 

000002 

»l-^ 

N.  DVNn 

z 

000032 

2-83 

2-85 

N.  FNRH 

z 

oooooe 

2-70 

2-92 

2-94 

N.  FTYP 

z 

oooom 

2-97 

N.  FUEP 

z 

000016 

2-100 

N.  UN  1  T 

z 

00003H 

2-Sb 

QDPBn 

z 

tttttt 

G 

2-35 

*2-69 

*2-"b 

•jEND 

z 

tttttt 

GX 

2-71 

QIOLBL 

000000 

P 

»2-^0 

2-m 

OLtiGTH 

:: 

****** 

GX 

2-76 

OSTQT 

r 

****** 

2X 

2-70 

QUEHflN 

000000 

RG 

«2-53 

Q.  lOFN 

r 

000002 

2-HO 

Q.  lOPL 

z 

oooom 

*2-69 

*2-76 

*2-10 

PSX 

z 

000001 

»l-2 

2-67 

Rsxnn 

z 

000001 

»l-3 

PTll 

z 

tttttt 

2-^  • 

RBOOUT 

z 

tttttt 

GX 

2-:^H 

2-91 

2-93 

R80UT 

z 

tttttt 

GX 

2-101 

TRGNUn 

z 

000000 

n\-S 

SSSRRG 

z 

000000 

«2-H0 

2-40 

2-4  0 

SS%GLB 

z 

tttttt 

2-HO 

PRGE   1 
CREF 


G     8 


*2-102 


7-103 


2-95 


^-^o 


QUEHPN 

CPERTED  BY 

nprpo  1 

:poss 

REFERENCE 

MRCPo  rmriE 

REFERI 

DIPS 

»2-38 

EPFOP 

»l-9 

EPPOPf 

»1-16 

EPPOPM 

M-32 

EPPOPP 

«1-H7 

FPTPL 

«l-53 

FOOFFS 

»2-33 

OFFS 

«2-H0 

QOFBS 

;2-H0 

Q!OS 

«2-3S 

H  8 
MPCRO  ON  6-DEC-77  RT  08  27      PRGE  2 

CREF 
KES 

«2-l03 


2-39 

»2-'40 
?«2-H0 


I     8 

PPD«:,«,       MfiCPO  nnO^     Ob-DEC-??  08:  27     PfiGE    1 


1 

2 

000001 

3 

OOOGOl 

M 

000002 

5 

000000 

b 

7 

8 

ocoooo 

9 

10 

tt 

12 

13 

m 

15 

16 

17 

18 

19 

20 

21 

22 

23 

m 

2S 

26 

27 

28 

29 

30 

31 

32 

S3 

3«f 

35 

36 

37 

38 

39 

HO 

m 

H2 

H3 

^^ 

H5 

i|4 

H7 

H8 

H9 

50 

51 

52 

53 

5H 

55 

56 

;PREFIX  FILE   FOR   2780  UfiP   RUNNING  UNDER  RSXlin 
RSX=1 

psxnn=i 

NTRNSF  =  2  ;NUriBER   OF   FILES   -    1    TO   TRflMSFER    IN  ONE   CMMD  STRING   (3) 

NRCVSF  =  0  ;NUriBER   OF   FILES  -    1    TO  RECEIVE    (1) 

; MACRO  DEFINITIONS 
TflGNUri=0 

.  MACRO     ERROR        TEXT 
ERRORK      <TEXT> 

jsp        PC. prompt 

.  ENDM 
;  MfiCRO  TO  DO  P  KILL  OND  QUEUE  THE  MESSAGE 

.MACRO  ERPORK  TEXT 

TAGNUM=TAGNUn+l 

.  iPP  N,  <  TAGNUM) 

JSR  R5.TYPMSG 

.WORD  TAG'N 

.WORD  TAGE'N- TAG'N 

.  PSECT  MESAG2.GBL 

TAG'N:   .  ASCI  I  "TEXT" 
TAGE'N: 

.PSECT  r^AiN 

.  ENDM 

.  ENDM 

,  MACRO  TO  QUEUE  A  MESSAGE  ONlY 

MACRO  EPP0RI1  TEXT 

TAGNUM=TAGNUn+l 

IPP  N<  V  TAGNUM) 

JSR  R5,TYPMSl 

.WORD  TAG'N 

.WORD  TAGE'N-TAG'N 

.PSECT  MESAG2.GBL 

TAG'N:   .ASCII  "TEXT" 
TAGE'N: 

.PSECT  MAIN 

.  ENDM 

.  ENDM 

■  MACRO  TO  QUEUE  A  MESSAGE  AND  PPOMPt 

.  MACRO  ERRORP   TEXT 

ERRORM  <TEXT> 

JSP  PC. PROMPT 
.  ENDM 

MACRO  FATAL   TEXT 

EPRORK  <TEXT> 

JSP  PB.DIE 
.  ENDM 


PRDCy   riQCPC  Mn04  Ob-OEC-??  08:27  PRGE  2 


J  8 


t 
2 
3 

8 

to 
11 

12 

13 

14 

15 

It 

IS 
19 

:g 
:i 


23 
2H 
26 
2b 
27 
28 
29 

30  oooocn 

31 

32 

^  — ' 

34 


77 
3S 

-Q 

40 
4  1 

4: 

4  _ 
44 
45 
4b 
47 
4S 
49 
50 
51 

53 
54 
55 
5b 

57 


.TITLE  RQOCX 
.  I  DENT  /OOOOl/ 

COPYRIGHT  (C)   1975,  1976,  1977 

DIGITRL  EQUIPriEH!  CORPORATION,  nflYNflRD,  MPSS.  01754 

THIS  SOFTWRRE  IS  FURNISHED  UNDER  R  LICENSE  FOR  USE  ONLY  ON 
R  SINGLE  COMPUTER  SYSTEM  RND  MRY  3E  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  RBOVE  COPYRIGHT  NOTICE.   THIS 
SOFTURRE,  OR  RNY  OTHER  COPIES  THEREOF,  MRY  NOT  BE  PROVIDED 
OR  OTHERWISE  MRDE  RVRILRBLE  TO  RNY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  RND  TO  ONE  WHO  RGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  RND  OWNERSHIP  OF  THE 
SOFTWRRE  SHRLL  RT  ALL  TIMES  REMRIN  IN  DEC. 

THE  INFORMRTION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHRNGE 
WITHOUT  NOTICE  RND  SHOULD  NOT  BE  CONSTRUED  RS  R  COM- 
niTMENT  BY  DIGlTRL  EQUIPMENT  CORPORRTION. 

DEC  RSSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIRBILlTY 
OF  ITS  SOFTWRRE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  Br 
DEC. 


VERSION  0 
;  ROBERT  H  POSENBRUM  2-RUGUST 
;  INCREMENT  RPDSO 

.PSECT  MfllN 


-7'4 


//'//' 


ROUTINE  TO  INCREMENT  THREE  DIGITS  STORED 
PND  THEM  COVERT  TO  RRDBO 


N  RPD50  BRSE 


//////'//// 


.  IF  DF 

RTll 

RPDINC. 

MOV 

j;3,r: 

myi 

f}CHEXT  +  3,P0 

flNTD: 

INCB 

-(RO) 

.  IF  DF 

RTll 

CMPB 

(R0'«47 

.  ENDC 

.IF  DF 

RSX 

CMPB 

(R0'.;7G 

END'' 

BLE 

PRDCN 

.  IF  DF 

RTll 

MOVB 

^Z^.  (RO) 

.  ENDC 

.  IF  DF 

RSX 

MOV 

»bO- (RO) 

.  ENDC 

INCB 

-(RO) 

DEC 

P2 

BLE 

RNTD 

PPIDCN: 

nov 

.  ENDC 

lfCHEXT,RO 

PQDcy      nflCPO  nno^    Ob-DEC-7?  08;  27 


K    I 


ss 

000000 

012746 

022200 

B9 

0000014 

005003 

bO 
1^  1 

OOOOOfe 

112006 

fc2 

OOOOIO 

042705 

177700 

b3 

oooom 

020527 

000032 

bH 

000020 

003404 

bE 

000022 

020627 

000060 

bb 

00002b 

002401 

b7 

000030 

006005 

bS 

000032 

b9 

70 

000032 

00^303 

71 

Q0003^ 

006303 

*« 

00C03b 

006303 

000040 

060305 

7U 

000042 

006303 

75 

000044 

006303 

7b 

00004b 

Ob0503 

1  t 

000050 

006116 

78 

000052 

103355 

79 

000054 

010300 

SO 

00005b 

0057:b 

SI 

OOOObO 

000207 

sa 

00000 1 

PRGE  2-1 

RODCX:  : 

MOV 

1122200. -(SP) 

CLR 

R3 

NEXTCHR 

:  MOVB 

(RG)^,R5 

.  IF  OF 

RSX 

BIC 

#177700. R6 

CMP 

R6.«32 

BLE 

LETT 

CMP 

R5,«60 

BLT 

LETT 

CHRP: 

CLR 

R5 

LETT 

.  ENDC 

flSL 

P3 

flSL 

P3 

flSL 

P3 

ROD 

R3.P5 

flSL 

P3 

flSL 

P3 

ROD 

P5.P3 

ROL 

(SP) 

BCC 

NtXTCHP 

MOV 

P3.R0 

TST 

iSP)  + 

PTS 

PC  ^ 

END 

;GET  ASCII    BYTE 


;FINISHED'' 
;N0 


;  I 


,EP?    STACK 


L     8 

PMDcy      nflcpo  nnoi4    Ob-DEC-??  08: 27    prge  2-2 

s.neoL  trble 

CHOP    OOOOIOP     002  NEXTCH  OOOOOfeR     002  NTRNSFr  000002         PSX   =  000001         TfiGNUM=  000000 
lETT    000C32R     002  NRCVSF=  000000         PflOCX   OOOOOORG    002  PSXllM:  000001 


.  fiB'I.. 

000000 

000 

000000 

001 

rifliN 

000062 

002 

EPPOPS 

DETECTED: 

0 

"IPTUPL  MEnOPY  USED:   380  WORDS   '  2  PRGES) 
D'.NflMiC  riEnOPY:   281 0  UOPDS   '  10  PRGES) 
E.^PSED  TIME   00  00:  07 
:Sto-020  PPDCX.27.  25b- 030  PPDCv  CPF  •-SP  =  UfiPPXM.  PRDCX 


PRC'Cy 

CPERTEO  BY 

MfiCPO 

ON  6-DEC-77  RT 

SYMBOL 

CPOSS  REFEPENCE 

SYMBOL 

VRLUE 

REFERENCES 

CHRP 

G00030  R 

»2-67 

LETT 

000032  R 

2-64 

2-66 

ME'-'TCH 

000006  R 

«2-60 

2-78 

NPC'iSF 

=   000000 

«l-5 

►JTPMSF 

=   000002 

ni-H 

PPOCX 

QOOOCO  Ru 

»2-Bo 

PSX 

=   GOQOOl 

tUl-Z 

2-61 

psxnn 

=   OOOOGl 

»l-3 

Pin 

=    tiftitif 

2-26 

TPGf^Ur! 

--  ooGoon 

»1-S 

n    8 

08  27  PRGE   I 

CREF 


»2-b8 


K      8 
PROCX  CPEfiTED  BY     HRCPO     ON  6-DEC-77  .^T   08   27  PPGE   2 

riQCPO   CPOSS  PEFF.RENCE  CREF 

HHrpo   tlRME  REFERENCES 

EPPOF'  81-9 

EPPOPl-  «1-16 

EPPOPM  81-:2 

EPPOPP  Sl-47 

FPTRL  «l-53 


mti'jimsi^hUimiiBmiss^ss? 


H;«H*ffii?i3aEiS:feeH±5S35£$; 


i&Bmmi^Buui>m^iii^.m\B^h:m^^a!&iSii'iiiS''-iJu^mmu?. 


ppoouT    riRCPO  nnoM    Ob-DEC-77  os-.  27    prge  1 


1 

2 

OOOOOl 

3 

000001 

H 

000002 

& 

000000 

b 

7 

8 

00'  000 

9 

10 

11 

1  " 

1  ■* 

i  _' 

14 

IE 

16 

1:^ 

IS 

1? 

20 

21 

^'•> 

^•. 

r>  -t 

^  -> 

24 

26 

26 

27 

28 

29 

30 

31 

32 

j>j- 

34 

3B 

Zb 

_\  ,•• 

35 

-q 

4  0 

41 

42 

43 

4H 

45 

46 

47 

4S 

49 

50 

51 

52 

53 

54 

65 

56 

.PPETIX  FILE  FOR  2780  UflP  RUNNING  UNDER  RSXlin 

RSX=1 

RSXlin=l 

NTRNSF=2 

NRCVSF=0 


; NUMBER  OF  FILES 
; NUMBER  OF  FILES 


1  TO  TRPNSFER  IN  ONE  CMMD  STRING  (3) 
1  TO  RECEIVE  (1) 


; MACRO  DEFINITIONS 
TflGNUM=0 

.MACRO  ERROR   TEXT 
ERRORK  <TEXT> 
JSP     PC, PROMPT 
.  ENDM 

;  MfiCRO  TO  DO  0  KILL  AND  QUEUE  THE  MESSAGE 

.  MACRO  ERRORK   TEXT 
TAGNUM=TRGNUM+1 


.  iRP 

N.  <:  TOGNUM) 

JSR 

R5,TYPMSG 

.  WORD 

TAG'N 

.  WORD 

TAGE'N-TAG'N 

. PSECT 

MESfiG2,GBL 

TOG'N: 

.  ASCI  1 

"TEXT" 

TPGE  'N: 

.  PSECT 

MAIN 

.  ENDM 

.  ENDM 

MACRO  TO  QUEUE  A  MESSAGE  ONLY 


.  MACRO 

EPRGRM   TEXT 

TAGNUM= 

TAGNUM+1 

.  IRP 

N, <  TAGNUM) 

JSP 

P5,TYPMS1 

.  WORD 

TAG'N 

.  WORD 

TAGE  N- TAG'N 

.  PSECT 

MESAG2.GBL 

TAG'N: 

.  ASCI  1 

"TEXT" 

TAGE'N: 

, PSECT 

MA !  N 

.  ENDM 

.  ENDM 

;  MACRO 

TO  QUEUE  fl  MESSAGE  ■• 

.' 

. MACRO 

ERPOPP   TEyf 

EPROPM 

<TEXT> 

JSP 

PC. PROMPT 

.  ENDM 

.  MACRO  FATAL   TEXT 

ERRORK  <T£XT> 

JSP  P5.DIE 
.  ENDM 


J 


RP.OOUT     n«CPO  nnOH     Ob-OEC-??  OS.  27     PRGE   2 


C  9 


1 

2 

3 

»» 

B 

b 

•7 

1 

8 

Q 

IC 

n 

12 

13 

l*f 

IS 

16 

17 

18 

19 

20 

21 

22 

U 

2*1 

n 

u 

w 

n 

29 

30 

000000 

31 

32 

33 

3«» 

3S 

36 

J? 

38 

39 

m 

m 

^2 

000000 

h:s 

00000b 

HH 

H% 

H 

«lt^ 

1*8 

000010 

49 

OOOOlfe 

It 

9\ 

53 

B4 

B5 

000020 

56 

000026 

57 

000032 

012767 
000407 


000010  000052 


.TITLE  RflOOUT 
.  I  DENT  /OOOOH/ 

'copyright  (C)  1975.1976.  1977 

;DIGITfiL  EQUlPnENT  CORPORRTION.  HfiYNIRD.  MflSS. 

;THIS  SOFTWRRE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY 
;0N  fl  SINGLE  COMPUTER  SYSTEM  fiND  MPY  BE  COPIED  ONLY  WITH 
;THE  INCLUSION  OF  THE  RBOVE  COPYRIGHT  NOTICE.   THIS 
;SOFTWRRE.  OR  RNY  COPIES  THEREOF.  flflY  NOT  BE  PROVIDED  OR 
.OTHERUISE  MODE  fiVBfilLRBLE  TO  RNY  OTHER  PERSON  EXCEPT 
FOR  USE  OH   SUCH  SYSTEM  RND  TO  ONE  WHO  AGREES  TO  THESE 
LICENSE  TERMS.   TITLE  TO  RND  OWNERSHIP  OF  THE  SOFTWARE 
SHRLL  RT  RLL  TIMES  REMRIN  IN  DEC. 

THE  INFORMRTION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHRNGE 
; WITHOUT  NOTICE  RND  SHOULD  NOT  BE  CONSTRUED  RS  R  COM- 
niTMtiNT  BY  DIGITRL  EQUIPMENT  CORPORRTlON. 

DEC  RSSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIRBILITY 
OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY 
DEC 


VOO-02  3/26/75 

VOO-03  4/28/75 

VOO-04  9/77  CEP 

MOOIPICATION  TO  PROTECT  AGAINST  MOPE  THAN  3  OUTPUT  CHARACTERS 
.  IF  OF  PSX 
. PSECT  MAIN 
.  ENDC 

.  IF  OF  RTli 
.  CSECT  PACOUT 
ENDC 


GLOBL   R80UT.R500UT..  PIOOUT 


/    *    ///////////  f    f    f    '    /    /    f    /    /    f    f    r    »/ 


RSOUT:   MOV 
BR 


RSOUT  WILL  OUTPUT  A  RADIX  £  fJUMBER  TO  THE  CONSOLE 

;SET  FOP  PAD  S 


///  '.'/,'//.'///// 


;iC,.RADIX 
RADXX 


/////// 


////.'///////// 


PIOOUT  NILL  OUTPUT  A  DECIMAL  NUf'.BEP  TO  THE  CONSOLE 


//////'//////     f     f      •     /     f     f     /     /     /     r 


012767 
000403 


000012  000042  PIOOUT;  MOV 

BR 


810.  .RADIX 
RADXX 


t/f/fffr///'r/f,/f't/r.'rf 


R500UT  WILL  OUTPUT  TO  THE  CONSOLE 
THE  WORD  STORED  RS  RAD50  IN  REGISTER  0 


///////// 


Q\17h7 
012703 
012701 


000050  000032 

000003 

000177' 


R500UT:  MOV 
RADXX;   MOV 
MOV 


»50,RRDIX 
»3,R3 
«DIGITS  +  3.^P1 


;SET  FOR  RAD  50 
; THREE  CHARACTERS 
; STORED  HERE 


RPDOUT     HfiCRO  nnOH     Oe-DEC-??  08:  2?     PfiGE  2-1 


D     9 


E8  000036 

005004 

CNl/LUP: 

CLR 

R4 

REn^lNDER  UORD 

B9  OOOOHG 

012746 

000020 

MOU 

«20.-(SP^ 

BIT  COUNT 

60  OOOOH** 

006300 

OIVLUP: 

flSL 

RO 

61  COOOHb 

006104 

ROL 

R4 

62  000050 

020467 

000004 

cnp 

R4.Rfi0lX 

BIG  ENOUGH  TO  SUBTRPCT 

63  00005H 

103403 

BLO 

NOP  IT 

NO 

6H  000056 

162704 

SUB 

(PC)i.R4 

SUBTRPCT  DIUSOR 

65  000060 

000050 

ROD  IX: 

■f 

50 

66  000062 

005200 

INC 

RO 

CORRESPONDING  BIT  IN  Q 

67  00006^ 

005316 

NOP  IT: 

DEC 

(SPi 

68  000066 

001366 

BNE 

DIULUP 

MORE  BITS 

69  000070 

005726 

TST 

tSP)f 

CLEPR  STPCK 

70  000072 

005303 

DEC 

R3 

PRE  WE  DONE? 

71  00007H 

100410 

em 

R50LUP 

YES  -  HPUE  DONE  3 

72  000076 

110441 

no\'B 

P4,-(R1) 

STORE  CHPRPCTER 

73  000100 

005700 

T'^T 

RO 

MORE 

7H  UC0102 

001355 

BNE 

CNVLUP 

75  000104 

005303 

BLFILL: 

DEC 

R3 

PPD  UlTH  SPPCE 

7b  000106 

100403 

Bill 

R50LUP 

NO 

77  000110 

112722 

00G040 

novB 

«40, (R2)+ 

78  oooim 

C00773 

BP 

BLTILL 

79  000116 

112100 

P50LUP: 

novB 

(R1)+,R0 

GET  CHPRPCTER 

80  000120 

100424 

BMI 

DONE 

FINISHED 

81  000122 

026727 

17:^732  000 

060 

CMP 

RR0IX,S50 

P  NUMBERS 

82  000130 

001014 

BNE 

NUnB 

YES 

83  000132 

105700 

TSTB 

RO 

P  SPPCE? 

8H  000134 

001406 

BEQ 

PSPOCE 

YES 

85  000136 

120027 

OOGO'2 

CnPB 

R0.«32 

P  LETTEP 

86  000142 

003405 

BLE 

LETTER 

87  000144 

162700 

0G0036 

SUB 

»36,R0 

P  DIGIT 

88  000150 

103004 

BCC 

NUnB 

P  NUMBER 

89  000152 

012700 

177740 

PSPflCE: 

nov 

»-40.R0 

NO 

90  000156 

0S270G 

000020 

LETTEP: 

ADD 

};20.P0 

91  000162 

062700 

000060 

NUnB: 

ODD 

«60.R0 

92  000166 

110022 

noi'B 

RO. (P2)+ 

93  000170 

0GLI752 

BP 

R50LUP 

94  000172 

000207 

DONE: 

PTS 

PC 

95  000174 

000 

000 

000  DIGITS: 

.  BYTE 

00.0377 

000  r  7 

377 

9b 

.  EVEN 

OOOGOi 

.  END 

-J 


PRDOUT 
SVriBOL 


npcpo 

TABLE 


nnOH     Ob-DEC-77  08:27     PRGE  2-2 


E     9 


BLFILL 
CNULUF 
D'GITS 
DM/LUP 

.  PBS. 

MAIN 
EPPORS 


OOOIOHP 
000C3bP 
0001714R 

oooo^^R 

000000 

000000 

000200 

DETECTED: 


002  DONE 
002  LETTER 
002  NOP  IT 
002  NRCVSF: 

000 
001 
002 


0001 72R 

002 

NTRNSFs 

000002 

RflOXX 

000026R 

002 

R60LUP 

000116R 

002 

000156R 

002 

NUMB 

000162R 

002 

RSX   = 

000001 

R500UT 

000020RG 

002 

GOOObHR 

002 

PSPRCE 

000152R 

002 

RSXliri= 

000001 

R80UT 

OOOOOORG 

002 

000000 

RADIX 

000060R 

002 

RIOOUT 

OOOOIORG 

002 

TPGNUM= 

000000 

0 


VMRTUPIL   riEnORY  USED:       ^^S   UORDS      (    2  PRGES) 
DYNOniC    MEnOPY:       2810  WORDS      (    10  PRGES) 

ELAPSED   TirE        00:  00:  07 

RflD0UT;27.    :Sb-030  RfiDOUT ^rPF/-SP=URPPxn, PflDOUT 


:S6 


OZi 


PPDOUT 

CPEfiTED  BY 

nRCRO  ON  6 

-DEC-77  AT 

08  27 

SYMBOL 

CROSS  REFERENCE 

LrnBOL 

UfiLUE 

REFERENCES 

BLFILL 

00010^ 

R 

»2-75 

2-78 

CNVLUP 

000036 

R 

»2-B8 

2-7H 

DIGITS 

00017H 

R 

2-57 

«2-95 

DIVLUP 

OOOOHH 

R 

»2-60 

2-68 

DOr<E 

000172 

R 

2-80 

ll2-9^ 

LETTER 

0001&6 

R 

2-86 

»2-90 

NOF  1 T 

c:'j06i+ 

R 

2-63 

»2-67 

NPCUSF 

=  000000 

»l-5 

NTPNSF 

=  000002 

»1-H 

NUMB 

000162 

R 

2-82 

2-88 

»2-9l 

i^-FflCE 

000152 

R 

2-814 

«2-89 

PPDIX 

000060 

R 

*2-^2 

*2-^8 

*2-E5 

PPDXX 

000026 

R 

2-H3 

2-49 

«2-5b 

PSX 

=  000001 

»l-2 

2-29 

psxiin 

=  000001 

»l-3 

FTU 

=  ****** 

2-32 

PICOUT 

000010 

PG 

2-37 

»:-4S 

PSOLUP 

00011b 

P 

2-?l 

2-76 

«2-79 

PBOOUT 

000C20 

PG   ^ 

2-37 

«:-55 

PSOUT 

oooooc 

PG 

2-37 

nZ-^2 

TRGNUn 

=  OGOOOO 

8  1-S 

PRGE   I 
CREF 


F     9 


2-62 


ir2-65 


2-81 


G 
P(^DOUT     CPERTED  BY  MRCRO  ON  6-DEC-77  AT  08  11  PfiGE  2 

MQCPO  CPOSS  REFERENCE  CREF 

MR'IPO  Ni^^ME      REFERENCES 
EPPOP  »l-9 

EPPOP^  »l-lb 
EPPOPM  «l-i2 
EPPOFP  «l-^7 
FMTflL  81-B3 


H     9 

PEflD         MRCPO  nnOH     Ofe-DEC-77  08:  27     PRGE   1 

t  ; PREFIX  FILE  FOR   2780  UflP  RUNNING  UNDER  RSXlin 

1  OOOOOl  RSX=1 

3  OOOOOl  RSXlin=l 

1  000002  NTRNSF  =  2  ;  NUMBER  OF  FILES  -  1  TO  TRRNSFER  IN  ONE  CflMD  STRING  (3) 

S  OOOCOO  NRCVSF=Q  ; NUMBER  OF  FILES  -  1  TO  RECEIVE  (1) 

b  ; 

7 

8        OCOOOO 

10 

11 

i: 

13 
14 

15 
lb 

IS 
19 

20 
21 

*n  "^ 

2^ 
25 
26 
27 
28 

29  ; 

30  ;  MflCPO  TO  QUEUE  fl  MESSRGE  ONlY 

31  ; 

3^  MACRO  EPRORn  TEXT 

33  TRGNUri=TRGNUM+l 

3U  .  IRP    N, <  TflGNUM) 

3B  JSP     R5,TYPMSl 

3b  .  WORD   TRG'N 

37  .WORD   TflGE'N-TflG'N 

3S  .PSECT  nESflG2GBL 

39  TRG'N:   .flSCII   "TEXT" 

^0  TPGE'N: 

Wl  .PSECT  M«!N 

^:  .  ENon 

i4J  .  ENDM 

146  ;    nflCPO   TO  QUEUE   fl  MESSfiGE   RNO  PPOMPT 

^t  -     "  •■  ; 

^1"  .  nfiCRO     ERROPP      TEXT 

48  EPROPM      <.TEXT> 

149  JSP  PC,  PROMPT 

50  . ENDM 

51 

52  ; 

53  .MACRO  FFlTRL        TEXT 
5'4  EPPORK  aEXT^ 
55  JSP  P5-DIE 
5b  .  ENDM 


; MACRO 

DEFINITIONS 

TAGNUMs 

0 

.  MACRO 

ERROR   TEXT 

ERRORK 

<TEXT> 

JSR 

PC, PROMPT 

.  ENDM 

;  MACRO 

TO  DO  A 

KILL  AND  QUE 

/ 

. MACRO 

ERRORK  TEXT 

TA6NUM= 

TAGNUM+1 

.  IRP 

N, <  TAGNUM) 

JSR 

R5.TYPMSG 

.  UORD 

TAG'N 

.  UORD 

TAGE'N-TAG'N 

.  PSECT 

MESAG2,GBL 

TAG'N: 

.  ASCII 

"TEXT" 

TAGE'N: 

.  PSECT 

MAIN 

.  ENDM 

.  ENDM 

FEflD 


MRCPO  nnOH     Ofe-DEC-77  08:27     PRGE   2 


I  9 


t 
2 
3 

S 

7 
8 
9 

10 

n 

12 

u 

1H 
15 
16 
17 

18 
19 
20 
21 
22 
23 
2H 
25 
U 
27 
2$ 
29 
30 
31 
32 
33 
3H 
3S 
3b 

-»  — * 
3S 

3? 

m 

42 
4i 
44 
4B 
4b 
47 
4S 
49 
50 
Bl 
52 
5  7 

54 
55 
5b 
57 


000000 


000000 


ooooo: 

000031 
000033 


TITLE  RERD 
.  I  DENT  /00004/ 

COPYRIGHT  (C)   1975  1975.  1977 

DIGITAL  EQUIPnENT  CORPORATION,  MRYNflRD/  MPSS, 


01754 


THIS  SOFTURRE  IS  FURNISHED  UNDER  R  LICENSE  FOR  USE  ONLY  ON 
R  SINGLE  COMPUTER  SYSTEM  RND  MRY  BE  COPIED  ONLY  UITH 
THE  INCLUSION  OF  THE  RBOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWRRE,  OR  RHY  OTHER  COPIES  THEREOF,  MRY  NOT  BE  PROVIDED 
OR  OTHEPUISE  flRDE  RURILRBlE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  RND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS.   TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MlTfiENT  BY  DIGITAL  EQUIPMENT  CORPORATION. 


DEC 

OF 

DEC. 


ASSUMES  NO  PESPONSIBILITY  FOR  THE  USE  OP  RELIABILITY 
TS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY 


VERSION  0 

ROBERT  H.  ROSENBOUM 
LAST  MODIFICATION  ON  2b-MflRCH-75 
READ  0  BUFFER  IN  MOVE  MODE 
PSECT   MAIN 


,  MACRO  CALLS 

.MCALL   GET%S-FDOFFS 
FOOFF%   DEF%L 

;  ASCi  I  DEF INITI0N3 
ETX=3 
EMr31 
ESC=33 


INPUTS- 


;DEF INE  PCS  OFFSETS  LOCALLY 


PO  =  ADDRESS  OF  BUFFER 

OUTPUTS: 

BUFFER  POINTED  TO  BY  PO  IS  FILLED 

THE  ROUTINE  FIRST  MOVES  THE  DATA  FROM  FCS'S  BUFFER  TO  ONE 

OF  ITS  OWN  7  BUFFERS  WHICH  IT  WILL  EVENTUALLY  GIVE  TO 

THE  TAP  TO  TRANSMIT.   IT  WILL  ONLY  DO  A  "GET"  TO  FCS  UPON 

TRANSFERRING  THE  LAST  CHARACTER  FROM  INPUT  RECORD. 

ERRORS  ARE  NOT  CHECKED  AFTER  THE  GET  BUT  UPON  THE  NEXi 

CALL  TO  RED%  SINCE  IT  IS  ONLY  AT  THIS  TIME  THAT  THE  GATfl  IN 

ERROR  WILL  BE  PROCESSED 
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J  9 


B8 
69 
bO 
bl 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 


74 

75 

76 

77 

7S 

79 

80 

81 

82 

83 

84 

86 

86 

87 

88 

89 

90 

91 

92 

93 

94 

^6 

9b 

97 

9£ 

99 

lOD 

101 

102 

103 

104 

106 

106 

107 

108 

109 

110 

111 

112 

113 

114 


OOOCOO 
000002 
000004 
000010 
000014 
000016 
000022 
000026 
000030 
000034 
000036 
000044 
000046 
000062 
000064 
000060 
000062 
000064 
000066 
000070 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000114 
000116 
000122 
000124 
000126 
000130 
000134 


000136 
000144 
000146 
000162 
000164 
000172 
000174 
000210 
000216 
000224 
000226 
000230 
000232 
000234 


000240 
000244 
000246 
000262 
000264 


010001 

010005 

012702 

105762 

100450 

016203 

016202 

060002 

G66700 

000421 

132767 

001015 

120427 

001405 

120427 

001007 

006301 

000461 

005301 

162767 

000407 

020102 

001406 

020100 

001460 

112304 

110421 

000760 

105767 

001042 

020100 

001447 

112721 

000773 


000716 

001434 

112767 
112767 
000261 
000207 
160102 
001405 
010267 
010367 
OOC407 
106767 
100404 


OOOOOOG 
QQQ052 

000026 
000024 


OOOOOOG 

000002  OOOOOOG  REDSPL: 

000003 

000031 


000200  GOOOCOG 


OOOOOOG 


000040 


.  IF  OF  RSX 

REDS:;   MOU  RO.Rl 

MOV  R0,R5 

nOV  »F0BIN.R2 

TSTB  F  ERR(R2) 

Bni  REDERR 

REDSUM;  MOV  F. NRBD+2(R2).  R3 

MOV  F.NRBD(R2),R2 

POD  R0.R2 

POD  RECSIZ.RO 

BP  REDTRN 

BITB  «2,FLPGS 

BNE  REDTRN 

CMPB  R4,»ETX 

BEQ  PEDETX 

CMPB  R4.»EM 

BNE  REDTRN 

DEC  Rl 

BR  REXIT 

PEDETX:  DEC  Rl 

BISB  «:00,ENDPEN 

BP  REDPG 

REDTPN:  CMP  R1,P2 

BEQ  REDPG 

CMP  P1,P0 

BEQ  REXIT 

MOVE  (R3)+,R4 

MOVB  R4,  (Rl)  + 

Bl?  PEDSPL 

PEDPG:   TSTB  MCB 

BNE  PEXIT 

PEDCL:   CMP  PUPO 

BEQ  RGET 

MOVB  ??40.(P1)  + 

BP  PEDCL 


BEGINNING  OF  BUFFER 
SAVE  IT 
FD6  PDDDRESS 
ERROR  ON  GET 

BLOCK  BUFFER  PDDPESS 

BYTE  COUNT 

END  OF  RECORD 

EON  OF  RECORD  FOR  TRANSMIT 

TRPNSPPRENT  MODE 

YES 

IS  IT  PN  ETX? 

YES 

IS  IT  PN  EM 

NO 


FINISHED"?  (END  OF  RECORD) 

YES 

EQUPL  TO  TRANSMIT  BUFFER  SIZE 

YES,  DON'T  REPD  PNY  MORE 

GET  CHPRPCTER 

MOVE  IT  TO  TRRNSMIT  BUFFER 

GENERAL  BLOCKING  MODE"? 
YES,  DON'T  PPD  THE  RECORD 
TRANSMIT  BUFFER  FULL^ 
YES.  NO  NEED  TO  PRO  IT 
NO,  PAD  WIIH  ASCI  I  SPACE 
UNTIL  THE  BUFFER  IS  FILLFD 


122762  OOOOOOG  000062  REDERR 
001007 


CONTROL  COMES  TO  PEDEPP  IF  THERE  HAS  AN  EPPOP  Ff<0M  THE  PREVIOUS  GET 

■RECOPP  TOO  BIG 


OOOOOOG  000062  PEDEOF: 


000200  OOOOOOG 
G0C200  OOOOOOG 


REXIT: 


000024G 
0000260 

OOOOOOG 


RGET: 


CMPB 

BNE 

ERROR 

BP 

CMPB 

BEQ 

ERROR 

MOVB 

MOVB 

SEC 

PTS 

SUB 

BEQ 

MOV 

MOV 

BP 

TSTB 

BMI 

GETSS 


»IE.  PBG.F  ERPfP2) 

REDEOF 

<RECORD  TOO  LONG) 

REDSUM 

«IE.  EOF-F.  ERR'.R2) 

RFNL 

<IN  ERR) 

«200,ELPTCH 

»200, lOEPR 


END  OF  F  iLE 


YES 

NO  ANOTHER  TYPE  OF  EPPOP 
SET  ETX  LATCH 
INDICATE  I/O  EPPOP 
EPPOP  RETURN  INDICATOP 
AND  RETURN 


PC 

R1,R2 

RGET 

R2,F.  NRBD+FDBIN 

R3,F. NRBD+2+FDBIN 

RFNL 

RVIPEN         ;PVI  PENDING^ 

RFNL  ;YES.  DON'T  DO  RNOTHEP  GET 

SFDBIN, , 
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IIB  000264 
lib  00026b 
11"  000270 

lis 

11? 


160501 
0G02m 
000207 

000001 


RFNL: 


SUB 
CLC 
PIS 
.  ENDC 

.  END 


R5,Rl 
PC 


; INDICfiTE  GOOD  RETURN 
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iitttt 

GX 

DSPT= 

OOOOHH 

F.  RRTTs 

000001 

N,  FID  = 

000000 

RGET 

000246R 

002 

EM, 

000C31 

DVNrtr 

0001 3H 

F.  RCNn= 

000034 

N.  FNflhs 

000006 

RSX   s 

000001 

ENDPEN= 

$%%%%% 

GX 

EFBKr 

0000 10 

F.  RCTL  = 

000017 

N.  FTYPs 

000014 

RSXlins 

000001 

E  K 

000033 

EFN  = 

000050 

F  RSI2= 

000002 

N.  FVERs 

000016 

RVIPENs 

tttttt   GX 

ETX 

000003 

EOBB  = 

000032 

F.  RTYPr 

000000 

N.  NEXTs 

000022 

S.  FflTTs 

000016 

FDBIN  = 

tttttt 

GX 

ERR  = 

000052 

F.  SEQN= 

000100 

N.  STPTs 

000020 

S.  FOB  = 

000140 

FLOGS  = 

«*t1c«t 

GX 

FRCC  = 

0000H3 

F  SPDV= 

000072 

N.  UNITS 

000034 

S.  FNflfls 

000006 

F  QCTL= 

00007b 

FFBY= 

oooom 

F.  SPUN= 

000074 

PPRSSSs 

000027 

S  FNB  = 

000036 

F  flLOC= 

000040 

FNRn= 

000110 

F.  STBK= 

000036 

PROMPTS 

tttttt   GX 

S.  FNBWs 

000017 

F  BBFS= 

000062 

FNB  = 

000102 

F  UNITS 

000136 

RECSiZs 

tttttt   GX 

S.  FNTYs 

000004 

F  BOB  ^ 

000070 

FTYPr 

000116 

F.  URBD= 

000020 

REOPG 

0001 16R 

002 

S.  FTYPs 

000002 

F  BGBC= 

000057 

FVER  = 

000120 

F.  VBN  = 

000064 

REDCL 

0001 24R 

002 

S.  NFENs 

000020 

F.  BKDN- 

000026 

HIBK  = 

000004 

F  UB'^Z= 

000060 

REDEOF 

000164R 

002 

TPGEl 

00001 7R 

003 

F.  B»^-DS  = 

00002C 

LUN  = 

000042 

IE.E0F  = 

tttttt 

GX 

REDERR 

G00136R 

002 

TflGE2 

000025R 

003 

F  BKEFx 

OOOOSO 

riBCT  = 

000054 

tE.RBG= 

tttttt 

GX 

PEDETX 

000066R 

002 

TPGNUMs 

000002 

F  EKF1= 

000051 

riBCi  = 

000055 

lOERP  = 

tttttt 

GX 

PEDSPL 

000036R 

002 

TPGl 

OOOOOOR 

003 

^    EKST^ 

00002U 

riBFG= 

000056 

ncB   = 

tttttt 

GX 

PEDSUM 

0000 16R 

002 

TPG2 

00001 7R 

003 

F  Bt^"'B- 

OOOOb^ 

NPBD= 

000024 

NPC''/SF  = 

ocoooo 

PEDTRN 

0001  OOP 

002 

TYPMSGs 

tttttt   GX 

F  CHP  -- 

OOOOT'E 

NRH'r 

000030 

NTPN£F= 

000002 

PEDS 

OOOOOORG 

002 

,  GETSQ= 

tttttt   G 

F  rNTG= 

ocoo:^ 

OVBS  = 

000030 

N.  D'D  = 

000024 

REX  IT 

G00230R 

002 

.  .  .  TPC  = 

000140 

F  DFNB= 

OOOCHb 

r 

PPCC  = 

OGOOId 

N.  DV'NM  = 

0000 z: 

FFNL 

000264P 

002 

.    PBS. 

MAIN 

riESPG2 

ERRORS 


OCOOOO 
000000 

0002": 

000025 
DETECTED 


000 
001 

no2 

003 
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SfMBOL 

CP 

OSS  REFERENCE 

CREF 

svriBOL 

K 

RLUE 

REFERENCES 

ELQTCH 

z 

tttitt 

Gy 

♦2-103 

En 

z 

000031 

«2-m 

2-73 

EMDPEN 

z 

tttttt 

GX 

«2-78 

ESC 

- 

000033 

»2-»42 

ETf 

z 

000003 

«2-40 

2-71 

FOB  IN 

z 

tttitt 

GX 

2-bl 

12-109 

*2-110 

2-im 

FLAGS 

z 

tttttt 

GX 

2-b9 

F  EPP 

z 

000052 

2-62 

2-96 

2-100 

f  nPBD 

z 

00002H 

2-64 

2-65 

*2-109 

»2-llC 

IE  EOF 

z 

tttttt 

GX 

2-100 

'E  PEG 

z 

tttttt 

GX 

2-96 

•  OEPP 

z 

tttttt 

GX 

♦2-104 

nCB 

z 

tttttt 

GX 

NPCUSF 

z 

ooooco 

«l-5 

'iTPHSF 

z 

coooo: 

«l-4 

FRP^SS 

z 

cooo:: 

«2-im 

2-114 

pponPT 

z 

♦  ♦MM 

GX 

2-9S 

2-102 

PECSi: 

z 

♦♦♦♦*♦ 

GX 

2-b" 

PEDQG 

GOul lb 

F 

■^_  "'Q 

2-31 

82-S7 

PEDCL 

000124 

P 

PEDEOF 

000 IbH 

P 

2-97 

82-100 

PEDERP 

00012b 

P 

2-6: 

82-96 

PEDETX 

OOOObb 

P 

PEDSPL 

00003b 

P 

«2-b9 

2-Sb 

PEDSUM 

0000  lb 

P 

;:-b4 

2-QQ 

REDTRN 

000100 

P 

:-bS 

2-70 

2- "4 

8:-£0 

RED% 

000000 

PG 

«:-59 

REXIT 

000230 

P 

2-^b 

2- S3 

2-SS 

82-107 

RFNL 

0002bi+ 

P 

2-101 

2-111 

2-113 

82-115 

RGET 

00024b 

P 

2-90 

2-1  OS 

r:-ii: 

PSX 

z 

000001 

«!-: 

2-5S 

RSXlin 

z 

000001 

^\-z 

RVIPEN 

z 

tttttt 

GX 

2-u: 

TRGEl 

cooor 

P 

:-*^s 

82-9S 

trge: 

000025 

P 

2-102 

«2-102 

TRGNUM 

z 

000002 

«1-S 

2-9S 

n:-?s 

2-98 

I'MGl 

OOOOCO 

P 

2-^S 

2-98 

82-9S 

tpg: 

0000  r 

r. 

2-102 

2-102 

82-102 

T  VPMSG 

z 

♦♦♦♦♦♦ 

Gv 

2-^S 

2-102 

.  GETSQ 

- 

i  ♦  *  M  1 

G 

Z-ilu 

2-114 

M     9 


2-114 


2-10; 


82-102 


2-102 


PE^D 
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MQCPO    ( 

.ROSS  REFERENCE 

MRCRO  N«nE              REFERENCES 

cnov'u 

«2-nu 

»2-im 

EPPOP 

81-9 

2-98 

EPPOPK 

«l-lb 

2-98 

ippopn 

«l-32 

EPPORP 

81-U7 

EPP'^ 

82-im 

82-1114 

FPTRL 

Sl-53 

F DOFFS 

^:-Zb 

82-37 

GETS'I 

8:-3b 

2-im 

LDFDBS 

«:-iiu 

2-114 
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2bfe 
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9- 
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n- 

367 

i:- 

"'O  '"* 

13- 

399 

m- 

um 

COnTEX  nRCRO  DEFINITIONS 

connuNicflTiONS  line  code 

OPEN  files  for  RECEIUE 
VERTICRL  FORMS  CONTROL  PROCESS 
HORIZONTAL  FORnS  CONTROL 
CRRRIRGE  CONTROL 
RSSIGN  BUFFER  TO 
TPRNSLRTlCN  ROUT 
nOl'E  DRTR  TO  FNB 


BYSYNC  TRP 
NE  FOR  PRINT 

OP  connoN  su 


NG 


DRTR  f/BI/SL) 
TCH  RRER 


CONSTRNT  DRTR  RPER 


C  10 

PECEll'E  nOCPO  ^nO^  0b-DE<"-77  OS:  28  PfiGE  1 

t  ;PREFIX  FILE  FOR  2780  UPP  RUNNING  UNDER  RSXlirt 

2  OOOOOl                RSX=1 

3  ooouoi                            Rsxnn=i 

^  000002               NTRNSF=2              ; NUMBER  OF  FILES  -  1  TO  TRPHSFER  IN  ONE  CMMD  STRING  (J) 

5  000000               NRCVSFrO              ; NUMBER  OF  FILES  -  1  TO  RECEIVE  (1) 

i  ; 

7  ;nfiCRO  DEFINITIONS 

8  000000  TfiGNUnsO 

9  . MACRO  ERROR   TEXT 
10  ERRORK  <TEXT> 

n  JSP     PC. PROMPT 

i:  .  ENDM 


1  ^ 


14  ;    MfiCRO   TO  DO  R  KILL   PND  QUEUE   THE   MESSPGE 

15  ; 

lb  .  nPCRO  ERRORK  TEXT 

P  TRGNUM=TRGNUM^1 

IS  .  IPP    N,  <  TRGNUn) 

19  JSR  R6,TYPMSG 

20  .  UOPD       TRG'N  I 

21  .WORD       TRGE'N-TRG'N  / 

22  .PSECT     MESflG2-GBL  / 

23  TRG'N.       .RSCII      "TEXT" 


m  TRGE'N: 

25  .  PSECT      r>RlN 

2b  .  ENDn 

27  .  ENDM 

28 

29  : 

30  ;  nPCPO  TO  QUEUE  R  MESSRGE  ONlY 

31  , 

32  .  MRCPO  ERRORM  TEXT 

33  TRGNUn=TRGNUM+l 

3U  .  iRP    N, <  TRGNUM) 

35 

36 


39 
UO 

m 

4-^ 

46 
4b 
47 
4S 
49 
50 
51 
52 
53 
54 
55 
5b 


/ 


JSR 

R5,TYPMS1 

.  WORD 

TRG'N 

.  WORD 

TRGE'N-TRG'N 

.  PSECT 

MESRG2.GBL 

TRG'N: 

.  RSC I  1 

"TEXT" 

TRGE'N: 

.  PSECT 

MAIN 

.  ENDM 

.  ENDM 

;  MRCRO 

TO  QUEUE  R  MESSAGE  AND  PPOMPT 

/ 

.  MRCRO 

ERRORP   TEXT 

EPROPM 

<TEXT> 

JSR 

PC  PROMPT 

.  ENDM 

f- 

.  MRCRO 

FRTRL   TEXT 

ERRORK 

<TEXT> 

JSR 

R5.DIE 

.  ENDM 
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. MfiCRO 

nov 

JSP 
.  ENOn 

.  MPCRO 
MOV 
JSP 
.  ENDU 

.  nflCPO 

MOV 
JSP 
.  ENDM 


LINIT.PflRLST 

UPPRLST.Rl 

PC.EflTINT 


RSRBUF.PflRLST 

IIPflRLST,Rl 

PC.EMTPUT 


PUTTCPPPLST 

«PfiRLST,Rl 

PCEHTPUT 


:s 

3Q 

"40 
41 

m 
m 

44 
4E. 
46 

47 
4S 
4? 
50 
51 
52 
53 
54 
55 


MflCPO 

nov 

JSP 
.  ENOn 

.  nflCPO 

JSP 

,  ENon 

.  MRCPO 

r\o\i 

JSP 
.  ENDM 

.  MPCPO 

my 

JSP 
.  ENDM 


PUTMC.PPRLST 

»PPPLST,P1 

PC.EMTPUT 


GETS 

PC  EMTGET 


PUTTM,PPPLST 

«PRRLST,R1 

PC-EMTTIM 


PUTD,.  PfiPLST 

»PfiPLST.pi 

PCEMTPUT 
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27 

28 

29 
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VOO-2 
VOO-3 
VOO-4 

VOO-5 
VOO-6 
VOO-7 
VOO-10 
VGO-11 
VOO-12 
VOO-13 
VGO-14 
VOO-15 
VOO-16 
VOO-17 
VOO-20 
VOQ-21 
VOO-22 
\/00-23 


10/1.^74 

11/13/74 

11/20/74 

1 /lb/75 

1/17/75 

2/13/75 
2/19/75 
2/24/75 
3/2b/75 
3/31/75 
4/28/75 
5.  20/75 
5/28/75 
b/11/75 
b/23/75 
b/27/75 
7/3/75 

9/77  -  CEP 


PUT  IN  FI.X  FOR  'IDLE-LOOP'   ROBLEM 
PUT  IN  Fl.v  FOR  RECEIVE  HANf  PROBLEM 
PUT  IN  FIX  FOR  PUNCH  FILE  F(?OBLEM 


RECEIVE  DATA  COMPLETE  ROUTINE 


CALL: 


INPCPL  IS  CALLED  FROM  THE  "GETS"  LOOP  THROUGH  THE 
UPON  FINDING  A  UIB  ENTRY  FROM  THE  PI  SYNC  TAP 


JUI1P  TfiBLE 


FUNCTION: 


PElEIWE 

nflCPO 

nnoi*  06-DEC 

COMTE-  HQCPO 

DEFINITIONS 

B3 

E,9 

bO 

bl 

000000 

62 

63 

6U 

bS 

bb 

^  6:- 

001000 

6S 

000020 

11   08:  28  PRGE  H-l 


6  10 


THIS  ROUTINE  WRITES  ^HE  OfiTO  TO  THE  OUTPUT  DEUICE  TSKING  CPRE 
OF  ALL  UERTICflL  RND  HORIZONTAL  FORflPTiNG 

.  PSECT  nPIN 

nflCRO  CRLLS 

.nCflLL  CLOSES 


RECEIVE  STRTUS  BIT  DEFINIT 
TRNPEC=1000 

U0UP=20 


ONS 


;TRRNSPRRENT  RECORD 
;USEP  BUFFER  OVERFLOW 


PECEIVIE   MfiCPO  MUQi* 
COmUNl  CRT  IONS  LINE 


Ob-DEC-77 
CODE 


08:  28     PRGE   S 


H   10 


70 

.  SBTTL 

connuNi COT  IONS  line  code 

11 

73 
7H 

;COnnUNl CAT  IONS 

INPUT  COMPLETE 

.  ENPBL 

LSB 

75  000000 

1Q5767 

OOOOOOG 

INPCPL; 

:  TSTB 

ONLINE 

; ONLINE 

76  OOOOOH 

100112 

BPL 

GOPSR 

; REASSIGN  BUFFER 

77   000006 

012705 

000006G 

nov 

IIENTRY*6,R5 

78  000012 

012704 

000002G 

nov 

IIENTRY+2,R4 

;PDDRESS  OF  DPTP  BUFFER 

79  000016 

032715 

006000 

BIT 

KbOOO. (RB) 

;  IS  IT  PN  EOT  OR  P  DLE-EOT? 

80  000022 

001511 

BEQ 

INCP2 

81  00002^ 

82 

105267 

OOOOOOG 

INCB 

CMBFPV 

-RELEPSE  BUFFER 

83 

SH  000030 

010546 

MOV 

R5,-fSP) 

;SPVE  ERROR  BITS  -  MSSG  ROUTINE  CLOBBBERS 

IT 

£5  000032 

106367 

OOOOOOG 

PSLB 

ETXFLG 

;ETX  RECEIVED-? 

8b  000036 

103425 

BCS 

205 

.  YES 

87  G000^0 

105767 

OOOOOOG 

TSTB 

FLPGS 

;TRPNSMIT  PCTIVE? 

SS  OOOOHH 

100003 

BPL 

105 

;N0 

89  0000H6 

012605 

MOU 

(SP)+,R5 

;MPKE  SURE  R5  RESTORED 

90  000050 

G00167 

OOOOOOG 

jrip 

SNDEOT 

;PBORT  THE  TRANSMISSION 

91  00005^ 

122767 

000001 

OOOOOOG 

105: 

CMPB 

81, MODE 

;HPVE  WE  OPENED  RECEIVE  FILE-? 

92  000062 

001036 

BNE 

355 

:N0,  MUST  BE  CONTROL  MODE 

93  00006U 

106367 

OOOOOOG 

PSLB 

OPNFLG 

;*«««IF  NO  DPTR  DON'T  ISSUE 

9^  000070 

10:425 

BCS 

335 

:*«*«MESSPGE 

95  000072 

iszr-b/ 

000200 

OOOOOOG 

BISB 

8200- INCPCV 

-INCOMPLETE  RECEIVE  -  NOTE  SO  THPT 

96 

;0N  NEXT  RECEIVE  WE  WILL  OPEN  SPME  FILE 

97 

; 

;PLUS  ONE  VERSION 

98 

' 

;CLEPR  FLPG  PT  ENTER  TIME 

99  000100 

EPPOPK 

INCOMPLETE  PtCV 

)  ;TYPE  ERROR  MESSPGE 

100  000110 

000404 

BR 

305 

SEE  IF  DISCONNECT  OR  RVI 

101  000112 

205: 

EPPOPK 

<PECV  COnPLETE) 

INDICPTE  SUCCESSFUL  COMPLETION 

102  000122 

004767 

OOOOOOG 

305: 

JSR 

PC. CLOSER 

;RELEPSt  THE  DPTPSETS 

103  000126 

005767 

OOOOOOG 

TST 

UBFCNT 

PNY  BUFFER  OVERRUNS  THIS  TIME"? 

lO^  000132 

001402 

BEQ 

325 

NO 

105  000134 

004767 

OOOOOOG 

JSP 

PCUBFHPN 

YES,  TELL  THE  OPERPTOR  HOW  MPNY 

106  ooomo 

004767 

OOOOOOG 

325: 

JSR 

PC- PROMPT 

REPPOMPT 

107 

t 

%%%%%%% 

108  00014'i 

106367 

OOOOOOG 

335: 

PSLB 

RVIPEN 

CLEPR  PND  TEST  IF  PVI  IS  PENDING 

109  000150 

103003 

BCC 

355 

NO 

110  000152 

152767 

000200 

OOOOOOG 

BISB 

«200,TXPEN 

YES,  INDICPTE  TFPNSMIT  PENDING 

111  000160 

012605 

355: 

MOV 

(SP)+.R5 

RESTORE  ERROR  BITS 

111.  000162 

032715 

004000 

BIT 

84000, (R5) 

DLE-EOT-;* 

113  000166 

001002 

BNE 

505 

YES 

im  000170 

000167 

OOOOOOG 

405: 

J  MP 

TUPNRR 

115  oool7^ 

505: 

EPPOPK 

<DiSCONNECT> 

116  00020^ 

000167 

OOOOOOG 

GODSC: 

J  MP 

OFFHPN 

GO  OFFLINE 

117 

.  DSPBL 

LSB 

ns 

119  000210 

112767 

000001 

OOOOOOG 

NOKE; 

MOVB 

81, MODE 

SET  RECEIVE  MODE 

120  000216 

016767 

001304 

OOOOOOG 

MOV 

QRECE^QMODE 

SET  UP  FOR  QUERY  TYPEOUT 

121  00022H 

152767 

OOOOOOG 

OOOOOOG 

BISB 

8PCK,RESP 

SEND  PN  PCK 

122  000232 

105267 

OOOOOOG 

GORSP: 

INCB 

CMBFPV 

MPKE  THE  BUFFER  RuRILPBLE 

123  000236 

004767 

001152 

JSP 

PCPSROUT 

PSSIGN  THE  BUFFER  TO  THE  TPP 

12<4  0002H2 

125 

126  000246 

000167 

OOOOOOG 

INPEXT: 

J  MP 

GETENT 

GET  THE  NEXT  UIB  ENTPY 

105767 

OOOOOOG 

INCP2: 

TSTB 

FLPGS 

J 


PECEI^'E  MRCPO  Mno^  06 

-OEC-77  08.  28  PfiGE 

COtinUNl  CRT  IONS 

LINE  CODE 

127  000252 

100767 

128  000254 

1GB767 

OOOOOOG 

129  000260 

100115 

130  000262 

005765 

177776 

131  000266 

001117 

132  000270 

032715 

004000 

133  000274 

001343 

134  000276 

126727 

OOOOOOG  000001 

135  000304 

001752 

13b  000306 

152767 

000200  OOOOOOG 

13"  000314 

000735 

5-1 


10 


BMI 

GOPSR 

; IF  MPSTER,  IGNORE 

TSTB 

INITF 

; INITIAL IZRT ION? 

BPL 

INPRP 

;N0,  GO  HPNDLE  TFR 

TST 

-2(R5) 

;flNY  CHARS  IN  BUFFER? 

BNE 

RUIERR 

;YES  -  TYPE  ERROR  MESSRGE 

BIT 

HHOOO. (R5) 

;  CHECK  FOR  VRLID  EN(i 

BNE 

GODSC 

;N0  -  DISCONNECT 

CMPB 

riODE.«l 

BEQ 

GORSR 

;EXTRR  SELECT 

BISB 

»200,OPNFLG 

itnttSiJ   FLRG  TO  SHOW  EN 

BF 

NOKE 

;»*«*«* 

RECEIVED 


OPEN  F  !LES  FOR  RECEIVE 


DEC-77  08;  28  PRGE  h 


J  10 


139 

mo 

m2 
mz 

14H 
146 

m? 

148 
149 
ISO 
lEl 

15: 

1B3 
1S4 

1S6 
15b 
1S7 
IBS 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
17S 
179 
ISO 
ISl 

is: 

1S3 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 


SBTTL  OPEN  FILES  FOR  RECEIVE 


000316 
000322 
000326 
000332 
000334 
000336 
000340 
000344 
000350 
000354 

000360 
00036: 
000 36b 


000372 
000376 

000402 
000406 
000412 
000416 
000424 
0004  32 
000440 


000440 
000446 
000454 


000464 
000470 
000472 
000506 


012702 
012701 
012700 
005732 
1C0412 
014202 
004767 
012701 
012700 
004767 

000427 
010262 

012712 


012702 
004767 

005067 
005067 
005067 
012767 
012767 
012767 


012767 
012767 
005067 


000460   105067 


004767 
103011 


OOOOOOG 
OOOOOOG 
OOOOOOC 


001152 
OOOOOOC 
OOOOOOG 
001136 


SLfiVCl 


7b 


DFLT: 


1" 


<  f  i  i 


OOOOOOG 
001114 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000206  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 


DFCNT: 


NDFLT: 


SUITOK: 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 


OF 


152767  000200  OOOOOOG 


nov 

MOV 

nov 

TST 

Bni 
nov 

JSR 
MOV 
MOV 

JSP 

BR 

nov 

MOV 

.  IF 

MOV 

CLP 

CLP 

CLP 

CLP 

CLR 

CLP 

BP 

.  ENDC 

.  IF  or 

MOV 
JSR 

CLP 
CLP 
CLP 
MOV 
MOV 
MOV 

.  ENDC 
.  IF  OF 

nov 

JSR 

BMI 

JMP 

JSP 

.  ENDC 

.  IF  DF 

MOV 

MOV 

CLP 

.  ENDC 

CLRB 

JSR 
BCC 
EPROP 
81  SB 


IIRCVBLK.R2 

US.  FNBU/Rl 

(IFOBOUO^F.  FNB. 

d(R2)^ 

DFLT 

-(R2),R2 

PCXFRFNB 

«RCVSUT/<^,R1 

tlSUR6N.R0 

PCXFRFNB 

DFCNT 
R2. -2(R2) 
«-l. (R2) 
RTll 

DEVLP, (R2)+ 
(R2)  + 
f  R  2 )  + 
( P  2 )  + 
(P2)  + 
( R  2 )  + 
PCVSW 
SLflVCl 

PSX 

«DFNLP,P2 

PC.XFPFNB 

SWPBN 
SUPSL 
PCHN 

»134.  ,PVflL 
«P.  Vqp.PTYP 
«FD.  CP.PSTT 


RTll 

»RCuSW,Pl 

PC SWITCHES 

SWITOK 

PERR 

PC.DFNBUF 

P3X 

nCOLTT.COLPl 
«C0LTT,C0LP2 
PECSl 

INCRCV 

PC. ENTER 

INPRfi 

<PECV  OPEN  ERR 

n200. lOEPR 


;»  OF  WORDS  TO  MOVE  TO  FNB 
RO       ;fiDDR  OF  UHERE  TO  MOVE  THE  DflTP 
USE  DEFAULT  FILE  NAME? 

NO-  GET  POINTER  TO  RECEIVE  NAME  BLOCK 
TRANSFER  DfiTP  FROM  RCVBLK  flREP  TO  FNB  I 
»  OF  WORDS  OF  RECEIVE  SWITCHES 
PDDR  OF  FIRST  SWITCH 
TRANSFER  SWITCHES  TO  COMMON  RREP 
FROM  END  OF  RCVBLK  FOR  THIS  FILE 
OPEN  THE  FILE 

RESET  RCVBLK  POINTER  TO  STPRT 
INDICPTE  NO  RECV  CMMDS  PENDING 


N  FOB 


DEFPULT  TO  LP 

FILENPME 

FILENPME 

EXTENSION 

SIZE 

END  INDICATOR 


SINCE  NO  RECEIVE  CMMD-  DEFPULT 
TRANSFER  DPTR  FROM  DEFAULT  NPME  BLOCK 

TO  FNB  IN  FOB 
CLEAR  ALL  SWITCHES 


DEF INE  SWiirHES 


SWITCHES  APE  OK(LEGAL) 


FOR  VERTICAL  FORMAT  CONTROL 
FOR  VERTICAL  FORMAT  CONTROL 
CLEAR  TOTPL  RECORD  SIZE 

CLEPR  INCOMPLETE  RECEIVE  FLAG 

(EOT  WITH  NO  ETX) 

ENTER  FILE 

ERROR  FROM  OPEN"?********* 

YES  -  INFORM  OPERATOR 

**«***«SET  TO  ABORT  RECEIVE 


PECEP/E 

nficpo  nii04  06 

-DEC-77  08.  28  PfiGE  6-1 

K  10 

OPEN  FILES  FOP 

RECEIVE 

19e 

197 
198 

000514 

INPRfl; 

199 

000514 

106367 

OOOOOOG 

flSLB 

OPNFLG 

;lll«<DO  WE  NEED  TO  OPEN  FILE? 

200 

000520 

103676 

BCS 

SLflVCl 

;III«IYES 

201 

000522 

006715 

TST 

(R5) 

;flBNORriflL  FORMAT-^ 

202 
203 
204 

000524 

100003 

BPL 

TSTPFL 

;N0.  GO  CHECK  CONDITIONS 

000526 

052715 

000200 

RVIERR: 

BIS 

«200, (R5) 

; FORCE  RECORD  ERROR  FLOG 

205 

20b 

000532 

000414 

BR 

SETBW 

207 

:os 

000534 

032715 

OlOOOO 

TSTPFL; 

BIT 

UIOOOO, (R5) 

;N0.  ETX  SEEN? 

209 

000540 

001404 

6EQ 

INPR2 

.NO,  CHECK  FOR  OB  END 

210 

000542 

152767 

000200  OOOOOOG 

BiSB 

»200,ETXFLG 

;YES,  SET  ETX  FLRG 

2il 

000550 

000405 

BR 

SETBW 

;G0  TO  COMMON  PRINT  CODl 

212 

000552 

032715 

040000 

INPR2: 

BIT 

«40000, (R5) 

,flB  END? 

213 

00055b 

001402 

BEQ 

SETBW 

;N0,  GO  COMMON  CODE 

214 

000560 

012715 

030377 

nou 

iliZQ377,  (P5) 

;SET  ERROR  FLOGS  AND  ETX  FLAG 

21B 

000564 

032715 

030000 

SETBW: 

BIT 

«300DC, (R5) 

;ETX  OR  ETB?'? 

21b 

000570 

001403 

BEQ 

SETB5 

;N0 

217 

000572 

152767 

000200  OOOOOOG 

BISB 

»200,RCKPEN 

21S 

000600 

105767 

OOOOOOG 

SETBB: 

TSTB 

lOERR 

;fl  WRITE  ERROR? 

219 

000604 

001417 

BEQ 

SETBO 

;N0 

220 

0G0b06 

105267 

OOOOOOG 

INCB 

INPCNT 

:YES  -  COUNT  RECORD  flS  RECEIVED 

221 

000612 

105267 

OOOOOOG 

INCB 

CnBFRU 

;nflKE  THE  BUFFER  flVfllLRBLE 

22! 

000616 

004767 

000572 

.ISP 

PCflSROUT 

; ASSIGN  THE  BUFFER  TO  THE  TAP 

223 

000622 

106367 

OOOOOOG 

flSLB 

flCKPEN 

; RECORD  CONTAIN  ETB  OP  ETX^ 

224 

000626 

103205 

BCC 

INPEXT 

;WAIT  FOR  REMAINING  RECORDS  IN  BLOCK 

22B 

000630 

105067 

OOOOOOG 

CLPB 

lOERP 

; CLEAR  ERROR 

226 

000634 

105067 

OOOOOOG 

CLPB 

INPCNT 

; CLEAR  INPUT  COUNT 

227 
228 
229 

000640 

000167 

OOOOOOG 

jnp 

SNDEOT 

;SEND  EOT 

000644 

005767 

OOOOOOG 

SETBO 

TST 

NflKCNT 

;EPROR  BLOCK  BEING  RECEIVED'' 

230 

000650 

100433 

Bni 

SETB4 

;YES  - 

231 

000652 

001417 

BEQ 

SETB2 

;NOT  A  RETRANSMIT  RECORD  EITHER 

'7  7 '? 
^  J  ^ 

000654 

005367 

OOOOOOG 

DEC 

NRKCNT 

; THROW  RETRANSMITTED  RECORDS  AWAY 

.-^  -^  -T 

000660 

106367 

OOOOOOG 

flSLB 

RCKPEN 

;MAKE  SURE  IS  NOT  FINAL  RECORD 

234 

000664 

103010 

BCC 

5S 

;  IS  OK 

235 

000666 

105067 

OOOOOOG 

CLPB 

ETXFLG 

; IS  A  FINAL  RECORD  -  CLEAR  ETX  FLAG 

23b 

000672 

016767 

OOOOOOG  OOOOOOG 

MOV 

INPCNT, NRKCNT 

.RESET  NAK  COUNT  FOP  NEXT  TIME 

000700 

152767 

OOOOOOG  OOOOOOG 

BISB 

»N«K. PESP 

;SET  TO  SEND  A  NAK 

239 
240 

000706 

0001S7 

177320 

55: 

JMP 

GOOSP 

; UNTIL  NAKCNT  BECOMES  ZERO 

000712 

105715 

setb:: 

TSTB 

iP5) 

;EPPOP  INDICATED  FOR  THIS  PECOPD'? 

241 

000714 

100045 

BPL 

SFTBl 

242 

000716 

042715 

G00220 

BIC 

U200IU0VP-  "P5> 

:  JUST  A  BUFFER  OVERRUN'^ 

243 

000722 

105715 

TSTB 

^P5^ 

244 

000724 

001003 

BNE 

10% 

;N0.  OTHER  ERRORS  TOO 

245 

000726 

005267 

OOOOOOG 

INC 

UBFCNT 

;YES,  INCREMENT  «  OF  SUCH  EPPOPS 

246 

000732 

0004  36 

BR 

SETBl 

.PROCESS  TRUNCATED  RECORD  NORMALLY 

24  7 

000734 

10%: 

248 

000734 

005237 

OOOOOOG 

INC 

olSSTKSET 

; INCREMENT  BCC  ERROR  COUNT 

249 

000740 

105067 

OOOOOOG 

SETB4: 

lLPB 

ETXFLG 

.;  ERROR  DETECTED  !N  BLOCK.  DON'T 

250 

; ALLOW  ETX  ACTIONS 

251 

000744 

105267 

OOOOOOG 

INCB 

INPCNT 

;  COUNT  RECORD  AS  PECEI'-ED 

252 

000750 

105267 

OOOODOG 

INCB 

NflKCNT 

; INCREMENT  EPPOP  PECOPD  COUNT 

vPEN  F  ILES   FOP   RECEIVE 


DEC-77  08:  28     PfiGE   6-2 
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263 

000:'6H 

062767 

lOOOOG 

OOOOOOG 

26H 

000762 

106367 

OOOOGOG 

266 

000766 

103H02 

26t 
267 
263 

Q00770 

000167 

177236 

00077^ 

042767 

100000 

OOOOOOG 

269 

001002 

166767 

OOOOOOG 

OOOOOOG 

2b0 

2b  I 

OOIOIO 

01b7b" 

OOOOOOG 

OOOOOOG 

262 

001G16 

16276^ 

OOOOOOG 

OOOOOOG 

263 

001021* 

0001b" 

17:'202 

2b^ 

001 C 30 

SETB3 


BIS 

UlOCuGG.NQKCNT 

,SET  RCVING  BAD  BLOCK  FLAG 

flSLB 

fiCKPEN 

,ETB  OR  ETX  SEEN? 

BCS 

SETB3 

,YES 

JflP 

GOPSR 

; THROW  RECORD  flWOY 

BIC 

IIOOOOO.NPKCNT 

.END  OF  ERROR  BLOCK 

SUB 

NfiKCNT, INPCMT 

;NUnBER  OF  GOOD  RECORDS  IN  BLOCK 
;THr^T  WERE  PRINTED 

MOV 

INPCNT. NflKCNT 

,NU.1BEP  OF  RECORDS  IN  PETPflNSMlT 

81  SB 

«NflK,PESP 

, SEND  P  NflK 

J  MP 

GORSP 

SETBl 


PE'.EruE  nfiCPO  nnO^     Ob-OEC-??  08: 
VEPTi'lPL   FOPnS  CONTROL   PROCESSING 


28  PfiGE  7 


266 
^b? 
ZbS 
2b? 
2"0 
271 

■t-y  ^ 

i.  <     4. 

273 
27H 

4.  <  b 

2'^S 
27"^ 
2S0 
2S1 
282 
283 
2SH 
286 
2Sb 

nQ-f 

^O  t 

288 
289 
2?0 
291 
292 
293 
29H 
296 
29b 
297 
298 

300 
301 

302 
303 
304 

306 
30b 
307 
30S 
309 


H  10 


SBTTL  VERTICRL  FORMS  CONTROL  PROCESSING 


001030 
001032 
00103H 
0010^0 
0010M2 
OOlOHfc 
001050 
00106b 
001060 
001066 
001070 
00107^ 
00107b 
001102 
001 lOH 
001112 


ooiim 

001122 
00112^ 

001126 
00113H 
001136 
001142 

ooimn 
ooim6 

001152 
001154 
001162 
001164 
001170 
001172 
00117U 
001200 
001202 


001210 


005002 
012405 
105767 
001432 
105767 
0C1533 
032764 
001407 
022767 
001523 
004767 
000414 
121527 
001366 
126527 
001366 


012767 
005725 
000476 

032764 
001004 
021627 
001010 
000763 
105767 
001404 
022767 
001465 
122527 
001062 
112502 
105767 
G01403 
012767 


OOOOOGG 
OOOOOOG 


001000  000002 


BINARY: 


OOOOOGG  OOOOOOG  105: 

000374  205: 

OOOOOOG  305. 
000001   OOOOOOG 

OOOOOOG  OOOOOOG  SELECT: 

001000  000002  NOBINP: 
032000G 

OOOOOOG        105: 
OOOOOOG  OOOOOOG 
OOOOOOG        205: 

OOOOOOG 
OOOOOOG  OOOOOOG 

NOSLCT: 


CLR 

no\/ 

TSTB 

BEQ 

TSTB 

BEQ 

BIT 

BEQ 

CMP 

BEQ 

JSP 

BP 

cnPB 

BNE 
CMP  8 
BNE 


nov/ 

TST 
BP 

BIT 

BNE 

CMP 

BNE 

BP 

TSTB 

BEQ 

cnp 

BEQ 

CMPB 

BNE 

MOi'B 

TSTB 

BEQ 

MOl/ 


n 

(R4)i.R5 

SURBN 

N06INR 

SWRSL 

LPGON 

»TRNREC,2fR4) 

30% 

WCHRNL.SURSUP 

LPGON 

PCTRNSLT 

NOBINR 

(P5).»BINESC 

105 

1 iP5). »BIN4 

205 


8'.H«NL 
•  P5i  + 
CHPCL 


SUP  SUP 


P4 


STRNPEC- 

105 

" P5). ;64*400+ESC 

205 

SELECT 

SWPSL 

"'05 

SCHRNL-3UFSUP 

LPGCN 

(P5)+.«ESC 

LPGON 

i  f^  5 )  + .  P  2 

SUPSL 

NOSLCT 

;CHRNL2.SUPSL'P 


fiS    IS 

N   TRONSPRI^ENCY 


;CLERR   CRRRlfiGE   CONTROL 

BINRRY  nODE 

NO 

SELECTIVE   RECEIVE   TOO'' 

NO.    JUST  WRITE   THE   RECORD 

UflS   THIS  RECORD  RECEIVED 

NO 

PREVIOUS  RECORD  fl  PUNCH  RECORD? 

YES,  TREAT  THIS  ONE  flS  PUNCH  DfiTH  TOO 

NO,  TRflNSLflTE  THE  DflT«  TO  RSC I  I 

CHECK  FOR  VFC  PND  HFC 

DOES  THIS  RECORD  STRRT  UlTH  fiN  ESCPPE^ 

NO,  TREAT  LIKE  THE  LAST  RECORD 

BINPRY  ESCPPE  FOUR^ 

NO,  TREPT  PS  P  PRINT  RECORD 

OTHERWISE  SELECT  PUNCH  CHPNNEL  8.  UP  ITE 

SELECT  THE  PUNCH  CHPNNEL 
SCIP  OVER  ESC  SEQUENCE 
AND  WRITE  THE  RECORD 

TPPNSPRPENT  RECORD'^ 

YES.  IGNORE  DEVICE  SELECTION 

;PSCI  I  ESCPPE  FOUR'' 
NO,  SEE  IF  PRINT  SELECTION  PRESENT 
YES,  SELECT  PUNCH  CHANNEL 
SELECTIVE  RECEIVE  ACTIVE'' 


NO.  TREAT  ALL  ESCAPE  SEQUENCES  AS  VFC 

YES<  LAST  RECORD  A  PUNCH  RECORD'^ 

YES.  TREAT  THIS  HnE  A  PUNCH  THEN 

ASCI  I  ESCAPE'' 

NO-  JUST  WRITE  LIKE  THE  LAST  RECORD 

GET  SECOND  CHARACTER  OF  ESCAPE  SEQUENCE 

SELECTIVE  RECEIVE  REQUESTED  (/SL; 

NO-  JUST  ANALYZE  PPINT  CONTROL 

YES,  SELECT  PRINT  CHANNEL 

AND  Pr^flLfZE  FORMS  CONTROL 


PECEll'E  nPCPO  nilOU     Ob-DEC-??  08:28     PfiGE   8 
W0P120NTPL   FOPflS  CONTPOL 


N  10 


Z\\ 
312 

313 

:m 

31S 
31b 
317 
318 
319 
320 
321 

7-?  "> 

323 

325 

326 

7--q 
330 


SBTTL  HORIZONTAL  FORMS  CONTROL 


001210  120227  000011 

001211*  001024 

00121fe  012702  OOOOCOG 

001222  0111403 

00122H  005743 

001226  012700  lOOOOOG 

001232  112501  HFRCOP 

001234  120127  000011 

001240  001401 

001242  005001 

001244  110120  HFPCl: 

001246  005302 

0C1250  001402 

00125:  005303 

001254  001 3bb 

00125b  I52"b7  000200  GOOOOGG  HFPC2: 

001264  000433 


cnPB 

R2.I11 

BNE 

INPR 

nou 

«LPSIZE,R2 

nov 

(R4),R3 

TST 

-(R3) 

nov 

UHFCREC.RO 

novB 

(R5)t,Rl 

cnPB 

RMIll 

BEG 

HFRCl 

CLR 

Rl 

nouB 

PI,  IRQ) 4- 

DEC 

P2 

BEG 

HFRC: 

DEC 

P3 

BNE 

HFPCOP 

BiSB 

;20G.HFCPCT 

8R 

LPMN 

ESC  HT  SEQUENCE'' 

NO  -  DO  DEFAULT  VFC 

YES  -  COPY  RECORD  INTO  HFC  STOROGE 

RECEIVE  COUNT 

SUBTRACT  TWO  FOP  ESC  HT  CHRPS 

USE  BUFFER  TO  STORE  HFR 

GET  NEXT  CHAR 

IS  IT  HT'^ 

YES  -  LERVE  PIS  ,  S 

NO  -  CLERR  IT 

STORE  CURRENT  CHRP 

ROOn  FOR  MORE'' 

NO  -  IGNORE  THE  PEST  OF  THE  RECOPD 

nORE  TO  DO'' 

YES  -  GO  DO  NEXT  CHRP 

SET  'HFC  RCTn/E'  FLRG 


^ii!{ii^j|]^)!<{iJM4y^^ 


cfeffixgiiKaeaHa 


gUlesiSlI 


BS9US9.';nu>9SS!B!S»!Sfl5!!!»m 

■-"  \*.".y.,"...rA'Vii.vr.T"i*r.  i''?:i''.i.':v;:y'j'.r..l-" 


mmssSisi^i 


ECEP'E   nOCPO   nUOH 
tPPPIRGE   CONTROL 


Ob-DEC-77  08:  28  PRGE  9 


B  n 


w  ^  ^ 

336 
33b 
337 
338 
339 
3H0 
341 

34  3 
3HH 
34  E. 
346 
347 
34  S 
349 
350 
351 
352 
353 
354 
355 
35b 
357 
358 
359 
3bO 
3fcl 

36: 

363 
36U 


001266 
0C1272 
001276 
001300 
001304 
001306 
001J12 
001314 
001320 
001322 
001324 
001326 
001330 
001334 

001336 
001340 
001342 

001346 
001350 

001354 
001360 
001364 
001370 
001372 
001376 
001404 
001410 


042702 
162702 
002411 
020227 
003407 
162702 
0C2403 
020227 
002401 
005002 
010500 
011401 
062701 
000402 

011401 
014400 
004767 

103002 
004767 

105267 
105267 
106367 
103005 
105067 
152767 
004767 
000167 


SBTTL 

CflRRIflGE  C 

177600 

INPR: 

BiC 

«177600.R2 

OOOICO 

SUB 

«100,R2 

BLT 

CHRCL 

000010 

CMP 

R2.«10 

BLE 

CHRSL 

000012 

SUB 

»12.R2 

bLT 

CHRCL 

000013 

cnp 

P2,«13 

BLT 

CHRSL 

CHRCL: 

CLP 

R2 

CHRSL: 

ncu 

R5.R0 

r,ov 

(R4).P1 

177776 

ADD 

»-2,Pl 

BP 

LPGOC 

LkGON: 

riov 

(P4).R1 

nov 

-(P4),P0 

OOOOOOG 

LPGOC: 

JSR 

PC. WRITS 

IF  DF 

PSX 

ecc 

LFF  IN 

OOOOOOG 

JSP 
.  ENDC 

PC, CLOSER 

OOOOOOG 

LPFlfJ: 

INCB 

CflBFRV 

OOOOOOG 

INCB 

INPCNT 

OOOOOOG 

flSLB 

flCKPEN 

BCC 

SETB6 

OOOOOOG 

CLRB 

INPCNT 

OOOOOOG  OOOOOOG 

BISB 

«RCK.PE3P 

000004 

SETB6: 

JSR 

PC..  RSPOUT 

OOOOuQG 

JMP 

GETENT 

IS  CC  RN  ^-H 

NO  LESS  THRN  R 

IN  RRNGE  OF  ^-H 

YES 

IS  IT  RN  S  OR  T 

NO,  CC  IS  H-P( ILLEGRL) 

GRERTER  THAN  T 

YES 

BUFFER  RDDP  IN  PO 
GET  WORD  lOUNT 


.BUFFER  RDDP  IN  PO 
; WRITE 

•BRANCH  IF  NO  EPPOP 

; OTHERWISE  CLOSE  THE  FILES 


INCREMENT  C OUTER 

HRVE  WE  SEEN  RN  ET>  ETB 

NO 

CLERP  INPUT  COUNT 

SEND  AN  RCK 

RSSIGN  BUFFER 


PE'lEi'iE  nocpo 
fiS^lGN  BUFFER 


268 
369 
370 
371 
372 
373 
37^ 
37S 
37b 

37S 

3:^9 

3S0 


nnOH     Ob-DEC-77 
TO  BYSYNC   TRP 


08:  28     PfiGE   n 


oomm 

0011420 

oom26 
oomzfe 
oom^H 

001H50 
0011452 

oomsfe 

001460 

oomtz 

0014  66 


116700 
016067 

142767 
105367 
005720 
020027 
103401 
005000 
110067 
000207 


OOOOOOG 
GOOOOGG  000002G 


flSROUT. 


000140 
OOOOOOG 

OOOOOOG 


OOOOOOG 


OOOOOIG 


C  11 


SBTTL  PSSIGN  BUFFER  TO  BYSYNC  TAP 


PSP2: 


novB 

pssgnx.ro 

MOV 

Cn8LST(R0),BI 

RSPBUF 

6ISPPR 

BIC6 

«mO.BlSPRP*l 

DECB 

CnBFPV 

TST 

(RO)* 

cnp 

RO,«CnBMflX 

BLO 

RSR2 

CLP 

PO 

nouB 

PO.OSSGNX 

PTS 

PC 

SPPR^2 


.FIND  CURRENT  ASSIGN  SLOT 

;..PND  MOVE  BUFFER  PODRESS  TO  PRGLIST 

PSSIGN   TO  B I  SYNC   TPP 
; RESET   THE   OP-CODE 

;UPDPTE   SLOT    INDEX 
;NEED  TO  RESET    IT^ 


;SPVE   UPDPTED    INDEX 


D  11 

»?r  :[niE 

nocpo  hno^  Ob- 

-OEC-77  08  28 

FRGE  12 

TVRNSLnTlON  POUTINE  FOP 

PPINT  DflTfl  '.. 

'BI/SD 

383 

.  SBTTL 

TRflNSLPTION  ROUTINE  FOR  PRINT  DPTP  (/Bl/SL) 

38^4 

3SS 

;  INPUTS: 

386 

P4=P0INTER  TO  BYTE  COUNT 

387 

R5=P0INTER  TO  ORTR 

388 

■  - 

389 

oom70 

011401 

TPNSLT: 

MOV 

(R4),R1 

;GET  THE  BYTE  COUtiT 

390 

001472 

01054b 

nou 

R5,-(SP) 

;Sfl'/E  OflTfl  POINTER 

391 

001474 

111500 

lOS 

MOVB 

(R5),R0 

;GET  THE  NEXT  CHflRflCTER 

7Q^ 

00147b 

042700 

177400 

die 

«177400.P0 

;CLEPR  THE  HIGH  BYTE 

393 

001502 

llb025 

QQOOCOG 

ncvB 

ETfifRO),  fR5)> 

,GET  ITS  EQUIVALENT  (TPBLE  DEF 1 

39H 

00150b 

005301 

DEC 

PI 

;DECREnENT  CHflRCTER  COUNT 

395 

001510 

001371 

BNE 

105 

;MORE  TO  GO 

:9b 

ooi5i: 

012605 

nov 

(CP  "^-P5 

;RESTORE  DflTfi  POINTER 

39:- 

001514 

000207 

PTS 

PC 

;PLL     Di'iNE 

NED    IN  TOP) 


E  n 

PElLiwe   rifiCPO  nnOH     Ob-OEC-77  08:28     PPiGt   13 
nO'i'E   DfiTR  TO   FNB   OR   COnnON  SWITCH  RRER 

399  .  SBTTL     MOVE   OOTQ  TO  FNB   OR   COMMON  SWITCH  AREA 

HOO 

HOI  ;    INPUTS: 

402  ;       R0=DESTINQTI0N 

403  ;       Rl=«  OF  WORDS  TO  MOVE 

404  ;      R2=S0URCE 

405  r-  ; 

406  001816  XFPFNB:  : 

40^001516  012220  MOV     (R2)*,  ^RO)*  ;MOVE  ONE  WORD 

40S  001B20  006301  DEC     Rl  ; DECREMENT  THE  WORD  COUNT 

40?  001622  001376  BNE     XFPFNB         ;MOPE  TO  GO 

410  001624  000207  PTS     PC  ;fiLL  DONE 

411 

ui: 


.^^ 


CONSTPNT  OfiTR  RPEP 


Ob-OEC-77  08:  28  PfiGE  IH 


U17 


001526 


070bl3 
000001 


QPECE. 


F   U 

SBTTL     CONSTPNT  DflTO  PPEfi 

PfiDBO      'PEC 

END 


• 

PECEIVE 

riRCPO  nnOH  Ob-OEC-77 

08:  28  PRGE 

m-1 

G 

11 

SYMBOL 

TRBLE 

RCK 

tttttt   GX 

ENTER  = 

ttltll  GX 

INPRR 

0005mR 

002 

RCVSUTs 

Ittit*  GX 

SURSL  3 

******  GX 

flCKPEN= 

ntttt  GX 

ENTRY  = 

tttttt   GX 

INPR2 

000S62R 

002 

RECSl  s 

*tt*«l  GX 

SURSUP3 

******  GX 

RSPOUT 

oommRG 

002  ESC   = 

tttttt   GX 

lOERR  = 

IllttI  GX 

RESP  2 

tttttt   GX 

S.  FNBU3 

******  GX 

RSR2 

OOmbZR 

002  ETR   = 

tttttt   GX 

LPFIN 

0013&HR 

002 

RSX   3 

000001 

TflGEl 

0000 17R 

003 

fiSSGNX= 

tttttt   GX 

ETXFLG= 

tttttt   GX 

LPGOC 

00t3H2R 

002 

RSXllMs 

000001 

TAGE2 

00003^R 

003 

BINPIRY 

0010H2R 

002  FDBOUQs 

tttttt   GX 

LPGON 

001336R 

002 

RTYP  s 

titttt  GX 

TRGE3 

0000H6R 

003 

BINESC= 

tttttt   GX 

FD.  CR  = 

tttttt   GX 

LPSlZEs 

tttttt   GX 

RUPL  3 

«tl««»  GX 

TRGE^ 

000063R 

003 

BINH   = 

Ittt**  GX 

FLRGS  = 

tttttt   GX 

MODE  = 

tttttt   GX 

RVIPENs 

******  GX 

TflGNUMs 

OOOOOM 

BlSPfiP= 

tttttt   GX 

F.  FNB  = 

tttttt   GX 

NRK   = 

|«<tl»  GX 

RVIERR 

000526R 

002 

TRGl 

OOOGOOR 

003 

CHRNL  = 

»««t««  GX 

GETENT= 

tttttt   GX 

NRKCNTr 

tttttt   GX 

R.  URR  3 

******  GX 

TflG2 

0000 17R 

003 

':H«NL2= 

*<»**«  GX 

GORSR 

000232R 

002 

NOB ! NR 

00tl2bR 

002 

SELECT 

OOlimR 

002 

TPG3 

00003HR 

003 

<:hfcl 

001322R 

002  GODSC 

00020^R 

002 

NCKE 

000210R 

002 

SETBW 

00056HR 

002 

TPGH 

OOOOHbR 

003 

:hpsl 

00132^R 

002  HFCRCT= 

*IXI<|  GX 

NOSLCT 

001210R 

002 

SETBO 

QOObHHR 

002 

TRNRECs 

001000 

':losep  = 

******  GX 

HFCREC= 

tttttt   GX 

NRCVSFs 

000000 

SETBl 

G0;030R 

002 

TRNSLT 

00m70R 

002 

■nBFRV= 

******  GX 

HFRCOP 

001232P 

002 

NTRNSF= 

000002 

SETB2 

0007 12R 

002 

TSTPFL 

00053^R 

002 

'1BLST  = 

******  GX 

HFRCl 

0012HHR 

002 

OFFHRN= 

*«*«*«  GX 

SETB3 

00077^R 

002 

TURNRRs 

******  GX 

:  riB  nRx= 

******  GX 

HFPC2 

00125bR 

002 

ONLINE: 

******  GX 

SETBH 

000740R 

002 

TXPEN  = 

******  GX 

COLPl  - 

******  GX 

INCP2 

00024bR 

002 

OPNFLG= 

******  GX 

SETB5 

GOObOOR 

002 

TYPMSG= 

******  GX 

':0LP2  -- 

******  GX 

INCRCU= 

******  GX 

PROMPT: 

******  GX 

SETBb 

OOmOHR 

002 

UBFCNTr 

******  GX 

COLTT  = 

******  GX 

INiTF  = 

******  GX 

QMODE  = 

******  GX 

SLRVCl 

00031bR 

002 

UBFHflN= 

******  GX 

DFCNT 

0004H0R 

002  INPR 

0012bbP 

002 

QRECE 

00l52bR 

002 

SNDEOT= 

******  GX 

UOVR  = 

000020 

DFLT 

000362P 

go:  inpcnt= 

******  GX 

PRTT  = 

**«*»*  GX 

STKSET= 

******  GX 

WRITS  = 

******  GX 

DFNLP  = 

******  GX 

INPCPL 

OOOCOOPG 

002 

PCHN   = 

******  GX 

SUPBN  = 

******  GX 

XFPFNB 

G0151bPG 

002 

EnTPUT= 

******  GX 

INPE.v.T 

000:U2P 

oo: 

PC'|''BL^  = 

******  GX 

.  RES. 

000000 
000000 

OGG 
001 

MR  IN 

001530 

002 

MESRG2 

000063 

003 

ERRORS  I 

DETECTED: 

0 

VIRTURL 

riEMORY  USED:   mbB  UOPDS   (  6  FRGES 

) 

DYNRniC 

MEMORY:   2S10  UOPDS   ( 

10  PRGES' 

ELRPSED 

TIME:    00: 

00.  32 

26b<02( 

3  RECV;27. 

256.030  PEC'i.  ( 

:PF.-sp=uflPP 

xri.  c" 

r.xnRCPECU  ^ 

H  11 

PECV 

CRERTED  BY 

MfiCRO  ON  6 

-DEC-77  AT 

08  28 

PAGE  1 

St'tlBOL 

CROSS  REFERENCE 

CREF 

SVriBOL 

VALUE 

REFERENCES 

RCK 

s 

tttttt 

GX 

S-121 

9-360 

fiC  K.PEN 

= 

ttnn 

GX 

«b-217 

t6-223 

»6-233 

16-254     19-357 

fiSPOUT 

Gomm 

RG 

B-123 

6-222 

9-361 

811-370 

RSPZ 

00^62 

R 

11-377 

«ll-379 

OSSGNX 

s 

tttttt 

GX 

11-370 

«ll-379 

BiNfiPY 

001042 

R 

«7-272 

BINESC 

z 

tttttt 

GX 

7-280 

BINH 

z 

tttttt 

GX 

7-282 

BlSPflP 

= 

tttttt 

GX 

I11-371 

11-372 

*ll-373 

CHRNL 

2 

tttttt 

GX 

7-276 

7-286 

7-297 

CHPNL2 

- 

tttttt 

GX 

7-304 

'HPCL 

001322 

R 

7-288 

9-335 

9-339 

89-342 

CHPSL 

001324 

R 

9-337 

9-341 

89-34  3 

CLOSER 

= 

tttttt 

GX 

5-102 

9-353 

CMBFflV 

= 

^^tt*tt 

GX 

«5-Sl 

*5-122 

*b"  M*.  1 

*9-355     *ll-374 

CriBLST 

- 

tttttt 

GX 

11-371 

CMBnpv 

: 

ittttt 

GX 

ll-3"6 

COL  PI 

r 

****** 

GX 

*!6-l86 

C0LP2 

z 

****** 

GX 

*6-l!:7 

COLTT 

z 

tttttt 

GX 

6-186 

6-1S7 

DFCNT 

000H4G 

R 

6-153 

86-176 

DFLT 

000362 

P 

6-146 

86-154 

DFNLP 

z 

tttttt 

GX 

6-16" 

EMTPUT 

z 

tttttt 

GX 

11-372 

ENTER 

z 

tttttt 

GX 

6-192 

ENTRY 

z 

tttttt 

GX 

5-77 

5-78 

ESC 

z 

tttttt 

GX 

7-292 

7-299 

ETfl 

= 

tttttt 

GX 

12-393 

ETXFLG 

z 

tttttt 

GX 

*5-S5 

*b-210 

*6-235 

U-249 

FDBOUO 

z 

tttttt 

GX 

6-144 

FD.  CR 

z 

tttttt 

GX 

6-175 

FLOGS 

- 

tttttt 

GX 

5-S7 

5-126 

F.  FNB 

r 

tttttt 

GX 

6-144 

GETENT 

z 

tttttt 

GX 

5-124 

9-362 

GOfiSR 

000232 

R 

5-76 

85-122 

5-127 

5-135      b-23S 

GODSC 

000204 

R 

«5-116 

5-133 

HFCRCT 

z 

****** 

GX 

*S-32S 

HFCPEC 

r 

tttttt 

GX 

S-31S 

HFPCOP 

001232 

R 

»S-319 

8-327 

HFPCl 

001244 

R 

S-321 

8S-323 

HFPC2 

001256 

P 

8-325 

8S-32S 

INCP2 

000246 

P 

5-80 

85-126 

INCRCV 

- 

tttttt 

GX 

*5-95 

*6-190 

INITF 

z 

tttttt 

GX 

5- 128 

inpk; 

001266 

R 

S-314 

89-333 

INPCNT 

z 

tttttt 

GX 

*6-220 

*6-226 

6-23b 

♦6-251     *b-259 

INPCPL 

000000 

RG 

«5-75 

INPEXT 

000242 

R 

{J5-124 

6-224 

INPRfi 

000514 

R 

5-129 

6-193 

86-19S 

INPR2 

000552 

P 

6-209 

86-212 

lOEPR 

z 

****** 

GX 

*6-195 

6-21S 

*6-225 

LFFIN 

001354 

R 

S-329 

Q-7R2 

n?-355 

6-256 


i-2bJ> 


b  "  ^  b  1 


*9-356 


^Q_  7C,C) 


RECU 

Si'MBOL 

SYMBOL 

LPGOC 

LPGON 

LPSIZE 

nODE 

NfiKCNT 

N09INP 

NOKE 

NOSLCT 

f  IP  rjf  SF 

riTPNSF 

Ht^FHRN 

^'ML  I  ME 

jPNFLG 

PPOnPT 

'JMODE 

'iPECE 

PRTT 

PCHN 

RCUBLK 

PC USUI 

RECSl 

PESP 

PSX 

Rsxiin 

RTYP 

RTll 

RVRL 

RUIPEN 

RUIERR 

R.  vqp 

SELECT 

SETBW 

SETBO 

SETBl 

SETB2 

SETB3 

SETBM 

3ETB6 

.".ETBb 

Sl  PUC  1 

SNDEOT 

STKSET 

SWPBN 

SWRSL 

SWRSUP 

S.  FNBW 

TRGEl 

TRGE2 

TRGE3 

TRGEU 

TRGNUn 


CREATED  BY 
CROSS  REFERENCE 
VRLUE 

00131*2  R 

001336  R 
=  tttttt     GX 
=  tttttt     GX 
=  tttttt     GX 
r  tttttt     GX 

001126  R 

000210  R 

001210  R 
=  000000 
=  000002 
=  tttttt 
-   tttttt 

^       ^  ^  ^  ^  ^  ^ 

=  tttttt 

=  tttttt 
GGIS26 

=  ****** 

=  ****** 

=  ****** 

=  ****** 

=  ****** 

:  ****** 

=  000001 
=  000001 

=  ****** 

=  tttttt 

=  tttttt 

=  ****** 

000526 
=  ****** 

ooiim  R 

000B64  R 

0006M4  R 

001030  P 

000712  R 

000774  R 

000740  R 

000600  R 

001404  R 

000316  R 
=  tttttt  GX 
=  ******  GX 
=  ******  GX 
=  ******  GX 
=  ******  GX 
=  ******  GX 

000017  R 

000034  R 

000046  R 

000063  P 
=  000004 
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GX 
GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 
GX 
GX 


GX 

GX 

GX 

I 

GX 


REFERENCES 

9-346 

7-273 

8-315 

5-91 

6-237 

6-229 

7-271 
115-119 

7-303 
»l-5 
«l-4 

5-116 

5-75 
*5-93 

5-106 
*5-120 

5-120 
t6-l75 
*6-172 

6-142 

6-149 
*6-lSS 
*5-121 
»l-2 

u    \  - 

W   1        !■ 

*t)-174 

b-l5fa 
*b-173 
*5-10S 

5-131 

6-174 
«7-2S6 

6-205 

6-219 

6-241 

6-231 

6-255 

b-230 

6-216 

9-358 
«6-142 

5-90 

6-24S 

6-150 
♦b-17! 

i  ^«    D 

b-143 

5-101 
5-115 
6-194 

n\-S 


119-350 
7-277 

*5-ll9 
6-262 

*6-232 
7-279 
5-137 

«7-307 


*5-136 
6-194 

«14-416 


♦6-237 
b-  1  bb 


6-17S 


Sb-2n4 

7-294 

6-211 
»6-229 

6-246 
«6-240 
n6-25S 
«6-249 
»6-21£ 
»9-3bl 

6-200 

*6-l70 

*7-2S6 

S5-99 

»5-101 

;5-115 

«b-I94 
*5-?9 


7-298 
5-134 

«6-236 
«7-290 


PRGE   2 
CREF 


7-300 


*6-252 


U 


«9-348 


*6-253 


*6-258 


b-259 


*6-261 


♦b-199 


*b-  k-62 
b-lS5 


*9-3t0 
9-351 


b-213 

nb-2b4 


«b-215 


7-270 
"-  295 

7-  7Q7 


"»  _  7  P  •- 

*^-304 


n5-99 


5-99 


5-101 


5-101 


5-101 


5-115 


S5-115 


if'MBOL 
SYMBOL 

TQGl 

TRG2 

TPG3 

TPG'4 

TPNREC 

TPNSLT 

TSTPFL 

TUPNfiP 

TXFEN 

TYFMSG 

UBFCNT 

UBFHRN 

UO^/P 

UP  1  TS 

yPPFNB 


CPEflTED  BY 
;POSS  REFERENCE 
VfiLUE 
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ocoooo 

000017 
000034 
000046 

=  001000 
001470 
000534 

=   %*%%%% 

=  ttntt 

=  ****** 
=  ****** 
=  ****** 

--   000020 

:  **un 

00151b 


R 
R 
R 
R 

R 
P 

GX 
GX 
GX 
GX 
GX 

GX 
PG 


REFERENCES 

6-115 

6-99 

6-101 

5-115 

6-194 
»4-67 

7-278 

6-202 

5-114 
*5-110 

5-99 

5-103 

5-105 
»4-bS 

9-350 

b-14S 


6-194 
5-99 
6-101 
5-116 
6-194 
7-274 
«12-389 
»6-208 


5-101 

*b-245 

6-242 
b-151 


116-194 
«5-99 
»b-101 
»5-115 
»6-194 
7-290 


P«GE    3 
CREF 

6-194 


J   11 


5-ME 


6-194 


b-lbS 


813-HOb 


13-40? 


J 


K  II 

PEC'i      CPERTED  BY  MRCRO  ON  fc-DEC-77  AT  08  £8      PfiGE  4 
nPCPo  rPOSS  PtFERENCE  CREF 

MRCPO  M«nE      REFERENCES 
RSPBUF         H3-28       n-372 

CLOSES  »^-fe^ 

EPPOP  »i-9  6-l9^ 

EPPOFK  «l-lb  5-99  6-101  5-116  b-19H 

EPPOP^  81-32 

iPPCPP  81-^7 

F^ITRL  81-53 


GETS 

83-'43 

L 1  rn  T 

83-23 

PUTO 

83-52 

PUTMC 

83-38 

FUTTC 

83-33 

PijTTn 

83-47 
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L   II 


^ 

5 

00000^ 

b 

000001 

"7 

000001 

s 

000000 

Q 

070000 

10 

000000 

n 

000020 

i: 

000000 

n 

000001 

m 

000030 

15 

000000 

16 

000001 

r 

000400 

IS 

000001 

19 

000003 

20 

0  1 

000000 

22 

onoQoi 

23 

OOOODl 

:h 

25 

2b 

000000 

•7"' 

2S 

29  000000 

30 

;CONFlGUPflT 
.VOO-01    JLH 
SWB  = 
DPPRES= 
BIPRES= 
CKW11= 
C.  SMfiXs 
EriT»/EC  = 
C,  USFYi20 


SLOCK=0 
TLOCKrl 
CUTB  = 
CUTNPS= 
C.  USNL= 
C,  USPTz 
TRPnPX= 
lSPMflX= 
UIBSPH= 


FPhELU=  1 
PREFIX  F 


ON  FILE  FOR  RSXllf^  2780 
2/19/7H 
H      ;RSXnri  CORESIDENCY 
1      ;DPn  PRESEN 
1       ;BISYNC  TRP  PRESENT 
0      ;N0  CLOCK  INIT 
70000   , CONFIGURE  FOR  28K 
0       ,JSR  PCCDEfIT  ENTRY 

;20  UIB  ENTRIES 
TWflRE  LOCK 

.TinER  LOCK 

;24   TIMER   QUEUE   ENTRIES 

.NO   TinER   SCHEDULIN 

;Mqx   LINE   NTriBER   =    1 

;25e  WORD  LINE  TRBLE  SPPCE 

;nRX  TOP  UTILIZED 

;riRX  ISP  UTILIZED 

;D0  NOT  QSSEMBLE  FERTUPE  TO  RLLOW  UIB  SERPCH 

:FOR  R  PRRTICULRR  LINE  NUMBER 

;«*ISPECIRL  SUITCH  TO  CUT  CODE 

;USE  FRfE  LORDEP  UNlOPDEP 
LE  TO  DEi^iNE  PSX-lir  SYSTEM  SYMBOLS  VIR  MflCPO  CRLLS 


;N0  SOF 

30 

C 

1 

^400 

1 

3 

n 


FLFz    0        TRKE  OUT  lEI'EL  F 
DEFiNF  TRSK  lONTPOl  BLOCK  OFFSET' 
MCRLL  TCBDFS 

TCBDFS 
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I 

2 

3 

H 

000000 

s 

OOOZhO 

s 

coozm 

7 

000^2 

8 

0C02HH 

9 

000250 

to 

000:57 

tt 

OOOZbl 

t2 

000262 

13 

00C2b'4 

m 

0002^0 

15 

000277 

;PR£Fl,y  FILE  FOP  RSXllM  PSSEHBLEP  AND  ANY  OTHER  flSSEriBLER 

;  WHICH  DOES  NOT  RECOGNIZE  OPCODC  MMEnONICS  EXCEPT  UHEN  THEY 

;fiPPEflP  IN  THE  OPCODE  Fl-.LD 

HRLTsQ 

N0P=240 

CLC  =  2i*l 

CLV=2H2 

CL2=2H4 

CLN=250 

CCC=2£7 

SEC=2bl 

SEV=2fc2 

SE2=2b4 

SEN=270 

SCC=277 
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N  n 


3 

^ 

fe 

C' 
w 

Q 

10 

u 

12 

13 

15 
lb 

ts 

1? 
:o 
:i 

■■^  •>• 

23 
24 
25 

2b 

.■^  "» 
^*  • 

28 
29 
30 
31 

-•  -^ 

3H 
35 

36 

37 
38 

39 

io 

41 
H2 
Hi 

i;m 
H5 
46 
47 
48 
49 
50 
51 
52 
63 
54 
55 
56 
67 


SClP-11 

SYSTEfl  CONTROL   PNO    INTERFACE   PPOGRRri 

COMTEX-ll  SCIP 

COPYRIGHT  (C)  1970,1971,1972.1973.1974,1975,1976.1977 

DIGITRL  EQUIPnENT  CORPORATION,  MRYNflRD,  MflSS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY 
ON  fi  SINGLE  COMPUTER  SYSTEM  AND  MAY  GE  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWARE.  OR  ANY  'OPIES  THEREOF,  MAY  NOT  BE  PROVIDED  OR 
OTHERWISE  MADE  AUBAILABLE  TO  ANY  OTHER  PERSON  EXCEPT 
FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE 
LICENSE  TERMS.   TITLE  TO  AND  OWNERSH 
SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 


P  OF  THE  SOFTWARE 


THE  INFORMATION  IN 
I'lTHCUT  NOTICE  AND 
rilTMtNT  BY  DIGITRL 


THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
SHOULD  NOT  BE  CONSTRUED  AS  A  COfl- 
EQUIPMENT  CORPORATION. 


;DEC 

,DEC 

;V03- 
.•V03- 
,  V03- 
;Vn3- 
.  V03- 
;Vf03- 
-  vn3- 
.  V03- 
;  V03- 
.;  VOZ- 
;  V03- 
;V03- 
;V03- 
.;  V03- 
;V03- 
;  V03- 
;  V03- 
;l/03- 
;  lf03- 
;  V03- 
:  V03- 
;  V03- 

;THE 
:  1  I 

•  ■?  1 


ASSUMES  NO  RESPONSIBILITY  FOP  THE 
TS  SOFTWARE  uM  EQUIPMENT  WHICH  IS 


USE 
NOT 


OP  PEL  lABIL 
SUPPLIED  BY 


TY 


01 
02 
03 
04 
05 
Ob 
07 
OS 
0? 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 


JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
JLH 
RHP 
RHP 
RHR 
RHP 
JLH 
JLH 
RHP 
JLH 
SJP 
CEP 
CEP 
CEP 


6/12  V3 
7/10/73 
10/15/73 
1/29/74 

2/5/74 
0  'I  ■?  ' ■? u 

2/1S/74 

■7   M  Q..'"'U 

4/22/74 

7/1/74 

7/17/74 

8/7/74 

8/9/74 

10/1/74 

11/18/74 

1/15/^5 

2/15/75 

3/12/75 

9M5  /^S 

b/77 
S/77 


C.  S 
TO 


DIFFERENCES  BETWEEN  U03  AND  V02  ARE   THE  FOLLOWING; 
REARRANGEMENT  OF  CODE  TO  ENABLE  EASIER  ACCESS  TO 
GIVEN  ROUTINES. 

DELETION  OF  C.ST*  LABELS  IN  THE  PRIORITY  SCHEDULER 
DEFINITIONS.  MODIFICATION  OF  SEQUENCE 

JMP  i)(PC)  + 
T*:  .  WORD  C.  SEA* 


JMP  C.  SEA* 
ADDITION  OF  RESTART  CAPABILITY.  EMT 
C.  STPT  AND  EMT  10^  uPCODE  0  aiNiT' 


103  OF  CODE 
INITIRL'ZES 


1  CLEARS 
ALL 


BIMiiWPtlMJimi.lil»^^ 


fc£aa±a-:=;aiii:ifcH:a 


Siiiyi5iSSiii9 


Hta2:tl4H.Bicti.-ii£lti 


-iMii!igiiiiiyj!!y§tnyi^i"j!ij!!iiyi=Mijiiii»jiJtyiyii^^ 
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B  12 


68 
B9 
60 
bt 
62 
63 
6H 
65 
66 
67 
68 
69 
70 
71 


7H 

75 

7G 

77 

78 

79 

80 

8t 

82 

83 

8H 

8S 

86 

87 

88 

89 

90 

91 

92 

93 

9^ 

95 

96 

97 

93 

99 

lOL. 

101 

102 

\QI 

1C4 

105 

106 

10? 

lOS 

109 

110 

111 

112 

113 

114 


H) 
5) 


6) 
7) 


8) 


9) 


fli 


C) 
D) 


E) 
F) 


H) 
I  ) 

J) 
K) 
L) 


N) 

0) 


NECCESSPRY  TOBLES,  POINTERS.  QUEUES.  ETC  ON  FIRST 

ENTRY. 

REnoVflL  OF  EflBEDDED  URRIRBLES. 

n'iDlFlCRTION  OF  THE  EMT  SERVICE  ROUTINE  TO  CHECK 

POINTER  FOR  LEGRL  WORD  ADDRESS  BEFORE  CRLLING 

EMT  SERVICE  ROUTINES. 

nOOIFICflTION  OF  EriT  SERVICE  ROUTINES  TO  OPERATE  OS 

SUBROUTINES. 


PORflriETER 


MOD 

SIB 

SET 

THE 

DES 

nODIFICRTlON  OF 

SCHEDULING  ROUT 

THE  TIMER  QUEUE 

MODI F I  CRT  I  ON  OF 

RtTURN  THE  FREE 

SERV 

WITH 


FICRTION  OF  SIB  UNLORDER  TO  COND I T lONRLLY  DELETE 

LORDER/UNLORDER  IF  NUMBER  OF  ENTRIES  IN  BUFFER  IS 

TO  ZERO.  THIS  RLLOWS  CONVENIENT  USE  OF 

PL*  CODE  WHEN  THE  SIB  FOR   THRT  LEVEL  IS  NOT 

RED 

THE  TIMER  CODE  TO  DELETE  THF  PROGRAM  LEVEL 

NE  IF  CUTNPS=0  RND  DELETION  OF 

SERVICE  ROUTINES  IF  CUTB=C 

THE  TIMER  QUEUE  SERVICE  »?OUTiNE  TO 

LINK  TO  THE  VRCRNCY  CHr,i  I  PRIOR  TO 

.  E.  R  SYiTEM  CRN  NOW  PUN 
ROUTINE  Ch'.SE  RNOTHER  TIMER 


NG  THE  CURRENT  ENTRY, 
ONE  LINK  RND  HHVE  ERCH 


ENTRY  TO  BE  QUEUED 

THE  INITIRLI2RTI0N  ROUT 

WHICH  CLOCK  IS  PRESENT. 

-  IF  THE  USER  SPECIFIES 

-  IF  NO  CLOCK  iS  SPECIF 

-  OTHERWISE  THE  PROGRRMMPBLE 
THF  INITIRLIZRTION  ROUTINE  W 


NE 


NE  WILL  NORMALLY  CHECK  TO  DETERM 
THE  RULES  T^RE  THE  FOLLOWING: 
R  CLOCK.  THRT  CLOCK  WILL  BE  UTIL 
ED.  THE  LINE  CLOCK  WILL  BE  UT I L I 

CLOCK  WILL  BE  UTILIZED. 

LL  NORMALLY  CHECK  TO  DETERMIf^E 


I  ZED. 
ZED. 


MRXIMUM  CORE  PRESENT  IN  THE  SYSTEM.  THE  PULES  A^^E  THE 
FOLLOWING: 

-  IF  THE  USER  SPECIFIES  R 

-  OTHERWISE-  THE  INIT  RTN 
RND  PLACE  THRT  RDDRESS 

ADDITION  OF  DIFFERENT  EMT 

MODIFICATION  OF  PS  SPVES/RESTOPES  TO  UTIL 

WHERE  APPLICABLE.  NOT  RPPLICRBLE  IN  SLOCK 


SIZE  WILL  BE 
ADDRESS  NOT 


MEMORY  SIZE.  THAT 

WILL  FIND  F  IPST  IK 

N  C.  SMXM 

VECTOR  ADDRESS  SUPPnpT  V03-G3 

ZE  BYTE  INST. 

CODE. 


USED 
PRESENT 


FIX  OF  BUG  IN  SIB  BUFFER 
V03-0H  F  IX  OF  PROBLEM  IN 
OF  COMTEX-11  CALL  TO  DOS 


G)  ^'03-04 


V03- 
V03- 


05 
05 


CDEMT 


LORDER.  V03-03 

DOS  REGISTER  SAVE  ROUTINE  BY  DELETION 
ROUTINE  FOR  REGISTER  SAVE. 
FIX  OF  PROBLEM  IN  BUFFER  POOL  INITIALIZATION  ROUTINE 
CAUSED  BY  ERRONEOUS  USER  CALL-  I.E.  WITH  ODD 
BEGINNING  OR  ENDING  ADDRESS.  RETURNS  WITH  ERROR. 
ADDITION  OF  EMTVEC=0  CODE  IMPLYING  CALL  VIA  JSP  PC 
ADDITION  OF  C. USrY^O  IMPLYING  UIB  .OADER  CALL  TO 
TO  USER  PROGRAM  THROUGH  TABLE  C.  SFUJ. 
ADDITION  OF  SWB=2  CODE  FOR  RSTS/E 
ADDITION  OF  C. USRT=0  FOR  ZERO  LINE  TABLE  SAPCE 
CHANGE  OF  DEFAULTS  FOR  TAP  AND  ISP  PRESENCE 
AND  PROGRAM  LEVEL  PRESENCE  TO  NOT  PRESENT  FOP  EASE 
OF  CONFIGURATION. 
M)  V03-06  ADDITION  OF  TRPMAX  AND  ISRMAX  TO  ALLOW  DELETION  OF 
UNUSED  TABLE  SPACE  FOR  NOT  INCLUDED  TAPS  AND  ISPS. 
V03-07  ADDITION  OF  SWB=3  CODE  FOR  RSX-11  D  USAGE 
V03-0S  ALL  SYSTEM  CALLS  INCLUDING  MATRIX  SWITCH.  TIMER  QUEUE. 
RND  PRIORITY  ENTRANCE  EXIT  CALLS  ARE  VIA  .JSP  PC-XXXX 
C.SARR.  CTRET.  AND  C.  SEC*  ARE  DEFINED  TO  BE  PTS  PC 
P.'  V03-n9  CORRECTIONS  TO  GLOBAL  DEFINITIONS  IN  PRIORITY 
SCHEDULER.  MODIFICATION  OF  RSTS/'E  VERSION  TO 


V03-05 
V03-05 
V03-06 
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C  12 


15 
lb 
17 
IS 
19 
20 

:i 


24 
25 
2b 

"^  -^ 
*■•  I 

2S 
2^ 

:c 

31 


35 
3b 

3S 

39 

,40 

,41 

42 

,43 

44 

,45 

4b 

,4? 

4S 

49 

,50 

51 

^2 

53 

54 

55 

5b 

5/ 

5£ 

59 

,bO 

bl 

62 

b3 

64 

65 
66 

,67 
6S 
69 
70 
71 


UTILIZE  BIG  BUFFERS  FOR  TPP  LINE  TPBLE  SPPrE 

RNO  nOCIFICRTlON  OF  THE  RSXllD  VERSION  to 

UTILIZE  EVENT  FLPGS  FOR  SIB  UNLOPOING. 
Q)  U03-10  nODlFlCRTlONS  TO  RUN  MITH  RSXtlM 
R)  V03-n  CORRECTIONS  TO  CONDITIONAL  CODE  DEPENDENT  ON  C.  SMflX  AND 

DEFINE  "SERCH"  EQUfiL  TO  THE  PRODUCT  PNO  CONDITIONPL IZE 

ON   IT. 
S)   V03-12  PDD  CODE  FOR  RSX-llD/fl  TO  ZERO  PLL   TIMER  ENTRIES  FOR  P 

RESTPRT  PND  THEN  TO  DO  P  CPNCEL  MPRK  TIME  DIRECTIVE  TO 

PREVENT  P  TIMER  GOING  OFF  PFTER  THE  QUEUE  HPS  BE.H 

REINITIPLIZEO 
T)  V03-13  CONDITIONPL IZE  UIB  UNLOPDER  ROUTINE  WHICH 

FOR  P  PPRTICULPR  LINE  NUMBER.   "UIBSRH"=0 


CKUll 


SEPRCHES 
INDICPTED 


THIS  FEPTURE  IS  NOT  DESIRED.  UIBSRH  NOT  EQUPL  0  INDICPTE3 
THPT  IT  IS. 
U)  VG3-14  DELETE  P  TrMPORPR\  BRPNC.I  TO  SELr  IN  CTIME 
V)  V03-15  CORRECTION  OF  PJFFER  POOL  hPl.NPGEMENT  ROUTINE  TO 
CORRECT  ERROR  IN  GET  BUFFER  ROUTINE  :N  3  WO»^>D  BUFFER  INFO 
BLOCK  POSSIBLY  OVERURING  CONTENTS  OF  .^  REP!  .PTP  BUFFER 
W)  V03-16  CORRECT  CONDITIONPL IZPT ION 

X)  V03-17  MOVE  GLOBL  DEFINITION  OF  C.  STPRl  UNDER  CONDI TIONPL IZPT lON 
Y)  V03-18  PDD IT  ION  OF  BR  LEVEL  CODE  COriD I TIONPL IZPT ION  TO  PLLOW 
DELETION  OF  EXTRPNEOUS  PROGRPM  LEVEL  COLE. 

PDDITION  OF  TLOCK  CONDITIONPL  10  PLLOW  OL'LETION  OF  PNY  LOCK  flPOUND 
TIMER  QUEUE  SERVICE  CODE  IF  THPT  CODE  IS  v">NLY  CPLLED  BY  USER  LEVEL. 
MOVING  OF  THE  TIMER  PRIORITY  LEVEL  TO  BELOJ  THPT  OF  BP4 
Z)  V03-19  MOD  IF  I CPT IONS  TO  RUN  WITH  RT-11 
flP^  V03-20  MODIFICPTIONS  TO  CUT  CODE  FOR  RSTS  VlB 

DONE  BY  USING  'RSTS'  CONDITIONPL  SWITCH 
BB)  V03-21   MODIFICPTIONS  TO  PLLOW  PROGRPM  TO  RUN  ON  LSIll 

DONE  USING  'LSI'  CONDITIONPL  SWITCH 
CO  V03-22  MODIFICPTIONS  TO  CUT  CODE 


THE 
1  ) 


3) 


4) 
5) 
6) 

7) 
S) 


9) 


OF 


DIFFERENCES  BETWEEN  V02  PND  VOOIP  PRE  THE  FOLLOWING: 
PDDITION  OF  DYNPMIC  CORE  BUFFERING  WITH  EMT  SERVICE 
TO  PLLOCRTE  PND  DEPLLOCRTE  CORE  SPPCE  PND  TO  OBTPIN 
PND  RELERSE  DYNPMIC  BUFFERS.  SUBROUTINE  LINKRGE  IS 
PVPILPBLE  TO  PERFORM  THE  LRTTER  TPSKS  TO  ALLOW  TRP/ISP 
TO  UTILIZE  THE  BUFFER  POOL. 

THE  ADDITION  OF  FURTHER  CHECKS  OF  VALIDITY  ON  THE  MATRIX 
SWITCH  CONTENTS. 

MODIFICATION  OF  THE  SIB  UNLOPDER  TO  VECTOR  ON 
CODE  PND  THE  TAP  TYPE  CODE.  THIS  PREVENTS  THE 
RERSSEMBLING  THE  ISR  TRBLES  FOR  DIFFERENT  ASS 
THE  TRPS 

FURTHER  VRLIDITY  CHECKS  OF  THE  SIB  UNLOPDER  SECTOR 
DELETION  OF  ENTRIES  IN  THE  TIMER  QUEUE. 

MODIFICRTION  OF  MRTRIX  SWITCH  VECTORING  TO  ALLOW  OELTION  OF 
UNUSED  TRBLES  IN  SCIP  WITH  NO  RDVERSE  EFFECT  ON  OPERATION. 
ADDITION  OF  DOS/COMTEX  SUPPORT  CHANGES 

ADDITION  OF  SOFTWARE  LOCK  SOFTWRRE  PRIORITY  LEVEL,  ASSUMED  TO 
OPERATE  AT  fi  LEVEL  HIGHER  THAN  ANY  OTHER  SOFTWARE  TASK  TO 
ALLOW  LOCKING  OF  LONG  EXECUTION  TASKS  -  SOFTWARE  REQUESTED 
WITHOUT  LOCKING  OUT  INTERRUPT  DEVICES. 
ADDITION  OF  CODE  IN  THE  EMT  CALL  HANDLERS  TO  DETECT 
ADDITIONAL  FORMAT  ERRORS.  THE  CONDITIO')  CODE  SETTINGS 
RETURNED  TO  THE  USER  PROGRAM  HAVE  BEIN  E.XTFNDED  AND 


ENTRY  TYPE 
NECCESSITY 
GNMENTS  OF 


TABLE. 


^ 


^-J^- — ^ 

Pixnc     n«CPO  niiQH  Ob-DEC-77  os;  28    prge  14-3 

172  ;    STRNDflRDlZfO. 

1*^3  • 

''■''^  ;TH£  DIFFERENCES  BETWEEN  SClP  VOOlfl  fiND  SCIP  VOOOP  flPt: 

1^^  ;l)  fi  DEFINITION  OF  RVPILflBLE  CORE  SIZE  (C.  SflflX)  USED  IN  fi 

l^b  .    GLOBAL  LOCATION  (C.  SHXH)  SO  THAT  THE  ISR'S  AND  TOP'S  CRN 

1^7  ;   DETECT  OVERSIZED  BUFFERS.  (IT  IS  NOT  USED  BY  THE  SCIP.  ) 

t^S  ;2)  THE  PDDITION  OF  CODE  FOR  THE  KILLIO  EMT  COMMAND 

1^?  ;3)  THE  REPLfiCEHENT  OF  THE  PUT  POLL  TABLE  IN  THE  TEPMINPL 

ISO  ;    TYPE  CODE  TABLES  BY  «  nODEM  CONTROL  TABLE. 

\S\  ;H)    A  TEST  FOR  LINE  NUMBER  I/ALIDITY  IN  AN  EMT  100  CALL. 
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c 

PAGE 


12 


1 


153 

isu 

1S6 

ISb 

177776 

187 

000000 

188 

000001 

1^9 

000002 

1^6 

0C0003 

191 

000004 

192 

000005 

193 

000006 

194 

000007 

I9b 

1?^ 

1 9"' 

000240 

19S 

000277 

IQ^ 

000275 

200 

000274 

201 

000257 

202 

000254 

203 

C00243 

204 

20B 

20b 

00000 1 

207 

000002 

20S 

000004 

209 

000010 

210 

000020 

211 

000040 

212 

000100 

213 

000200 

214 

000400 

215 

001000 

21b 

002000 

217 

004000 

21S 

OIUOOO 

219 

020000 

220 

C'iooon 

221 

100000 

TITLE  SCP322  SCIP  VERSION  3-22 
.DEFINITIONS  OF  REGISTERS  RND  CONDITION  CODE  OPERRTOPS 

C.  STfiTs  177776  , PROCESSOR  STPTUS  REGISTER 

R0=     -/.O 

Ri=    y,\ 

R2=  >.2 

R3=  •:3 

R4=  V.4 

P5=  %S 

SP=  'Ah 

PC=  '/.? 


NSTRUCTION  DEF 


NOP  = 

SET«LL= 

SETNZCr 

SETN2= 
aRLL  = 
CLZNr 
CLVC  = 


^40 

SEZ'SEC'SEV'SEN 

SEN'SEZISEC 

SEN'SEZ 

CLN'CLC'CLU'CLZ 


CLZ 
CLi/ 


!CLN 
'CLC 


NIT  IONS 

NO  OPERATION  INSTRUCTION 

SET  OLL  CONDITION  CODES 
SET  N,Z.C  CONDITION  CODES 
SE.  N,Z  CONDITION  CODES 
CLEAR  OLL  CONDITION  CODES 
CLERR  Z.N  CONDITION  CODES 
CLEAR  V,C  CONDITION  CODES 


BIT  DEFINITIONS 


B 
B 
B 
B 
B 
B 
6 
B 
B 
B 
6 
B 
B 
B 
6 
B 


T00  = 
T01  = 
T02= 
T03  = 
T04  = 
T05  = 
T06  = 
T07  = 
TOS  = 
T09= 
T10= 
Tll  = 
T12= 
T13= 
T14  = 
TI5  = 


1 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 


J 
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223 

22S 
22b 
227 
228 
229 
220 
231 
232 
233 

:3H 

235 
23b 

237 

'-'7C 

239 

21*0 

2m 
2»4: 

2H3 

2^^ 

21*8 

2H9 

250 

251 

252 

253 

25H 

255 

256 

257 

258 

25^ 

2bO 

261 

2b2 

263 

26U 

265 

26b 

267 

26S 

269 

270 

271 

272 

273 

27H 

^(  b 

^c  b 

277 

27? 


000000 


000000 
000000 


000000 


;SCIP  SYSTEn  GLOBRLS 

,  GLOBL  C,  SPS,  C  SFY,  C.  SORR.  C  SflRP-  C.  SflTP 
GLOBL  C.  SREG.CSRES 
.  GLOBL  C.  STflB.CTRET 
.GLOBL  C.  SECR,C.SECB,C.SECD,C.  SECE^C.  SECF.C,  SECG.  C  SECH 


IF  2  SWB-5 
nCRLL  .  .  V2. 

Ml.  . 
ENDC 


;RT-ll 
MRKT..  CriKT 


DEFINITION  OF  PPlOPlTY  LEVEL  OF  PRIORITY  SCHEDULER 
IF  NDF  C.  USP 
C.  USP=3C0       ;0CTOL  PS  SETTING 
ENDC 

EMTVtC  -  DEFINITION  OF  EHT  VECTOR  ADDRESS 

=  0  IF  EMT  SERVICE  ENTERED  VIO  JSR  PCCDEMT 

++  IF  EMT  SERVICE  ENTERED  VIA  PROCESSOR  TRAP  AT  "EMTVEC" 

IF  NDF  EMTVEC 
EMTVEC=  30      ; DEFAULT  VECTOR  RDDRESS  =  30 

ENDC 

SWB    -  DEFINITION  OF  SYSTEM  CO-PESIDENCY 

=2  RSTS/E  CORES IDENCY  "RSTS/E  DRIVER" 

=  3  RSX-HD  CORESIDENCY 

=H  PSN-llM  CORESIDENCY 

=  5  PT-n  CORESIDENCY 
SUBC=^SUB-3>»<SWB-4>«<SWB-5> 
IF  Z  SUB-2 
GLOBL  L3QUE 
ENDC 


0  IF  PSXUD  OP  PS'-'llM  OP  PT-11 


IF  Z  SWB-H     ;PSXnM  PRESENCE  FLAG 

GLOBL  T.  EFLG.STKTCB.5PQSCH,.  SSIGFL 

PSECT  ISP. CON 

PSECT  XXX 

IF  NDF  UIBEF 
UIBEF=1 

ENDC 

IF  NDF  SIBEF 
SIBEF=40 

ENDC 

ENDC 

IF  NZ  3WB-3 
0FFSET=0 

ENDC 

IF  Z  SWB-3     ;RSXnD  PRESENCE  FLRG 

GLOBL  .CRTSK,R.EF,EV.SE..SERFG 

GLOBL  R.  TD, .  .  PENP,  R.  OS,  R.  TS.  TS.  AST.  YF.  I  C 

GLOBL  Y.  PIE,  Y  TT,.  .  NRDD 

PSECT  ISR^CON 

PSECT  XXX 
OFFSET:  60000 
.  IF  NDF  UIBEF 
U!BEF=   1       ;UIB  ENTRY  PRESENT  EVENT  FLPG 


UIB  ENTRY  PRESENT  tiJENT  FLAG 
SIB  ENTRY  PRESENT  Vi^j\J  FLhG 
IF  NOT  PSXMD 
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G  \Z 
PRGE  b-l 


280 

2S1 

283 

236 

2Sb 


ENDC 

IF  NDF 
SIBEF= 

ENDC 
.  ENDC 


40 


BEF 


;SIB  ENTRY  PRESENT  EVENT  FLPG 


SCP322  SCIP  wERSiON 


288 


ft 


2S? 

000000 

290 

291 

292 

293 

29H 

295 

29b 

000000 

000010 

/^q-? 

0UG002 

000000 

298 

000003 

299 

300 

0nC004 

000000 

301 

000002 

302 

303 

304 

00000b 

000000 

305 

OOOOOl 

30b 

307 

30S 

000010 

C00012' 

309 

000000 

310 

311 

000010 

312 

313 

3m 

315 

316 

317 

31S 

319 

320 

321 

•?'?'> 

^4^^ 

000000 

323 

OOl.iOOO 

324 

000000 

325 

32b 

327 

32S 

329 

330 

331 

332 

000012 

0000 : 4 

ZZl 

000014 

OOOOOOG 

ZZ^ 

000016 

OOOOOOG 

335 

000020 

OOOOOOG 

ZZ^ 

000022 

OOOOOOG 

ZZ7 

000024 

OOOOOOG 

33S 

000026 

OOOOOOG 

339 

000014 

340 

34  1 

342 

343 

H  12 
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IF  OF  RSXll 

PSECT  ISR 

ENDC 
;DEVICE  TYPE  TABLES 

;nPTRlX  SWITCH  ON  DEVICE  TYPE  -  FUNCTION  CODE 
;C.  SflR:  CONTAINS  THE  RDD9ESS  OF  THE  FUNCTION  TABLES  FOR 
;PLL  ISRS  INCLUDED  IN  «  COMPLETE  COMTEX  SYSTEM. 


NUMBER  OF  ENTRIES  IN  TOBlE  *2 

POINTER  TO  ISR  FUNCTION  TABLE  FOR  DCll 


1=  DMll  ISR 


C.  SAR   ,  WORD  C.  SARL 
.  WORD  CAFTBL 

x=isPnAx 

.  IF  N2  X 

.  WORD  CMFTBL 
X  =  X-1 
.  ENDC 
.  IF  NZ  X 

WORD  CCFTBL 
X  =  X-1 
.  ENDC 
.  IF  N2  X 

.  UOPD  CPFTBL 
X=X-  1 
.  ENDC 

SflPL=  .  -C.  SfiP-2 


EACH  ISP  SHOULD  THEN  HAl'E  A  TABLE  OF  THE  FOLLOWING  FORM: 

NAME:    WORD  LENGTH    .LENGTH  *2 

WORD  FCOADR    ;ADDPESS  OF  FUNCTION  CODE  0  ROUTINE 
WORD  FCIADP    ;ADDPESS  OF  FCN  CODE  1  ROUTINE 


2=KL11  ISP 


;=  DPii  ISP 


.  UOPD  FCNADP 
LENGTHr  -f^Ar^E-: 


-ADDRESS  OF  LAST  FCN  CODE  ROUTINE. 


CAFTBL=0 
CnFTBL=C 
CCFTBL=0 

; DPI  1  ISP 

.  IF  NDF  DPPPES 

DPPRES=  0 

.  ENDC 

.  IF  Z  DPPRES-1 

.  GLOBL  CP.  OSU.CP.  MDM.CP.  MOD.CP.  INLCP.  KLL-CP.  PST 


CPFTBL: 


CPFLEN 

.  ENDC 

.  IF  Z  DPPPES 

CPFTBL=  0 

.  ENDC 


.  WORD  CPFLEN 
.  WORD  CP.  OSU 
.  WORD  CP.  .1DM 
. WORD  CP.  MOD 
.  WORD  CP.  INI 
.  WORD  CP  PST 
.  WORD  CP. KLL 
-CPFTBL-2 


LENGTH  OF  DPll  FUNCTION  TRBLE 
0=DP11  TRANSMIT  ENABLE 
1=DP11  MODEM  CONTROL 
2=DP11  MODE  CONTROL 
3=DP11  LINE  INITIALIZATION 
4=SYSTEM  RESTART 
B  =  KUL  1.^0 


scpi::  scip  ^'ersion 


3-2: 


12 
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3hS 

34b 

347 

34S 

349 

000030 

000004 

350 

000032 

000000 

351 

000001 

7C,  "> 

.j-;^. 

353 

000034 

000046" 

354 

000000 

355 

35b 

000004 

357 

358 

35? 

360 

361 

362 

363 

364 

00C03b 

000000 

365 

COOOOl 

36b 

367 

000040 

oooob:' 

368 

000000 

369 

370 

371 

372 

373 

374 

375 

37b 

3^7 

37S 

379 

3S0 

000042 

oouooo 

3Sl 

000001 

7C-"' 
^<—  &< 

3S3 

3S4 

7cc: 


0C0044 


OOCOOOG 
000000 


3Sb 

3S7 

000000 

3SS 

000000 

3S9 

000000 

390 

391 

392 

393 

394 

395 

396 

397 

000046 

000012 

39S 

000060 

OOGOOOG 

399 

000052 

000000 

400 

00005U 

OOOOOOG 

401 

000056 

OOOOOOG 

.TERMINfiL    (TAP)    TPBLES 

;nfiTRlX  SWITCH  ON  FUNCTION  CODE 

;CONTfilNS  TPBLES  UITH  THE   SPflE   FUNCTION  PS  THOSE   FOR   THE    ISR. 


C.  SPT; 

XsTPPMPX 
.IF  N2  X 

X=X-1 
.  ENDC 
C.  SflTL=  , 


.  U0P3  C.SPTL 
WORD  CTFTBL 


WORD  CBFTBL 


C.  SflT-2 


NUMBER  OF  TPP  TYPE  CODES  INCLUDED 
0=  ITTY  TPP 


1=  B  I  SYNC  '2780)  TPP 


;SIB  WORK  ENTRY  FUNCTION  CODE  TPBLES 
C.  SFJT:  CONTPINS  THE  PDDRESS  OF  THE  SIB  ENTRY 
TPBLES  FOR  PLL  TPPS  USED  INT  THE  COMPLETE  COMTEX  SSYSTEM. 
IT  IS  USED  IN  THE  SIB  UNLOPDER  TO  VECTOR  TO  THE  PROPER 

.SERVICE  ROUTINE  FOP  PLL  ENTRIES. 


C.  SFJT;  ,  WORD  CTSIBT 
X=TPPnPX 

IF  N2  y 

.  WORD  CBSIBT 

y = X  - 1 

.  ENDC 


,0=  ITTY  TPP 

;  1=  81  SYNC  •27S0^  TPP 


;EflLH  TflP  SHOULD  THEN  HPVE  P  TPBLE  OF  THE  FOPM: 

;NPr>E   .  WORD  LENGTH    ;  LENGTH  OF  TPBLE  «2 

;       .WORD  TCOPDP    ;PDDPE3S  OF  TYPE  CODE  0  SERVICE  ROUTINE 

;       .WORD  TCIPDP    ;RDDPlSS  OF  TCI  SEP'MCE  ROUTINE 


;        WORD  TCNQDP 
;L£NGTH=.  -NPnE-2 


: PDDRESS  OF  LPST  SERVICE  ROUTINE 


;TPP  LINE  TPBLE  LENGTH  TABLE 
C.  SLTL:  .  UOPD  C.  TLTL 
y=TPPMRX 
.IF  NZ  X 

.  WORD  C. BLTL 
X=X-1 
ENDC 


0=tTTY  LINE  TPBLE  LENGTH 

I  =B I  SYNCH  TPP  Line  TPBLE  LENGTH 


CTFTBL=0 

CTSIBT=0 

C.  TLTL  =  0 

;B  I  SYNCH  TPP 

.  IF  NDF  BIPRES 

BIPRES=  0 

.  ENDC 

.  IF  Z  BIPRES-1 

.  GLOBL  C.  BPD.C.  BFTCC.  BPRB..C.  BINT. C.  BLTL 

.  GLOBL  C.  BMSE-C.  BODE 

CBFTBL:  .WORD  CBFLEN    ;LENGTH  OF  TPBLE  FUNCTION  CODES 

.  WORD  C. BPD     ;0=PUT  DPTP 

.  WORD  0        ; 1=UNPSSIGNED 

.WORD  C.BPTC    ;2=nODE  CONTROL 

.WORD  C  BPRB    ;3=PSSIGN  RECEIVE  BUFFER 
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'402 
403 

HOS 
HOb 
1+07 
40S 
409 
410 
HU 
412 
413 

uiu 
4  IB 
41b 


OOOObO 


000062 
000064 
OCOOfeb 
000070 


0000006 
000012 

000006 

000000 

OOOOOOG 

OOOOOOG 

OCOOOb 


.  UORD  C  BINT 
CBFLENr.  -CBFT8L-2 

CBSIBT.  .  WORD  CBSIBL 
. UORD  0 
.  UORD  C. BMSE 
.  UORD  C. BODE 

CBSIBL  =  .  -CBSlBT-2 

.  ENDC 

.  IF  2  BIPRES 

CBFTBL=  0 

CBSIBT=  0 

C,  BLTL=  0 

.  ENDC 


.4SLINIT 


.LENGTH  OF  B I TPP  SIB  FUNCTION  TABLE 
;0=UNflSSlGNED 
;  l  =  riODEri  STATUS 
;2=TRflNSn!T  DONE 


SCP32:  SCIP   VfERSlON  3-22 


"419 


K  12 
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c  r  p  7  ■■  -^ 


,':iP    ^'EPSlON   3-22 


nocRo  nii04  O6-DEC-77  08:  28 


L   12 
'*E    10 


•42t 

u  ?  ■* 

^2^ 

H27 
U28 

HZO  0000''2 
W31  0000-: 
1*32 

U77 

~  w  »> 

U34 

14:5  00C07: 

i*3b 

1*3:' 

H3S 


iF   2  SUB-2 

GLOBL  C.  SLOK,CSPSN0 

IFF 


000207 


;PPI0PITY  SCHEDULER  ROUTINE  CODING 
;ENTPflNCE  !S  TO  LOCPTlON  NPHED  C  SPS 


C  SPS: 

CSPSND:  .  'F  lT  SUB-2 

PTI 
.  ENDC 
.  IF  Z  :UBC 

PTS  PC 


;  COLLED  FROn  US£P  T«SK  QM  SiB  EV£r^T  FLRG 


ENDC 


ENDC 


SCP222  SClP    "EPS  I  ON 


44S 

H49 
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n 

PfiGE 


12 

n 


00007H 


OOCUb 


0G007H 
00007b 
-  OOOIOQ 
^SQ  000102 
W51    OOOIOH 

w6:  00010b 
^*BZ  ooono 

t+SH  0001 IW 

HSS 

^bO 

4b3  OOOllb 
Hb^   000120 

HbS  oooi:: 

i4bb  00012^4 

Ub"  00012b 

UbS  000130 

Ub9  000132 

4^G 

471 

U72 

1*73 

l47^ 

u:'5 


-THESE  flPE  GENERPLIZED  POUTINES  TO  SAVE  fiND  PES^^OPE  THE  PECiSTEPS. 
.PEGISTEP  SfiUE  ROUTINE 
.ENTERED  Vlfi  JSR  R5.C.  SREG 
C.  SREG.  ,  IF  DF  RSTS 

.  GLOBL  REGSfiU 

jnP     REGSPU 


010H4b 
C103Hb 
Ol02'4b 

oiomb 

OlOOHb 
010646 

oibbOS  ooQom 

000207 


IFF 

MOU  R4, 

nov  R3, 

nov  R2, 

noM  Pi. 

ncu  P0< 

nou  P5 

MOV  1 14 1 

PTS  PC 
.  ENDC 


-(SP) 
-^SP) 
-(SP) 
-(SP) 
-(SP) 
-'SP) 
SP.-P6 


PUT  RETUPN  fiOD  ON  STPCK 
PESTOPE  OLD  CONTENTS  OF 
PETUPN 


P5 


00B"'2b 
012b00 
0:2b01 
012b02 

012bn: 

ni2b04 
000206 


PEG  I  STEP  UNSPi'E  POUTlNE 
. ENTERED  Vlfi  JSP  PB  C.  SPES 

C,  SPES   IF  DF  PSTS 

.  GLOBL  PEGPES 

JMP  PEGPES 

IFF 

TST  (S^)^ 

MOV  tSF  >+  PO 

MOV  fSP  •  +  . PI 

MOV  "SF^-^.p: 

MOV  (SPi+  p: 

MOV  rspi+  p^ 

PTS  P5 
.  ENDC 

IF  NZ  SUB -4 
.  EOT 

;END  OF  TPPE  1  OF  6 

ENDC 
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H77 
H78 

4s: 

4S3 

H86 
^486 

489 
490 
491 

4?: 

493 
494 
49S 
49b 
497 
498 
499 
500 
BOl 
502 
B03 
B04 
BOB 
506 
507 
50S 
509 
510 
511 
512 
513 
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.  IF  NDF  FflKELU 

FPKELU=  0 

.  ENDC 

.  IF  N2  FRKELU 

,FRKE  BUFFER  LOROER/UNLOPDER  ROUTINE. 

;THIS  ROUTINE  PILOUS  DIRECT  SERVICE  OF  THE  ISR  BY  THE  TPP 

.ROUTINE  UHICH  IS  TO  SERVICE  THE  BUFFER  UNLOPOER. 

;  IT  PSSUnES  USE  OF  THE  SPflE  TPBLE  P3  THE  SYSTEM 

; BUFFER  UNLOPDER/UNLOPDER  WHICH  RESIDES  IN  THE  SC 

;P  SPECIFIC  USE  FOR  THIS  LOPDER/UNLOPDER  WOULD  BE 

.SERIVCE  OF  P  Onn  OR  SmiLPR  DEVICE  WHERE  RECEIVED 

.HPVE  BEEN  BUFFERED  BY  THE  HPRDWPRE.  THIS  ROUTINE 

;COULD  BE  USED  IF  THE  DEVICE  WERE  BEING 

;UNLOfiDED  BY  P  TIMED  ENTRY  ROUTINE. 

'with  THE  CURRENT  TELETYPE  TPP<  THIS  ROUTINE  MUST  PUN  AT  THE 
;SPME  LEVEL  PS  THE  SC I P  BUFFER  UNLOPDEP.  IN  ORDER 
;T0  PREVENT  POSSIBLE  EPRORS  IN  THE  ROUTINE  SERVICE. 


P. 
THE 

CHPPPCTEPS 


GLOBL  CFKLU 


000134 
000140 
000142 
000144 
000146 
000150 
0C0154 
0001'=.6 


004567 
010500 
010401 
010304 
005003 
01b70: 
000305 
00b305 


■34 


CFKLU; 


00 1040 


JSR 

R5-C.  SPEG 

MOV 

P5.RC 

MOV 

P4  PI 

MOV 

R3.P4 

CLR 

R3 

MOV 

C.  STPB+0,P2 

SWPB 

P5 

PSL 

P5 

000160  004775  000064 


000164   00456: 

0001  "0  ooi'co; 


177:^:6 


.  If"  OF  PSTS 

JSP  PC,<i)CTSIBT  +  :iP5) 

IFF 

JSP  FL-(ilCBS:BT  +  :<P5) 
.  ENOC 

JSP  P5-C.SPES 

RTS  PC  ;PND  THEN  EXIT 


;SPVE  REGISTERS 
5PVE  OFF  PPRPM  WORD 
SUPP  SECOND  ENTRY 
SWPP  THIRD  ENTRY 
LINE  NUMBER  ISO 
GET  LINETPBLE  FOR  LINE  0 
GET  FUNCTION  CODE 
MP^E  INTO  WORD  INDEX 

;G0  TO  THE  COPPECT  ROUTINE 

:G0  TO  THF  COPPECT  ROUTINE 

; RESTORE  REGISTERS 


ENDC 


mip^MiiittayiMaiiiiiieiiigiiiiiiiiBKiim 
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B 
PRGE 


13 
13 


SIB 
51b 
S17 
518 
S19 
520 
521 
522 
523 
524 
525 
52b 
52" 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
54  2 

54  3 
544 
545 
54fc 
547 
54S 
549 
550 
551 
552 

55  3 
55^ 
555 
556 
55/ 
55S 
559 
560 
561 
562 
563 
564 
5b5 
566 
567 
SbS 

570 
571 


000172 
000172 
000176 


000200 
00C202 


000204 
000210 

000216 
000222 
000230 
000232 
000234 
000236 
000240 
000242 
000246 
000250 
000254 
000260 


005767 
001046 

010546 
010146 


113746 
112737 


0167 
0267 
1030 
0125 
0125 
0125 
0125 
0227 
1034 
0101 
0052 


0' 

34 
21 
21 
21 
21 
01 
lb 
67 
67 


000540" 


1 77776 
000340 


17 


G0054  6' 

00054  2'  000020 


000"42' 

000546' 
G00542' 


000260   1*2637   17-^776 


000264   016^01   000714 

000270  05:^61   000001   000022 


.scip  system  interffice  with  user  progrfim  level  (uib) 
;lorder  lords  four  words  of  ppkhmeters.  the  type  code 
;is  specified  in  the  low  orde"  b  bits  of  the  high  byte  of 

;THE  FIRST  WORD.  THE  TWO  HIGH  ORDER  BITS  OF  THPT  BYTE  ARE 
.UTILIZED  TO  INDICPTE  THE  NUriBER  OF  VALID  WORDS  IN  THOT  ENTRY. 
;THE  LINE  NUMBER  OCCUPIES  THE  LOW  ORDER  BYTE  OF  THE  FIRST 
.WORD  OF  THE  ENTRY,  THIS  WORD  MUST  NEVER  BE  ZERO. 
;THE  UNLOflDER  ROUTINE  IS  flCTUPLLY  THF  GET  EMT  COMMAND  PTN 


C.  SFY: 
.  ENDC 


.  IF  NZ  C.  USFY 
TST  C.SHI 
BNE     C  SGRY 


IS  OVERFLOW  FLPG  SET 
YES 


nov  Rs.-^SPi 

MOV  Pl--fSP) 
IF  NZ  C.  USFY 

IF  DF  LSI  11 


MFPS 
MTPS 
.  IFF 
MOVE 

novB 

.  ENDC 

MOV 

CMP 

BHiS 

MOV 


-iSP) 
«340 

^ifC.  STPT,-(SP) 
«34a.i);C.  STPT 


SPVE  ORIGINPL  PPRPM  POINTER 
SPVE  Rl 


SPVE  STPTUS  OF  C^^LLEP 
SET  PRIORITY  TO  LEVEL  7 

SPVE  STPTUS  OF  CPLLER 
SET  PRIORITY  TO  LEVEL  7 


PI  IS  BUFFER  POINTER 
PNY  ENTRIES  LEFT'^ 
NO 


C.  SFGY: 
C.  SGEY. 


C.  SBPY.Rl 

C.  SBCY,»r.  USF'Y 

C.SGBY 

(R5)+. (Rl)+ 
MOV  (P5j+, (Rl)+  ;PND  MOVE  FOUR  WORDS 
MOV  fR5)+  (Rl}+ 
MOV  (R5)+..  (Rl  1  + 

CMP     ??C.  SBEY.Pl      ;  IS  IT  BUFFER  END 
BLO     C.  SFUY   ; 

MOV     Rl.-C.SBPY       ;SPVE  BUf^FEP  POirrTEP 
INC     C.  SBCY   ;INCR  INTEPFPCE  CNTP 
.  IF  DF  LSI  11 
MTPS    (SP)+  ; RESTORE  CPLLEP  PPIOPITY 


.  IFF 

MOVB 

,  ENDC 
IF  Z  SWB-4 

MOV 

BIS 
ENDC 
1^  Z  SUB- 3 

MOV  CPTSK.Rl   ;GET  CURRENT  RTL  NODE 


iSFU.iSC.  STPT   ;  RESTORE  CALLER  PRIORITY 


TPSKPD.Pl       :GET  CURPENT  TCB 

nUIBEF..  T.  EFLGf.Pl.'  .-SET  UIB  LOPDED  EVENT  FlPG 


BIS  SUIBEF.P. EF'Pl) 
BISB  ttEV.  SE,.  5EPFG 

ENDC 

IF  Z  SUB-5 


MOV 
JSR 
MOV 

ENDC 

EMOC 

IF  Z  C.  USFY 

MOV  PO 


RO,-(SP 1 

PC..RESUME 

(SP)+^RO 


SET  UIB  LORDEC'  EVENT  FLRG 
RND  DECLRPE  SiGNIFiCRNT  EVENT 

PT-11 

SRHE  PO 

RESUME  SUSPENDED  TRSK 

RESTORE  PO 


(  £  p  ) 


MOV  i)R6.-Pl 


;PLSO  SfluE  PO 
.THEN  GET  FIRST  WORD  OF  PLIST 


SCP322 


P   UEPSiON  3-22 


riPCRO  nilO'i     Ofe-DEC-77  08:  28 


C 
PPGE 


13 
13-1 


E7: 

S"^ 
E,7S 
B76 

577 

s:'s 

579 
530 
5Sl 
532 
583 
5SU 
535 
5Sb 
537 
58S 
539 
590 
591 
592 
593 
594 
595 
59e 
597 
598 
599 
bOO 
601 

feo: 

b03 
604 


00C276 
000300 
000302 

00030H 
000312 
000314 
000320 
000:22 
000330 
000334 


000000 


0l2b0l 
012605 
000207 

012767 
000760 
005267 
000207 
0527b" 
005267 
000751 


UIBXIT' 
.  GLOBL 
.  ENDC 


000BB2'  00n54b'  C, 


F  NZ 

SFUY: 


000544 

GOOOOl 
000544 


C.  SGPY: 

000540  C.  SGBY: 


SUPB  R1 

BIC  •1777^0.Rt 
PSL  Rl 

nOV  »C,  SFUJ.RO 
6EQ  UI6XIT 
CnP  Rt, (RO)* 
BGE  UI6XIT 
PDO  Rl.RO 
nOV  dRO.RO 
BEQ  UIBXIT 
JSP  PC-oIRO 
MCV  (SP)+-PO 
C.  SFUJ 

MOV 

nov 

PTS 
C.  USFY 
MOV 
BP 
INC 
PTS 
BIS 
INC 
BP 


PHD  GET  HI  BYTE 

9N0  DROP  ALL  BUT  TYPE  CODE 

MULTIPLY  BY  2 

THEN  GET  USER  TftBLE  ADDRESS 

USER  FORGOT 

IS  TYPE  CODE  SERVICED 

NO 

THEN  GET  TYPE  CODE  PDDPFSSED 

; IS  THAT  TYPE  CODE  SEPV 
NO 

CRLL  USER  ROUTINE 
RESTORE  RG 


CED 


(SP)+.Rt 

(3P)+<P5 
PC 


RETURN 


; RESTORE  Rl 
.RESTORE  R5 
TO  CALLER 


«C  SBSY. 
C.  3FGY 

c  :ley 

PC 

»1.C.  SHI 

C.3LEY 
3GEY 


C.SBPY  .RESET  BUFFER  POINTER  TO 
NOU  GO  EXIT 

INCR  INTERNAL  ERROR  CNTP 
RETUPN  TO  CPLLER 

:3ET  0^/PFLOU  1  FLPG  I ND 
INCPEnENT  COUNT  OF  LOST  tNTPlES 


JPRT 


IF  OF  PSXll 

PSECT  >,,yx 
ENC'C 


J 


SCP322  SCIP  VERSION  3-22 


nfiCRO  nnoH    oe-DEC-??  08: 28 


0 

PPGE 


13 


606 

607 

b08 

609 

610 

611 

612 

613 

bm 

bis 

61b 

bl7 

61S 

61? 

bCG 

bll 

622 

623 

624 

62S 

626 

627 

628 

629 

630 

631 

632 

633 

000000 

005767 

00053b 

63»4 

000004 

001453 

63B 

000006 

016702 

000536 

636 

000012 

032767 

000001 

637 

000020 

001026 

638 

000022 

042767 

000003 

639 

000030 

005367 

000506 

640 

64  1 

64  2 

64  3 

b^U 

000034 

113746 

177776 

b4b 

000040 

112737 

000340 

646 

647 

000046 

012221 

64 1 

000050 

012221 

649 

000052 

012221 

650 

000054 

012221 

651 

000056 

004767 

nnno36 

652 

000062 

010267 

000462 

653 

654 

655 

656 

000066 

112637 

177776 

657 

658 

000072 

000257 

659 

000074 

00G207 

660 

661 

662 

000076 

052767 

000002 

000520 
000510 


1  I  I  I  I  D 


0004  34 


FIRST  ENTRY 

OF  THAT 

UHICH 

IF 

USER 


SCIP  EriT  GE^  connPNO  routine  -  ini  \o\ 

UNLOADS  USER  CtRCULflR  BUFFER. 

ENTERED  FROM  MONITOR  EflT  TRAP  HRNOLES. 

PfiRPMETER  IN  Rt  CONTAINS  fiOORtSS  OF  USER  LOCATION 

INTO  UHICH  TO  LOAD  BUFFER  ENTRIES.  IF  BIT  15  Of 

THE  FIRST  PARAHETER  UORD  IS  ZERO.  THE 

IF  IT  IS  NON-ZERO.  THE  LOU  ORDER  BYTE 

UORD  IS  TAKEN  AS  THE  LINE  NUMBER.  FOR 

THE  BUFFER  IS  SEARCHED  FOR  AN  ENTRY. 

ENTRY  IS  FOUND.  IT  IS  LOADED  INTO  THE 

SPECIFIED  nODRESS.  AND  THE  BUFFER  ENTRY 

UOi^D  ONE  IS  SET  TO  ZERO.   HOUEVER.  THE  ENTRY  IS 

NOT  REMOVED.  NOR  IS  THE  COUNTER  DECREMENTED. 

(THIS  UOULD  BE  DONE  BY  NORMAL  GET  COMMAND. 

UHICH  UILL  DISCARD  ALL  ZERO  TYPE  CODE 

ENTRIES  FOUND.  AND  GET  FIRST  GOOD  ENTRY 

ENCOUNTERED) 

ON  RtTURN  TO  USER.  IF  ENTRY  NOT  AVAILABLE. 

RETURN  UITH  N  CONDITION  CODE  SET.   IF  ENTRY 

LOADED  INTO  USER  ADDRESSES.  RETURN  TO  USER 

WITH  ALL  CONDITION  COOES  RESET.   IN  ALL  RETURNS 

TO  USER.  REGS  ARE  RESTORED  AND  STACK  POINTER 

IS  POINTING  TO  ENTRY  ON  STACK  PREVIOUS  TO  USER 

PUSHING  EflT  PARAMETER  ON  THE  STACK. 


S  UNLOADED. 


C.  SGET 


.  GLOBL   C.SGET 

TST     C.SBCY  ;ANY  ENTRIES  IN  BUFFER 

BEQ  C,  SFCY      ;N0  EMTRIES^  TELL  CALLER 

MOV     C.SFEY.R2      ;  PUT  BUFFER  POINTER  IN  P2 

BIT     «1, C.SHI        ; IS  OVERFLOW  1  INDSET 

BNE     C  SGMY  ; YES 

BIC  «3.  C.SHI  .:  CLEAR   ALL   OVERFing  FLOGS 

DEC  C.SBCY      ;  DECREMENT   ENTf?Y   COUNT 

.  IF   DF    LSIU 

-(SP)  ;SRVE  PROCESSOR  PRIORITY 

J?340  ;;  ;LOCK  OUT  INTERRUPTS 


MFPS 
MTPS 
.  IFF 

novB 

MOVB 

.  ENDC 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 


a;C.  STfiT.-<SP) 
»340,a'»C  STflT 


;SRVE  PROCESSOR  PRIORITY 
;; ;LOCK  OUT  INTEPRUPTS 


I  >  f 

.  / 

t  r    / 

.  /  / 

.  / 

/  / 


C.  SBGY: 


(P2)  +  .  (Rl.)  + 

(R2)+, (Rl )+ 

(R2^+. (k1)+ 

(R2)+. (Rl)+ 

PC.C.  SFQY 

R2.C.  SFEY 
.  IF  DF  LSlll 
MTPS    (SP)+ 
.  IFF 

MOVB    (SP)+.i«C.  STflT 
.  ENDC 

CLALL   ;CLEflR  ALL  CONDITION  CODES 
RTS  PC   ;AND  RETURN  TO  EMT  HANDLER 


MOVE  ENTRY  TO  USER  STORE 
STORE  IN  USERS  AREA.  4  WORDS 


TrST  FOR  BUFFER  END 
SAVE  BUFFER  POINTER 


;;;RESTORE  PROCESSOR  PRIORITY 
;;.;  RESTORE  PROCESSOR  PRIOR'TY 


•THE  Uie  HAS  OVERFLOWED.  TELL  THE  USER. 

C.  SGMY:  BIS     «2. C.SHI        ;  SET  OFLO  FLPG  2 


SCP2:2  SCIP  VERSION  3-22 


riRCRO  nuo^  Ofe-DEC-77  08:28 


i 

PRCi 


13 


bbZ  00010^ 

0*42767 

000001 

bb^  ooon: 

012711 

OOOHOO 

bb6  OOOllb 

OOOr'bB 

bbb 

bb7 

hhZ   000120 

022702 

0007^2' 

bb9  0001214 

103002 

670  00012b 

012702 

000552' 

b7l  000132 

000207 

b72 

b73 

b7H  0001 3H 

000257 

b7S  00013b 

000270 

b7b  GOOIUO 

000207 

b. 
b7S 

b79 

bSO 

bSl 

682 

bS3 

hS^ 

b86  ooom: 

011100 

bSb  ooomn 

005003 

b87  OOOlHb 

Otb302 

001  ;m ' 

688  000152 

000300 

b89  0001614 

lOOHOH 

b90 

b9l 

b92  00015b 

0H2700 

1777U0 

693  OOOlbZ 

000167 

000366' 

b9H 

b95 

b9b 

697  000 Ibb 

GH2700 

177760 

69S  00C17: 

G0U167 

000336' 

b99 

^00 

000*426 


BIC 

nov 

, SUBROUTINE 

C  SFQY:  cnp 

BHIS 

MOV 

C  SFLY:  RTS 


«t. C.SHI 
«H00. (Rl) 
C  SBGY 


CLEAR  OFLO  FLRG  1 

GIVE  USER  OVERFLOW  ERROR 


TO 


TEST  «N0  POJUST  FOR  BUFFER  -NO 
•C  SBEY,R2     .  IS  IT  BUFFER  END 
C.  SFLY  ; NO-GO  AROUND  RESET 

«C.SBSY,R2      ;RE3ET  BUFFER  POINTER  TO  START 
PC      .RETURN  TO  CALLING  ROUTINE 


, THERE  ARE  NO  ENTRIES  IN  THE  UlB 

C.  SFCY:  CLALL   ;CLEAR  ALL  CONDITION  CODES 

SEN     ;THEN  SET  N  CC 

RTS  PC      .AND  RETURN  TO  EflT  HANDLER 


.  ENDC 
;EMT  100 
; ENTERED 
; ASSUMES 
;PARAMC 

.  GLOBL 

C  SPUT: 


;C.USFY 
SERVICE  ROUTINE. 
FROM  MONITOR  TYPE  EMT  HANDLER 
ENTRY  VIP  JSR  PC  UlTH  PI  CONTA 
?R  POINTER  AND  PS  CONTAING  USER 


NING  USER 
PRIORITY  LEVEL 


C.  SPUT 
nov  olRl.PO 
CLR     R3 
MOV  C.  STAB^P3) 
SWAB  RO  < PLACE 
BMI  C  SPTA 


;GET  ' 

OPCODE 
;THIS 


RST  WORD  OF  PARPMETEP  LI 
;LINE  n    IS  ALWAYS  0 
:GET  LINE  TABLE  ADDRESS 

N  LO  BYTE 

S  ISR/DEVICE  REQUEST 


ST 


THIS 


EMT  100 
BIC 
JMP 


REQUEST  IS  FOP  P 
81777140-RO 
C.  SATP   ;G0  TO 


TOP/TERMINAL 

; CLEAR  ALL  BUT  5 
MATRIX  SWITCH  AND 

;T0  EMT  HANDLER 


RIGHTMOST 
RETURN 


BITS 


;THI' 
C.  SP' 


I  A  REQUEST  FOP  THE 
BIC  »1777b0P0 
JMP     C  SflPP 


DEV 


CE  MSP)  MATRIX  SWITCH 
■DPOP  TO  TrPE  CODE 

;CALL  DEVICE  TYPE  hRTPiy.  SWITCH  AND 
PETUPN  TO  EMT  HflNDLEP 


SCP3:2  SCIP  VERSION  3-22 


nPCRO  n\m     Cb-DEC-77  08:  28 


F 

PPGE 


13 

15 


702 
7Q3 
Ton 

705 
70fc 
707 
708 
709 
710 
711 

7t: 

713 

"\^ 

716 

7lb 
-' »  T" 

718 

"19 

720 
721 

723 
721* 
725 
726 
727 
728 
729 
730 
731 
732 
732 
73^ 
72S 
736 
737 
738 
739 
7146 
7U1 

7U2 
7^3 
744 
7^S 

7^6 
7^7 

7H8 
749 
750 
761 
752 
753 
76'* 


0QQ33b 


00033b 
000340 
C0034H 
000350 
000350 
000354 
000356 
000360 
000362 
000364 


000366 
000370 
000374 
000400 

000402 
000404 
000406 


000414 
000420 


000176 


011646 

004567  17^530 

012705  000014 


042700 
C06300 
060005 
011505 
004^15 
0004  10 


177740 


011646 

004567   177500 
012705  000050' 
000763 

00U243 

ooo:"4 


000406  013766  177776  GOOOlb 


0045S7   177476 

ooooc: 


.  IF  OF  RSXll 

.PSECT  ISR 

.ENDC 
GENERAL  SYSTEn  riQTRlX  SWITCH  ON  FUNCTION  CODE  -  DEVICE  TYPE 
USER  ENTERS  VIP  JSR  PC.C.SRRP 
REGISTERS  SET  PS  FOLLOWS; 

ROsFUNCTlON  CODE  IN  6  RIGHTnOST  BITS 

RlsIF  FROn  EMT,  CONTAINS  POINTER  TO  USER  PflPflnETERS 

R2=P0INTER  TO  LINE   TPBLES  FOR  LINE 

R3:LINE  NUnSER  PS  P  WORD  INDEX 
UPON  RETURN  TO  USER,  THE  REGISTERS  PRE  RESTORED 
THE  CONTENTS  OF  THE  CONDITION  CODE  ARE  PPSSED  BPCK 
TO  USER  PS  RECEIVED  FROM  SUBROUTINES. 
PLL  SUBROUTINES  SWITCHED  TO  RETURN  BPCK  TO  C.  SPRR 

;SPVE  SPPCE  FOR  LPTEP 
.SPVE  USER  REGISTERS 
; HOLDS  TPBLE  ADDRESS 

BIC  1177740. RO  ; GET  FUNCTION  CODE 

flSL  RO  ;  1^2 

ADD  R0<R6  **  ;THEN  GET  ADDRESS  OF  ADDRESS  OF  RTN 

nOV  iR5,R5  ;THEN  RTN  ADDRESS 

JSR  PCiRS  ;AND  TRANSFER  TO  RTN 

BR  C.SARJ  ;AND  LEAVE  THIS  PLACE 

GENERAL  SYSTEM  MATRIX  SWITCH  ON  FUNCTION  CODE  -  TERMINAL  TYPE 

USER  ENTERS  UIA  JSR  PC<  C  SATP 

ALL  OTHER  CONDITIONS  SAME  AS  DEVICE  MATRIX 

i)SP,-(SP)      ;SAVE  SPACE  FOR  LATER 
P5.C,SREG      ;SAVE  USER  REGISTERS 
«CBFTBL+2P5     HOLDS  FIRST  SUiirH  STRPT  ADDR 
C.  SART   ,G0  THRU  COMMON  CODING 


C.  SARP: 

MOV 

•)SP.-(SP) 

JSR 

R5,C.SREG 

MOV 

»CPFTBL^2R5 

C.  SART 

C.  SATP: 

MOV 

JSR 

MOV 

♦ 

BR 

C.  SAIN 

CLVC 

SETNZ 

C.  SAPJ: 


IF  n: 


ENDC 


:SET  ERPOP  PETUPN 
.  IF  DP  LSI  11 

MFPS    16' SP)         ;SAVE  CONDITION  CODE  IN  SPACE 
.  IFF 

MOV     i)»C.  STAT,  Ib(SP)  ;SAVE  CONDITION  CODE  IN  SPACE 
.  ENDC 

JSR     R5.C.  SRES      ;RESTORE  PEGS 
RTI     ;LOAD  PC  AND  PS  FOP  USER  PETUPN 
•NOT  A  RETURN  FROM  INTERRUPT 

.  IF  DF  RSXll 
.PSECT  XXX 
.  ENDC 
;UB-4 
.EOT 
;END  OF  TAPE  3  OF  B 


SCIP 


VERSION   3-22 


nfiCRO  nuOH     Ob-DEC-77  08.  28 


G 
PAGE 


13 


757 
763 
7B9 
760 
761 
762 
763 
"6^ 
768 
766 
767 
76S 
769 
7^0 
771 

I  (  *. 

773 

77H 

776 

776 

777 

778 

779 

780 

781 

782 

783 

78W 

786 

786 

787 

788 

789 

7<^0 

791 

792 

793 

7914 

796 

79b 

797 

798 

799 

SOO 

801 

802 

803 

SOU 

805 

806 

807 

308 

S09 

810 

811 

812 


000176 


000176 
000200 
000202 
000206 
000210 


000212 
000216 
000220 
00022^ 
00022b 
000232 


0002J6 
0002H2 
0002H6 
000260 
000262 
00026U 
000266 
000262 
00026U 
000270 
00027U 

000300 


011103 
00. -OU 
004/67 
000267 
000207 


006767 
001002 
00H767 
006003 
01g702 
001001 


00023H   OOOHHO 


010263 
016104 
010412 
106004 
000304 
006304 
016404 
060204 
010467 
012700 
004767 
100416 


000544 


00121:' 

000526 

ooi:io' 


;EnT  103  SERVICE  ROUTINE 

;SYSTEn  TPBLE  INITIPL  IZfiTlON  -  CflT 

.ENTERED  FROn  MONITOR  TYPE  EflT  HPNDLER 

.PSSUflES  ENTRY  VIP  JSR  PC  UITH  Rl  CONTPINING  PPRPMETER  LIST 

.PDDRESS  PND  PLL  USER  REGISTERS  SPVED  UITH  PS  PT  USER  LEUEL 


C,  ST  I 
.  ENDC 


N: 


.THIS 

>:  STii 


C.  STIB: 


C.  STIK: 


ooi:i4' 

000002 


C.  STIC: 


000042' 

001210' 

000004 

00036b' 


.  GLOBL 
IF  LT 

novB 

MOV 
BEQ 

JSP 

CLOLL 

RTS 


C.ST  IN 
SUB -2 
»340.dlC 

a)Rl.R3  . 
C  STifl  , 
PCC'TB 

PC 


STPT 


SET  TO  INHIBIT  irlTERPUPTS 


GET  PPRPnETER 
STPNDPRD  INIT 
RESTPRT  INIT 


S  fl  STPNDRPD  LIMIT 


C 

C 


TST     C.  STRT   , 13 
BNE     C.STIB  ;N0 
JSR     PC.CITB  ,G0 
CLR     R3 
STPK,R2   ; 
STIC 
SUB-2 
Rl,  -(SP) 
»776,R1  ; 
»BUrHDR,R 
MONPOL 
»40.  ,P2 
BUFFER. R6 
C  STIL 
(SP)+,P1 
«BUFHDR.R4 
R4,R2 
P4,C.  STPK 
R4,C.STflX 
«776-R4 
P4,C.  STflE 
-(R4) 

R4,R2       ; 
C.  STIK      ; 
.  ENDC 

.  IF  N2  S'rJB-2 
BR  C.  STIF 

ENDC 
MOV  R2,  C.  STflB(P3) 
MOV  2(R1),R4    ; 
MOV  R4,iR2      ; 
CLPB  R4 
SUPB  P4 

RSL  R4  ;THEN  GET 
MOV  C.  SLTL(R4),R4 
ROD  R2,R4  ; 

MOV  R4.C.  STPK  ; 
MOV  ;4.-R0  ; 

JSR  PCC.SflTP 

BMI  C.STII      ; 


CPLL 
T  F 


RST  ENTRPNCE 


MOV 

BNE 

IF 
MOV 
MOV 
ODD 

GLOBL 
MOV 
CRLLX 
BCS 
MOV 
ROD 
MOV 
MOV 
MOV 
ROD 
MOV 
CLR 
CMP 
6HI 


NITIPLI2E  SCIP 

;CLERR  R3  TO  LINE  NUMBER 
GET  NEXT  POSSIBLE   LINE  TRBLE  RDDRESS 
BUFFER  RVRILRBLE,  CONTINUE 


MOVE 
1 


:SRVE  Rl  -  CRUSE  HRVE  TO  CLOBBER  IT 
N  SIZE  OFF  SUFFER  URNTED 
;RDD  IN  SIZE  OF  BUFFER  HERDER 


MRKE 


SURE  SYSTEM  STILL  HRS  SOMETHING 
MONPOL        ;GET  BUFFER  FROM  MONITOR  POOL 

;N0  BUFFER  -  FRTRL  ERROR 
;NOU  RESTORE  Rl 
.STEP  OVER  BUFFER  HERDER 
;PLRCE  BEGINNING  BUFFER  RDDRESS  IN  R2 
;RND  TEMPORRRY  LINE  TRBLE  RDDRESS 
;RND  SRVE  BEGINNING  RDDRESS 
;THEN  CRLCULRTE  ENDING  RDDRESS 
;RND  SRVE  FOR  LINE  TRBLE  CHECKS 
CLERP  THRT  BUFFER  RS  OBTRINED 
AND  TEST  FOR  COMPLETION 
CONTINUE  UNTIL  BUFFER  ZEPOED 


,THflTS  RN  ERROR  IN  RLL  SYSTEMS 

;RND  PLRCE  IT  IN  FOP  THIS  L 1 NE 
AND  3ET  TYPE  CODES 
RND  STORE  IN  TRP  LINE  TRBLE 


TAP  CODE  MULT  BY  2 

;GET  LINE  TRBLE  LENGTH 
RLSO  INCREMENT  TO  NEXT 
OK.  UPDATE  NEXT  RVRILABLE 
OPCODE  FOR  TRP  INI T IRL I ZRTION 

;G0  TO  TRP 
GOT  RN  ERROR 


LEFT 


SCP322  Slip  VERSION  3-22 
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213 

SIS 

sib 

817 
818 
819 

s:o 

821 
823 


000302 
000306 
000312 
000316 
000320 
000326 
000330 
000332 
000332 
00033M 
000236 


3214  000336 
S2S  000342 
£2b  OOOZHH 

s::^  000346 


00S061 
012700 
004^67 
100H07 
012767 
000257 
000207 

000403 
012601 

005063 
000257 
000270 

000207 


OOGOOH 
000003 
000336' 

177777  001212 


001214 


C. 
C 

r 

C 
r 

C, 


ST 
ST 


H: 
D: 


STIL 

STIF 
STI  I 
STIG 


CLR 

nov 

JSR 

Bni 

MOU 
CLRLL 
PTS  PC 

6R 

nov 


H(Rl)   ; LOOKS  GOOD 
•  3.R0   ;SET  CODE  TO  GO 


PC.C. 
CSTII 


SPRP 
; ERROR 
FLQG 
; CLEAR 
RETURN  TO  EflT 


GO  FOR 


THRU 
ISR 


DEV 
NIT 


CE  MATRIX 


STRT 


NITIflLlZflT 
ERROR  COND 
HANDLER 


ON  COMPLETE 
TIONS 


C.STIG 
(SP)+,R1 


RESTORE  Rl  IN  ERROR  COND  IN  RSTSiRSXll 


CLP  C  STQB(R3)   .CLEAR  INlTlfiLI 
CLPLL    ;DROP  EXTRANEOUS  CONDI T 
SEN     ,S£T  CONDITION  CODE  N 
RTS  PC   ,PETUPN  TO  EMT  HANDLER 


ZTION  (LINE 
ION  CODES 


TPBLE^  ADDRESS 


I   13  ~~ ~~ 

SCP322  SCIP   VERSION  3-22                 MfiCPO  rmO^     06-DEC-77  08:28     PRGE   17 

229  .  IF  NZ  CUTB 

830  .  GL08L  CTEMT 

SZl  ;EnT  102  SERVICE  ROUTINE 

SZ2  ,PUTTn  AND  DELTM 

833  ;flSSUnES  ENTRY  FROn  EMT  HfiNOLER  VIA  JSR  PC  WITH 

23H  ,USER  PflRflMETER  RDORESS  IN  Rl  OND  PRIORITY  STPTUS 

S3S  ;PEGISTEP  SET  TO  USER  LEVEL.  ALSO  ALL  REGISTERS  ^PE 

836  ;V0LATIL£. 

837  ; 

838  000350  012100  CTEMT:   MOV  (Rl)f,RO    ;GET  FIRST  PARAMETER  WORD 

S3?  000362  052700  177400                BIS  «177400,R0  ;FLPG  THIS  AS  A  EMT  CALL  IN  QUEUE 

8H0  00035b  012104                      MCV  fRD^.RH    ;GET  USER  TICK  COUNTER 

SHI  0003b0  011105                      MOV  iPl,R5      , AND  THEN  PARAMETER  WORD 

8H2  .IF  NDF  TIMEDQ 

S43  TIMEDQ=  1       ;TIMEP  DEQUEUE  DEFAULTS  TO  PRESENT 

S4H  .  ENDC 

SH5  .  IF  NZ  TIMEDQ 

S4b  0003b2  032761   177400  1777''4         B  I  T  » 1  ^7400- -4  ^  P  P      ;  TEST  FOR  QUEUE/DEQUEUE 

347  000370  001402                      BEQ  CTQUE       .ZERO  IS  QUEUE  ROUTINE 

S4S  * 

349  ;THIS  SERVICE  IS  FOP  A  TlMEP  DEQUEUE 

350  000:^:  000167  nnnc:^'  jMP     CTDEL          ;CALL  SUBROUTINE  AND  RETURN  TO  EMT 

851  ; 

852  ;THiS  SER'MCE  IS  FOR  A  TiMER  QUEUE 

853  0003:'b  CTQUE,   .  ENDC 

854  00037b  000167  000422'  JMP     CTIME   ;CALL  TiriER  LINK  SUBROUTINE  AND  RETURN 

855  . ENCr 


SCP3ZZ  SCIP  VERSION  3-22 
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85? 

SB? 

SbO 
3bl 

Sb:  000^02 


;SYSTEn  TIMER  T«P  LEVEL 

^ROUTINE  FOR  TmiNG  PROGRfin  PRIORITY  LEVEl  flCTIVflTlON  REQUESTS 
.ENTERED  FROM  PRIORITY  SCHEDULER 
.  GLOBL  ctplr 

CTPLR: 


SCP32:  iCiP  ^'ERSION  3-22 


nOCRO  nWOH     Ob-DEC-77  08;  28 


K 
PPGE 


13 

19 


ObM 

8b5 

86b 

S67 

368 

S69 

S70 

S7l 

872  0Q0H02 

8:^3 

87^ 

875 

S7b 

877 

S"'S 

879 

380 

88! 

882  000H02 

004567 

000074 

SS3 

SSH 

SS5 

886 

887 

888 

889 

890  OOOHOb 

012003 

891  ooomo 

011004 

892 

893  000m2 

051040 

89H  0004  m 

001436 

89B  000416 

005020 

896  000420 

006010 

897  000422 

162700 

OOOCOb 

S9S 

SQQ 

900 

901 

■^02 

90J 

904 

90S  0004  26 

004767 

000660' 

?0b  0004  32 

032703 

177400 

907  000436 

001413 

90S 

909 

910  000440 

005003 

911  000442 

052703 

04  I  000 

912  000446 

010446 

913  000450 

010346 

914  000452 

010605 

915  000454 

004767 

000172' 

916  000460 

062706 

000004 

917  000464 

00C403 

91S 

919 

920  000466 

016302 

001214' 

;SYSTEn  TinER-UNE  TIHER  ROUTINE 

; ENTERED  FROM  CTPLR 

.EXITS  BACK  TO  PRIORITY  SCHEDULER 


IF  2  SUB-5 

GLOBL  RESUnE.DONE 

ENDC 


CTOCK: 

CTOXJ; 

CTOS; 


.  IF  N2 
CTNE: 


.  IF 
.  IF 
TST 
BEQ 
INC 
TST 
BEQ 

cnp 

BNE 
.  ENDC 
JSR  R5 
SWBC 
liOU 

nov 

MOV 

nou 


N2  CUTB 
NZ  SU6C 

CTIKO 

CIOXh 

CTIC 

CTBS 

CTOXJP 

•ICTBS.CTIC 

CTOX 


Ef^DC 

1^  :  s 


;4I 


CTBS.FO 
2(P0j.P3 
6'PO'.  P4 
4'R0i,aBS 


;*l 
;4I 

;ll 


NBC 
nov   fP0)>-R3 
MOV  iPO..  R4 
.  K    NZ   SWB-6 
BIS   aPO.-'PO' 
BEQ  CTFETZ 
CLP    " P  0  '  + 
CLP    iiPO 
SUB   «6.PQ 
.  ENDC 

,  IF    Z   SWB-6 
CLP    >P0) 
CLP    -(PO) 
SUB   «4,P0 
.  ENDC 
.  ENDC 

JSP   PCCTPVRC 
BIT   ;i77400R3 
BEQ  CTTRP 


.RT-ll 


;HPS  CLOCK  TICKED 

;N0  EXIT 

, INCREMENT  MASTER  TIMER 

,«NY  TIMER  ENTRIES 

;N0-  GO  EXIT 

;H«S  FIRST  ENTRY  TIMER  EXPIRED 

.NO.  GO  EXIT 


C  SPEG   .SflUE  REGISTERS 


.GET  PDDRESS  OF  EXPIRED  ENTRY 
.PND  LINE  NUMBER 

;THEN  PORflMETER  COLLEP  SPECIFIED 
:flND  r'EXT  LINK  POINTER 


^ RECOVER  LINE  NUMBER 

;flND  USER  SPECIFIED  PflRPMETER  UOPD 

;NOT  PT-11 

:fiND  TEST  FOR  EXPIPPTiON  PTTEMPT 

; RETURN  TO  VRCPNCY  CHPIM 

;THEN  CLEPP  2.3  HOPDS 
;PND  OBTPiNS  FIR.T  WORD 

;PT-il 


;THEN  RELINK  OLD  ENTRY  INTO  uPCPNCY 
.  IS  THIS  EMT  CPLL 
,N0.  SYSTEM  CPLL 


;THIS  QUEUE  ENTRY  IS  FOR  P  USER  EMT  CPLL 


CLR     R3 
BIS  ;41000.R3 
MOV  R4.-(SP) 
MOV  R3. -iSP) 
MOV  SP.R6 
JSR  PC.C.  SFY 
PDD  «4,SP 
BR  CTRETX 


CLERR  R3  TO  LINE  NUMBER 
PLPCE  TYPE  C0DE=2,  2  WORDS 
PLPCE  PPRPMETER  ON  STACK 
PND  FIRST  WORD 
THEN  SET  UP  R5  FOR 
PND  PLPCE  ENTRY  IN 
RESTORE  STPCK  POINTER 
PND  TRRNSFER  TO  COMMON 


UIB 
UIB 


LOHPFP 


;THIS  ENTRY  IS  FOP  P  SYSTEM  T 
CTTPF:   MOV  C. STPB(R3),P2 


MER  PEQUZST 
;GET  LINE 


TRBLE  ADDRESS 


SCP322  SCIP   v/ERSlON  3-22 
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n\ 
m 

925 
92b 

9:3 

930 
931 

932 
933 
93H 
935 
93b 
937 
q73 

939 
9HG 

9m 

94  2 
94  3 
944 
9H5 
94b 


000472  004714 


CTRETX 


CTOPR: 
CTOX: 

CTOXfi 


T I  nx  I  r 


JSR  PC.iR4 
.  iF  N2  SWBC 

TST  CTBS 
BEQ  CTORR 
CMP  iCTBS^CTlC 
BEQ  CTNE 
JSR  R5.C.  SRES 
DEC  CTIKB 
BNE  CTOXJ 
.  ENDC 
.  ENDC 

IF  NZ  SUBC 
nOU  »NOP.C  SPRT 
.  IF  LT  SWB-2 

nov  iNOP-c.  SPIT 

ENDC 

JMP  C  SPS 
.  ENDC 

.IF  NZ  CU'B 
.  IF  NZ  SWBC 


RNO  TRANSFER  TO  ADDRESS 


PRE  THERE  ANY  OTHER  ENTRIES 

NO.  THflTS  ALL 

HAS  THE  NEXT  ONE  ALSO  E.XPll^ED 

no,  thats  all  for  now 
restore  registers 
decren':nt  interrupt  counter 
thats  not  all 


CLEAR  REQUEST  LOCATION 
AND  lEI'EL  active  FLAG 

AND  THEN  TO  THE  PPlOPITY  SCHEDULER 


94  7 

94  8 

949 

960 

000474 

004667 

00011b' 

961 

000600 

Gl2b00 

962 

963 

000602 

012716 

000663 

964 

000606 

10437- 

966 

000610 

IG3777 

%b 

96^ 

96  S 

969 

9bO 

9b  1 

000612 

02404  0 

9b  2 

000614 

004  :^b:' 

000660' 

9b^ 

000620 

000766 

9b4 

966 

96b 

967 

9bS 

Qb^ 

970 

971 

972 

973 

000422 

Q7^ 

975 

9:^6 

977 

000422 

00466" 

177446 

; THERE  APE  NO  ENTF lES 
CTOXJA  CLR  CTIKB 

BP  CTOXA 

.  ENDC 

.  ENDC 

.  IF  Z  SUBC 
CTPF^'r  JSP  P5.C  SPES 

nov  (SF  '  +  . PO 
IF  NZ  SWB-6 

MOV  «PSTE'';  iSP 

EMT  377 

BCS 

.  ENDC 

.  IF  Z  SUB-6 

RTS  PC 

.  ENDC 


N  THE  TinEP  OUELIE   SET  CTikb  TO  ZERO 
.AS  I  SAID-  CLEAR  CiTKB 


RESTORE  REGISTERS 

AND  RE-  RESTORE  RO  ( JSR  PO) 

NOT  PT-11 

POP  STRCK  AND  PLACE  PPRPMETEP  ON  STACK 

AND  EXIT  PST  vm  EMT  CALL 

LOOP  -EPE  IF  DIRECTIVE  ERROR 

PT-11 

EXIT  FROM  COMPLETION  ROUTINE 


CTPETZ.  CMP 
JSP 


-  •  P  0  K.  -  '  P  0 1 
PC- CTPHPC 
CTPETX 


BP 

.  ENDC 
IF  NZ  CUTB 
SET  UP  TIMER  SUBROUTINE 
USER  ENTERS  UITH  LINE  NUMBER  IN  Pn 
EXPIPRTION  TIME  CNT  IN  P4 
ADDP  OF  TIMEOUT  PTN  IN  P6 
ENTRANCE  VIA  JSR  PC-CTlME 
REGS  RESTORED  ON  RETURN 
IF  DF  PSXll 
FSECT  ISP 
.  ENDC 


;BACK  UP  TO  STRPT  OF  BUFFER  ENTRY 
; RETURN  IT  TO  VflCRNCV  CHhIM 
;hND  exit 


GLOBL  CTIME 
CTIME.   JSR 


R6.C.  SPEG 


;SAVE   PEGS  FOR   USER 


SCP322  SCIP   UERSION  3-22 
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n  \2 
PfiGE   19-2 


000i+2e 

004767 

000164 

Q79 

000H32 

006700 

980 

000H3H 

001427 

9S\ 

982 

9S3 

9S'^ 

93S 

9Sb 

987 

92S 

9S9 

990 

000H3b 

Glt720 

000634* 

991 

000^h2 

016720 

00063b' 

Q^2 

99! 

OOOHHb 

010467 

G0062b* 

99H 

996 

0001462 

0Hb20 

99b 

OOO^SH 

016610 

000012 

997 

OOC^bO 

^2:^00 

000006 

99S 

999 

OOOHb^ 

01006^ 

000632' 

i666 

000^"0 

012746 

000622 • 

1001 

0004^4 

1Q4377 

too: 

1003 

10GU 

1006 

100b 

1007 

lOOS 

1009 

1010 

1011 

1012 

1013 

lom 

lOlS 

OC     D 

1 034 04 

101b 

1017 

1018 

1019 

io:d 

000500 

00466:' 

17741: 

io:i 

000604 

000264 

io:: 

000606 

00020:" 

1023 

000610 

io:w 

io:b 

1026 

1027 

102S 

000610 

004767 

000134 

10:9 

103P 

000614 

00466:^ 

177J76 

1031 

000620 

00C254 

1032 

000622 

000270 

1033 

000624 

000207 

lOJH 

CTIX; 


CTIB: 


CTIO: 


JSP  PCCTGl/fiC  .GET  UflCflNT  LINK 

TST  RO  , IS    IT  VflLlO-NON  ZERO 

BEQ  CTlfl  ; NO-RETURN  TO  USER 

IF   NZ   SUBC 

ROD  CTIKB.RH  .  fiOD  CTIKB   OVERRUN  UPLUE-    IN  CASE 

POD  CTIC.R4  ,POD  TlflER   UPLUE 

MOV  R4,(R0)  ,PUT    IN   1ST  ENTRY  UORD 

nov    (SP).2(R0)     ;PUT  ln  in  2nd 

MOU     12(SP).b(R0)    ;PUT  PTN  POP  IN  4TH 

,G0  LINK 

;SET  UP  FIRST  U0PD3  TO  JSR  RO-CTOCK 

;NOT  PT-11 

;SET  UP  TIMER  IN  TICKS 

-PICK  UP  USER  SPECIFIED  LINE  NO 
.PND  LOPD  USER  SPECIFIED  PPPPMETEP  UOPD 
.THEN  OBTPIN  BEGINNING  flODPESS 
NOT  RT-11 
,flND  STORE  PDDRESS 

PUT   PPPPriETEP    LIST   ON   STRCK 
:PND  CPLL   PSX-llD 

•PT-11 

-SPUE  PO  DURONG  MONITOR  CRLL 

;PUT  ON  NUMBER  OF  TIMER  TICKS  TO  WPIT 

•MOST  SIG  WORD  OF  TICK  COUNT  IS  ZERO 

;HUT  PDDRESS  OF  TIMER  BLOC^  INTO  Rl 

; Timer  id  -  PDDR  of  SCIP  T.MER  NODE 

; COMPLETION  ROUTINE  PDDRRESS 

PDDR  OF  TIMER  TICK  BLOCK 
■MRKT  OP  CODE 

PUT  PODPESS  OF  TIMER  BLOCK  INTO  PO 
.CPLL  RT-11 

;IF  OUT  OF  POOL  NODES  TRKE  THIS  BPRNCH 

FT-i: 
;CLERN  UP  STRCK  (TRKE  TIMER  BLOCK  OFF) 

; RESTORE  USER  PtGS 

■ BRCK  TO  USEk 

•PT-11 

-CLERN  UP  STPi> 

; RESTORE  RO  tPODPESS  OF  SCIP  TIMER  NODE) 

.RETURN  TO  VflCRNCY  CHRir^  IF  OUT  OF  NODES 

: RESTORE  PEGS 


RETURN  TO  USE? 


JSP 

PCCTLNK 

ENDC 

.  IF  Z  < 

SUBC 

MOW  JUNK. (PO)* 

MOV  JUNK*2. (POj* 

iF  NZ 

SWB-6 

MOV  P4 

C  MI-UN 

ENDC 

MOV  iS' 

3,  iROi* 

MOV  12 

SPi-iPO 

SUB  «6 

RO 

.  IF  NZ 

SUB-6 

MOV  RO 

C  MI'PS   .RND 

MOV  $C 

MKTM- -iSP) 

EMT  27' 

7 

ENDC 

.  IF  : 

:WB-6 

MOV 

PO  -(.SP) 

MOV 

R4.-(SP) 

CLR 

-•SP' 

MOV 

SP,P1 

MOV 

RO. -(SP) 

MOV 

RO.-(SP ' 

MOV 

P  1 .  - ' SP  ' 

MOV 

»11000.-'SP) 

MOV 

SFRO 

.  MRKT 

.  ENDC 

BCS 

CTiB 

.  ENDC 

.  IF  : 

SUB -6 

ROD 

»lb  SP 

.  ENDC 

JSR 

R6^C  SRES 

CLZN 

•RESET  CC 

PTS 

PC 

.  IF  : 

SUBC 

.  IF  Z 

SvJB-5 

ROD 

nl4,SF 

MOV 

(SP)+.RO 

.  ENDC 

JSR 

FCCTPVRC 

.  ENDC 

JSR 

R6.C.  SRES 

CLZN 

; RESET  CC 

SEN 

SET  N  CODE 

RTS 

PC       RET 

.IF  OF 

RSXll 

%C.PZZ2  SCIP   wERSiON   3-22 


N  13 

nficpo  nuo'4    O6-OEC-77  08:  28    page  19-3 


103S  00062b 

io:b 


.  PSECT  ISP 
.  ENDC 


IMWpijlMiliifeffl^^ 


scP3:2  Slip  version  z- 


1038 
1039 
10^0 

lom 

10U2 
10H3 
10H14 
10^5 
10H6 
10H7 
lOHS 
10H9 
lOBG 
lOSl 

irs: 

lLv3 
105H 
105S 

105b 
1057 

loss 

1059 

1060 

lObl 

1062 

1063 

1064 

1065 

1066 

1067 

106S 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

10^6 

1077 

107S 

1079 

lOSU 

lOSl 

iOS2 

lOSJ 

10S4 

1085 

10S6 

1087 

loss 

1089 
1090 

1091 

ic?: 


22 
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.  IF  N2  SWBC 
LINK  TIME  ENTRY  INTO  TIHEP  CHAIN 
or;  ENTRPNCE  R0=0DDRESS  OF  ENTRY  TO 
ENTERED  VIR  JSR  PCCTLNK 
ROUTINE  IS  RE-ENTRRNT 


LINK 


CTLNK 
.  IF  NZ 


ENDC 
IF  2 


ENDC 


CTLR: 


CTLC 
CTLBfl: 


ENDC 
IF  Z 


ENDC 
ENDC 
IF  : 

ENDC 

:tl£: 


CTLZ: 


.  IF  N2  TLOCK 
SLOCK 
nOV  C.  SLOK,-(SP) 
MOU  ;»PTLC.  SLOK 


AND  SET 


SAVE  SOFTURRE 
IT  ACTIVE 


LOCK  LEVEL 


SLOCK 
MOVB 
MOVB 

ENDC 
TST 
BEQ 

nov 
nov 

MOV 
SUB 
MOV 

nov 

SUB 
CMP 
BHI 
MOV 
MOV 
BNE 
MOV 
CLR 
.  IF 
.  IF 
MOV 
MOV 
MOV 
JhP 


il»C  STRT,  -(SP) 
<t340.i«C.  STAT 


SAVE  PS  PRIORITY 
SET  PRIORITY  LEVEL 


TO  7 


CTBS 
CTLZ 
«CTB 
CTIC 

R3.R 

CT9S 

(R2) 

P3.P 

R5,R 

CTLE 

P2.P 

4(P2 

CTLR 

R0.4 

4iP0 

2  TLOCK 

Z  SLOCK 

SP)+C. 

SP. -(SP 

;C.  STRT 

.  SPS 


S-4,R 
,R3  ; 
,R1  ; 
I 

,R2  ; 
,R5  , 
5  ; 
1 

4  ; 
),R2 

'R4) 


IS  CNTP  EQUAL  0 

YES-  GO  LINK  ONLY  ENTRY 

4      , SET  UP  LINK  -  IN  ADDP  POINTER 

GET  TIMER  VALUE 

GET  ENTRY  TICK  CNTR 

GET  ENTRY  TO  LINK  PEL  CLOCK  VALUE 

SET  TO  FIRST  LINK  ADDR 

GET  FIRST  LINK  TICK  CNTR 

GET  LINK  PEL  CLOCK  VALUE 

IS  LINK  GREATER  THAN  ENTRY  TO  LINK 

GO  LINK  -  YES 

SAVE  ?PEV  LINK  ADDR 

;GET  NEXT  LINK  ADDP 
NOT  CHAIN  END-  LOOK  AT  NEXT 

;LINK  IN  AT  CHAIN  END 


SLOK        ; RESTORE  SOFTWARE  LOCK 
)    ;MRKE  fl  FAKE  INTERRUPT 
.2(SP,'      INSTEAD  OF  SUBROUTINE 
;ANO  CALL  PRIORITY  SCHEDULER 


FATE 


RETURN 


SLO^'K 
MOVB 
RTS 


TLOCK 
RTS 


nov 

MOV 
BR 

nov 

BP 
.  ENDC 


fSPi 
PC 


PC 


ii»C.  STAT 
•RETURN 


; RESTORE 
TO  USER 


USER  PRIORITY 


;EXIT  TO  CALlEP 


4iP4  V-  4';P0 

R0.4(P4) 

CTLBfl 

RO.CTBS 

CTLC 


GET  NXT  ADDP  FROM  PP. 
LINK  NEW  ENTRY  TO  PRL^i 


PUT  IN  NEW 


,CP322  SO  IP   ^iERSlON   2-22 
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1 


I09ii 
1095 
I0?fe 
1097 

1098 
1099 

noo 
noi 
no2 

r.oz 

1104 
M05 
llOfe 
HO" 
llOS 
11C9 
1110 
1111 
1112 
1113 
1114 
1115 
111b 
111? 

ins 

1119 
1120 
1121 
1122 
1123 
1124 
1126 
1126 
1127 
1128 
1129 
1130 
1131 

iiz: 

11  33 
1134 
1135 
113b 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
11^8 
1149 
115C 


000526  00456?  1?"342 


00G£3:   113^46   17"7"6 

00053b   11:^37   000340   i:^:^77b 


000544  012700  000704' 
000550  026660  000014  000006 
000556  001004 


000560  005060  000004 
00C56U  005060  000006 


.  IF  NZ  TiriEDQ 

;THIS  SUBROUTINE  PERFORMS  THE  flCTUfiL  DEQUEUE   FOR   THE   T 

; QUEUE  ENTRIES. 

.ENTRY  CONDITIONS  «RE 

;R0=  LINE   NUMBER  fiS    IN  TIMER   QUEUE   ENTRY 

;R4=  UNUSED 

;R5=    PARAMETER  WORD,  PS  IN  TIMER  QUEUE  ENTRY 


MER 


.  GLOBL 
CTDEL 
.  IF  N2 
.  IF  NZ 


ENDC 
IF   Z 


CTDEL 
JSR  R5,C.  SREG 

TLOCK, 

SLCCK 
nOV   C.  SLOK,-(SP 
MOV   KRTUC.  SLOK 


Sfii/E  RPGISTEPS 


;SflVE   SOFTWARE   LOCK    STATE 
RND  SET  LEVEL   SUSY 


ENDC 

ENDC 


SLOCK 

.  IF    OF    LSI  11 
MFPS  -'SP) 

MTPS  »340 

.  IFF 

novB  i-^c.  STfiT,-isr  > 

hO^'B  »340.i)«C  STAT 

.  ENu: 


CTDELl 


CTnEL2. 


CTDELl 

;  tt 

;  tt 
;*« 

itt 

;«» 


** 


SAVt  PRIORITY  SCHELJLER 
AND  LOCKOUT  INTERRUPTS 


SA-JE 
AND 


PRIORITY  LEVEL 
LOCKOUT  INTERRUPTS 


.IF  NZ  SW6C 

nOV  «CTBS-4-R3 

MOV  CTBS.Rl 

BEQ  CTDRET 

CMP  2(SP),2(P1) 

BNE  CTDEL2 

CMP  14fSP).6(Rl) 

BNF  CTDEL2 

MOV  R1,R0 

MOV  4 (PI). PI 

JSR  PC.CTPVflC 

MOV  P1,4(R3^ 

BR  CTDELl 

MOV  R1,R3 

MOV  4(Rl.t.?l 

BR  CTDELl 

.  ENDC 

.  IF  Z  SWBC 

«CTLB.PO 

14>SP  •.6^PC.i 

CTDEL2 

Z  SWB-5 

RO,C.  CUM 


GET  BEGINNING  OF 
NONE  PRESENT 
IS  THIS  THE  Lir<E 
NO 

; IS  THIS 
NO 


CHAIN 
NUMBER  , 
THE  FARAMETEP  WORD 


PLPfE  LINK  IN  ""ACRNCY  QUEUE 


AND  CONTINUE 
SAVE  LAST 


ENTRi 


SEARCH 
LOCAT 


ON 


AND  SEARCH 


MOV 

CMP 

BNE 

.  IF 

MOV 

MOV 

.  CMKT 

MOV 

JSR 

.  ENDC 

.  IF  NZ  SW6-5 

CLP  4(R0) 

CLR  6(P0) 

.  ENDC 


R0,-fSP^ 
»C. CUID 
(SF)+,R0 
PCCTPVAC 


; SEARCH  lNTIPE  TABLE  FROM  BEGINNING 

,,;THEN  COMPARE  PARAMETER  WORD 

;,:NOT  SPECIFIED  ENTRY 

;RT-11 

:;; TIMER  ID 

;SAVE  RO 

;CALL  RT-11 

, RESTORE  RO 

, RETURN  NODE 


;NOT   RT-11 
;; :FLAG  ENTkr 
;;;DITTO 


S  NODE  ADDRESS 

CANCEL  TIMER 
TC  POOL 

DELE "ED 


J 


SCP322  SCIP  VERSION  3-22 


D  m 
nfiCRO  nnoH    oe-DEC-??  08: 28    ppge  21-1 


nsi  000S70 

062700 

000010 

ut,:  000F714 

020027 

001204' 

lis:  OOQfeOO 

103r'63 

116^4 

UBS  000602 

llSb 

ns7 

1158 

ns9 

r.bO 

llbl 

nb2 

llb3 

llb^ 

w^s 

Mbb 

nb7 

iiGS  ooobo: 

112637 

177776 

Mb? 

1170  300606 

004567 

177304 

11 n  oooti: 

1:00:514 

1172  000bli4 

occ:c:' 

1173 

11714 

1175 

1176 

1177 

117S 

;;;THEN  iUHP  TO  NEXT 
;;; IS  THIS  END  OF  LINKS 
;;;N0.  LOOK  FOR  n^:£  DELETIONS 


CTDEL2:  ADD  «10,R0 

CMP  RO^ICTEB 

BLO  CTOELl 

.  ENDC 
CTDRET  .  IF  NZ  TLOCK 
ir  NZ  SLOCK 

nOV  <SP)^.C.  SLOK 

JSRR5.C.SRES   ;RtSTORE  REGISTERS 

hOV  «)SP,-(SP)   ;fiND  STPRT  aU'LDING  F^KE  PTI 

CL2N    ,SHOW  NO  ERRORS  ON  RETURN 

MOV  al»C.  STflT,2(SP)  l 

JMP  L  SPS      ;RND  CfiLL  PPlORlT^  SCHEDULEP  TO  ENTER  RTNS 


ENDC 
IF  2 


F  NECC 


SLOCK 

IF  DF  LSIll 
MIPS    fSP'* 

IFF 
MOVB  (SP  "►.4l»C  STflT 
.ENDC 

JSP  PB-CSPES   .QND  PESTOPE  REGISTERS 
CL7N    ;  Ml^D  FLAG  «S  OK 
RTS  PC 


;rtLLOW  INTERRUPTS 
;flllOl'  INTERRUPTS 


.  ENDC 
ENDC 
.  IF  :  TLOCK 
FTS 
.  ENDC 
,  ENDC 


PC 


PETIJPN   TO   CfiLLEP 


SCP322  SClP  UERSION  3-22 


riRCRO  nnO'*  Ob-DEC-77  08:28  PfiGE  22 


USD 

1181  OOOblb 

1182 

ilS3 

11314 

IISS 

llSb 

1187 

IISS 

118?  OOOblfe 

1190 

1191 

1192 

1193  OOOblb 

113746 

177776 

119H  ooofe:: 

112737 

000340 

1195 

11 9b  000b30 

016700 

000046 

1197  000634 

001402 

1198  n0Ub3b 

011067 

000G40 

1199  OOObH: 

1200 

1201 

1202  0006^: 

11263" 

r77"6 

1203 

120H  OOOblb 

000207 

1206 

1206 

1207 

1208 

1209 

1210  000650 

1211 

1212 

1213 

12m  0006SG 

113746 

177776 

1215  000654 

112737 

000340 

1216 

1217  000662 

0:6710 

000014 

121 S  00Cb6C 

010067 

000010 

1219 

1220 

1221 

1222  OOOb.^2 

11:637 

1777^6 

1223 

1224  000676 

000207 

177770 


177776 


.  IF  OF  psxn 

.PSECT  ISR 

.  ENOC 
;GET  TinER  BUFFER  UflCfiNCY  ROUTINE 
;ENTERED  Vlfl  JSR  PC.CTGUPC 
; RETURN  TO  USER  UITH  UPCfiNT  ENTRY  flODR  IN  RO 
;  IF  NO  ENTRY  flVfllLRBLE.  RETURN  TO  USER  UITH  RO  Er^UfiL  G 
;R0UTINE  IS  RE-ENTRANT 


CTGVflC: 


.  IF   OF   LSItl 
riFPS         -(SP) 


CTGVEX: 


MTPS 
.  IFF 
MOUB 

novB 

.  ENDC 

MOV 
CEQ 

riou 


11340 


;Sfll<r   PS  PRIORITY 
;SET  r^RIORlTY   TO  7 


olK.  STflT,-(SP) 
»340,a»C.  STRT 


;SflVE  PS  PRIORITY 
,SET  PRIORITY  TO  7 


CTSV^RO  ;NEXT  BUFFER  ODOR  INTO  RO 

CTGVEX  ; YES-NO  ENTRY  flVPILflBLE 

(POKCTSV       ;nO»'  NEXT  LINK  flDDP  TO  l/flC  STOPT 
.  IF  DF  LSlll 
MTPS    (SP)> 
.  IFF 

MOUB    (SPi+.i«C  STPT 
.  ENDC 
RTS     PC      ;BOCK  TO  USER 


; RESTORE  PRIORITY 
RESTORE  PPIOPITY 


; PEL  INK  ENTRY  TO  VflCONCY  CHfilN 
;FNTEPEO  ^MP  j-p  PC.CTPUPC.  ENTRY  PDDP 
;R0UTINE  IS  PE-ENTRPNT 


N  PO 


SPVE  PS  PPIOFITY 
SET  PRIOPITr'  TO  7 

SP'/E  PS  PPIOPITY 
SET  PPIOPITY  TO  7 


CTPVRC:  .  IF  DF  LSlll 

MFPS  -'SP) 

MTPS  «340 
.  IFF 

MOl'B  ii»C.  STRT, -iSP) 

MOVB  «340.£lK.  STPT 
.  ENDC 

MOV  CTSV^iFO    ;LINK  OLD  FIRST  TO  NEU  LINK 
MOV  RO.CTSW     ;«ND  PLPCE  NEU  PT  FIRST  OF  CHPIN 

.  IF  DF  LSlll 

MTPS  (SP  '■►  ;PESET  PS  PPIOPITY 

.  IFF 

MOVB  (SF'+il»C  STPT   ;  RESET  PS  PR  lOR  i  TY 
.  ENDC 

PTS  PC      ; RETURN  TO  JSER 


SCPI22  SCIP  VER 

SIGN  3-2 

I22b 

1 '?  *''» 

1  ••••  1 

1228 

1229 

1230 

1231 

1232 

1233 

123^ 

123S 

I23b 

1237 

1238 

1219  000700 

000000 

12H0  000702 

000000 

I2m  00070H 

000000 

l2^2 

001204' 

12^3  001201* 

12^W 

12^S 

12146 

121*7  001204 

12HS 

12H9  OOICOH 

000000 

1250 

12B1 

1262 

1253 

125H 

1255 

1256 

1257 

1258 

1259 

1260  001206 

002216' 

1261  001210 

OOUOOO 

1262  001212 

000000 

1263  001214 

000000 

1264 

001216' 

1265 

1266 

1267 

126S 

1269 

1270 

1271 

1272  001216 

002216' 

1273 

1274  002216 

1275 

1276 

1277 

1278 

1279  000522 

1280 

1281 

1282 

000563 

22 


MACRO  ni 104  Ofe-OEC-77  08:  28  PfiGE  23 

.SYSTEM  TIMER  UQLUES.  M9STER  TIMER,  CHAIN  POINTERS.  ETC 
.  iF  2  SWB-2 

GLOBL  CTIKB.CTMfiXB.CTtC.CTBS.CTSV.CTLB.CTEB 
.  GLOBL  C  STfiX,  C.  STRK.C.  STRT.C.  STflB.C  STflP.C  STflE 

.  IFF 

» 

.  IF  N2  SUBC 

CTIKB    UOPD  0  .INTERRUPT  COUNTER  FOR  QUEUE  SERVICE  ROUTINE 
CTMfiXB;   UOPD  0        ;«l*l  MAXIMUM  CTIKB  OUERPUN  UfiLUE 

CTIC:    WORD  0  .MASTER  TIMER  COUNTER 

.  ENDC 

CTBS     WORD  0  .START  OF  ACTIVE  LINK  CHAIN 

CTSV     WORD  0      -l/ACANCY  START  ADDR 

CTLB     WORD  0      ; FIRST  BUFFER  WORD 

.  =.  *CUTB>CUTB+CUTB>CUTB>CUTB+CUTB+CUTB+CUTB-2  .ALLOCATES  BUFFER 
CTEB: 


.  IF  2  "^WBC 

.  IF  NZ  SWB-5 
PSECT  ISP 

.  GLOBL   TASKAD 
TPSI-RD:  .  WORD  0 

.  ENDC 

.  IF  Z   SWB-5 

.  GLOBL   TASKAD 
TASKAD.  .  WORD   0 
ENDC 

.  ENDC 
; SYSTEM  LINE  TABLE  START  ADDRESS  POINTER  TABLE 
;SIZE  OF  TABLE  DETERMINED  BY  USER  AT  ASSEMBLY  TIME 
;TABLE  SET  WITH  POINTERS  AT  SYSTEM  INI T I AL I ZAT I  On  TinE 


NOT  PT-11 

.-CURRENT  TASK  NODE 

; TASK'S  IMPURE  AREA 


C.  STAE 
C.  STAK 
C.  STRT 
C.  STAB 


WORD  C.STAP  .END  OF  AVAILABLE  LINE  TABLE  SPACE 

WORD  0  ;NEXT  AVAILABLE  LT  f^-^CE 
.WORD  0  :  "FIRST  ENTRY"  FLAG  FOP  INiT  SEP'-MCE 
.WORD  0  ;LINE  TABLE  ADDRESS  TABLE 


.  =  +C.  USNL-^C.  USNL-2 

.IF  NZ  C.  USRT 

; SYSTEM  LINE  TABLES 

;SIZE  OF  AREA  RESERVED  DETERMINED  BY  USER  AT  P-EMBLY  TIME 

;TABLES  INITIALIZED  FOP  ASSIGNED  DEnlCES  hT  SV  EM  INITIALIZATION  TIME 


C.  STAR: 
.  ENDC 
C.  STAR: 


.  GLOBL  C.  STAR 
=  .  +C.  USRT4-C.  USRT 


ENDC 

IF  Z  SWBC 
IF  NZ  SWB-5 
PSECT  XXX 


.NOT  PT-11 


;RSX-11D  DIRECTIVE  BLOCKS 
ASTEX::  563 


;AST  EX'T  DPS  '.  BtTE  US  .  P 


SCP322  Si.  IP   VERSION  3-22 


G  tH 
MRCRO  MUO^     Ob-DEC-77  08;  28     PRGE  23-1 


12S3 

000433 

1281* 

12SS  000522 

027     005 

1286  000621* 

000000 

1287  00052b 

000000 

1288  000530 

300001 

1289  000532 

000000  ^ 

1290 

1291 

1292 

1293 

12^^ 

129S 

l2?tD 

1  ^Q-* 

1  29S 

1299  000534 

004037  000402 

1  ^'^0 

1301 

1302 

1303 

1304 

1305  000540 

000000 

I  30b  000542 

000000 

1307  000544 

000000 

1308 

1309 

1310 

1311  00054b 

000552' 

1312  000550 

000652' 

1313 

1314 

1315  000552 

nncnon 

131b 

000C40 

131"- 

000^42' 

131S  000:'4  2 

ooiiooo  ncoooo 

000^50 

000000 

000000 


CnKTMs      433 

c.  nKTri: 

c    riKUN; 

c.  riKflS: 


BYTE  23. 
UORD  0 
UORD  0 
WORD  1 
UORD  0 
ENOC 


.CRNCEL  MRRK  TIME   DPB    (BYTE   27  , 1 ) 
;riflRK  TiriE  DPB 

junits  of  time 

;UNITS  s  TICKS 

;TinER  AST  ENTRY  POINT 


IF  2  SUB-5 
,CPNCEL  nORK  TIME  PRRfiMETEP  BLOCK 
C.  CMKT:  .BYTE   0,23 
C  CUID:  .  WORD   0 

. WORD   0 

.  ENDC 


RT-11 


;0P  CODE 
. ID  WORD 
.NO  TIME  REQUIRED 


CANCEL  MARK  TIME 


1319 


JUNK:    JSR  RO,i)»CTOCK         , FIRST  WORD  OF  TiMEP  LINK 
.  ENDC 
IF  N2  C.  USFY 
;USER  INTERFACE  BUFFER  PND  ITS  PELfiTED  ENTRY  FTPS 
,PIND  FLOGS. 

C  SHI:   .  WORD  0  ;Ol/ERFLOW  INDICRTOP 

C  SBCY:  .  WORD  0  -ENTRY  COUNTER 

C.  SLEY:  .WORD  0  ,LOST  ENTRY  COUNTER 

I  F  N^  U  I  B*" RH 

C.  SBWY   WORD  0  ; TEMPORflPY  FOP  SERRCH  MODE 

.  ENDC 

C.  SBPY   .  WORD  C.  SBSY    ;ENTPY  INSEPTION  POINTER 

C.  SFEY;  .  WORD  C.  SBSY    ; ENTRY  PEMOVRL  PC INTEP 

•THIS  IS  THE  UIB 
C  SBSY:  .  WORD  0 
X=      C.  USFY^C.  USFY 
=  .  +.ViV,+»,y-i2 

C.  SBEY   WORD  OOCO 
.  ENDC 


J 


^CP322  SCIP   VERSION   3-22 


nfiCRO  nuOH     Ofe-DEC-77  08:  28 


H 

poGe 


2^ 


1321 

1322 

1323 

132H 

132S 

132b 

17"-' 

1328  OCO/52 

005067 

001212* 

1329 

1330 

1331 

177? 

I  SJl, 

1333 

133H 

133B 

133b 

1  7  7"* 

\  ^2>' 

133S  OOOI-Sb 

1 13746 

177776 

1339  000762 

112737 

000340 

13^40 

I3m  000770 

C12705 

000710' 

13142  000^7M 

005025 

13^3  00077b 

005025 

13HH  001000 

062^05 

000004 

13145  001004 

020527 

001210' 

1346  001010 

103:"'l 

1347 

1348 

1349 

1350  001012 

112637 

(  -^  •»  -^  ^  • 

1351 

1352 

1353  001016 

012746 

000433 

1354  001022 

104377 

1355  001024 

10377^ 

1356 

1357 

135S 

1359 

1360 

1361 

1362 

136J>  001026 

012702 

000030 

1364  001032 

012705 

000704' 

1365  001036 

010567 

000702' 

1366  001042 

005067 

000700' 

1367 

1368 

1369 

1370 

1371  001046 

010504 

1372  001050 

062705 

000010 

1373  001054 

010524 

1374  001066 

005024 

1375  001060 

005024 

1376  001062 

005024 

1377  001064 

INlTlfiLlZflTlON  SUBROUTINE  -  CITB 

THIS  SUBROUTINE  INITIALIZES  «LL  SCIP  PPPPMETERS 

FOR  RESTART  CRPRBILITY,   IT  THE  CALLS  'TROUGH  THE  DEVICE 

TYPE  MATRIX  SMITCH  ANY  ISRS  WHICH  INCLUDE  RESTART 

ROUTINES. 

Rl  AND  R3  MUST  BE  PRESERVED  OVER  THIS  SUBROUTINE  l»ll 


CITB:    CLP  C  STRT 
. IF  N2  CUTB 


;FLAG  RESTART  IN  PROGRESS 


F  TIMER  Q'J£UE  PRESENT.  REINITIALIZE  ALL  ENTRIES 


17777b 


CITRA; 


CtTfl: 


SWBC 


LSlll 
-  ( SP  I 
»340 

al»C.  STAT 
«34Q,(i)»i:. 


»':TLB+4,P5 
iP5)  + 
<P5)  + 
»4  P5 

P5-1tCTEB*4 
CITRA 
LSlll 

lSP^4- 

fSP)  +  .4)»':  STflr 

SWB-5 
»CMKTn. -tSP  ' 
377 


.  IF  Z 
.  IF  DF 
MFPS 
MTPS 
IFF 

nouB 
novB 

ENDC 
MOV 
CLP 
CLP 
ADD 
CMP 
BLO 
.  IF  DF 
MTPS 
,  IFF 
MOVB 

ENDC 

IF  N2 
MOV 
EMT 
BCS 

ENDC 
.  IF  : 
MOV 
CLR 
.  CMKT 
.  ENDC 
.  ENDC 

MOV  »CUTB.P2 
MOV  SCTLB.P5 
MOV  R5.CTSV 
CLR  CTBS 
.  IF  NZ  SW3C 
CLR  CTIC 
CLP  CTIKB 
.  ENDC 
MOV  R5,R4 
ADD  «10..  R5 
MOV  P5. (P4)+ 
(R4)4- 
^P4H 
iP4)  + 

R2.ClTfl 


I  SP  ) 
,TRT 


.SAVE  PS 
;.;LOCK  OUT 

;SAVE  PS 
w -  AND  LOCK 


INTERPUP'S 

OUT  INTEPPUPTS 

N  +  4  BYTES 


.;;GET  ADDR  OF  TIMER  CHA 
;;;FLAG  ENTRY  DEllTED 


, ,;P0INT  TO  NEXT  ENTRY  +  4 
w;HAVE  UE  DELETED  THEM  ALL"? 
; . ;  NO 

;;;YES  ALLOW  INTERRUPTS 

; ;; YES.  ALLOU  IMTPRUPTS 


NOT  PT-11 
DPB  FOR  CANCEL 
CPLL  PSX-llD/M 
BLEW  IT! ! ! 


MARK  TIME 


;WB-5 
»C.  CMKT. 
C.  CUID 


RO 


PT-11 

MO^/E  PNTP  TO  PAPnS 
CANCEL  hLL  timers 
CALL  PT-11 


L 1ST  INTO  RO 


CLR 
CLR 
CLR 

SOB 


GET  NUMBER  OF  ENTRIES 

AND  START  ADDRESS 

INITIALIZE  VACANCY  CHAIN  ADDRESS 

AND  ACTIVE  CHAIN  POINTER 

THEN  MASTER  TICK  COUNTER 
AND  INTERRUPT  COUNTER 

GET  ENTRY  ADDRESS 

THEN  NEXT  LINK  ADDRESS 

FIRST  WORD  IS  POINTER  TO  NEXT  PVfllL 

THEN  CLEAR  ALL  WORDS  OF  ENTRY 


;LOOP  UNTIL  DONE 


L  I  NK 


.CP3::  SCIP   ^iERSlON  3-22 


nfiCRO  ^^0^     Ob-D£C-77  08:  28     PfiGE 


m 

2^-l 


373 

330 
3S\ 
3S2 
383 
12^ 
386 
386 
3S7 

:3S 

390 

:?\ 

392 
■rq? 

39H 
39S 
39b 
397 
39S 
399 
^00 
401 
^02 
403 

406 
406 

U07 

140S 

H09 

mo 
mi 
m2 

1413 

Ulb 

m7 

uiS 

m? 
"4:1 

422 
423 
424 
425 
426 
427 
428 
429 
4  30 
431 
4  32 
433 
434 


001Q70  006064  177770 


001074 
001100 
001104 
001110 
001114 
001120 
001124 
00112b 
001132 


001134 
001140 


00114b 
001 160 
001 1B4 


001166 
001162 
001164 
001170 
001172 
001176 
001202 
001204 
001206 


012705 
010567 
010567 
005067 
C05067 
005067 
005025 
02052:- 
101774 


012705 
012767 


00b025 
020527 
103774 


016704 
006204 
012702 
GG5012 
012700 
004767 
005212 
020412 
001373 


F  PP 


CiTC: 


000552* 

1774H2 
177440 
177424 

I  <  I   *♦  i... 

177420 
000742' 


CLERP 
IF  N2 


CI  TO; 


ENDC 


THfiTS  ALL  CLEfiR  LAST  LINK  POINTER 


EVEL  SCHEDULING  PRESENT,  CLEAR  CLOCK 


GET  COUNT  OF  PROGRAMS  TC  SCHEDULE 

GET  BEGINNING  ADDRESS 

SET  COUNTERS  BACK  TO  OPiriGlMAL  ''ALUE 

AND  INCREriENT  TO  NEXT 
;NT  COUNTER 
;CONTINUE 


BUFFER 

GET  BUFFER  ADDRESS 

AND  RESET  INSERTION  POINTER 

AND  REMOVAL  POINTER 

THEN  CLEAR  OVERFLOW  POINTER 

AND  ENTRY  COUNTER 

AND  LOST  ENTRY  COUNTER 

THEN  CLEAR  BUFFER 

IS  THAT  ALL 

NO,  CONTINUE 


CLR 

-10(R4) 

.  ENDC 

ORITY  LEVEL  SCH 

.  IF 

N2  CUTNPS 

CLR 

CTIKA 

MOV 

•CUTNPS. R2 

MOjV 

ICTPA0,R6 

nov 

2(R6),dR6 

ADD 

mo  R5 

DEC 

R2  ;DECRE 

BME 

CITC 

.  ENDC 

Uie  POINTERS  AN 

C.  USFY 

MOV 

«C.  SBSY,R5 

MOV 

R5.C.  SBPY 

MOV 

R5.C  SFEY 

CLP 

C.  SHI 

CLR 

C  SBCY 

CLP 

C  SLEY 

CLP 

(P£  i^ 

CMP 

P5.«C.  SBEY 

BLO: 

I   CITD 

001214' 
001 21 b' 


001210 


;CLEflP  LINE  TABLE  SPACE  AND  LINE  TABLE  POINTERS 

MOV  «C.STAB-P5  -GET  LINE  TABLE  ADDPESS  SPACE 

.  IF  NZ  C,  USPT 

MOV  8C.  STAP.C.  STAK      ;  AND  SET  PLL  OF  SPACE  R\/AILABLE 


CITE: 


oo:2ib" 


CITI 


NOW  RE 


.  ENDC 

.  IF  Z  C.  USPT 

CLP  C.  STAK 

.  ENDC 

CLP  (R5)+ 

CMP  P5.«C.  SThP 

BLO  CiTt 

.  IF  Z  ^UB-2 

MOV  C.  STAX,P4 

BEQ  CITI 

SUB     nBUFHDP^P4 

BUFFER  RETURN 
CLP  C.  STAX 
.  ENDC 


, FORCE  TABLE  ADDRESS  ZERO 

AND  CLEAR  ALL  OF  SPACE 
IS  THOT  RLL 
NO.  CONTINUE 

;IS  THERE  A  BIG  BUFFER  OUTSTANDING 

;N0<  THATS  ALL 

;M0VE  BUFFER  BACK  TO  ACTUAL  BEGINNING 

;THE  SAVED  EXACT  COUNT 

,YES<  RETURN  THE  BUFFER 

;THEM  FORCE  ADDPES  ZEPO 


000000" 

001212' 

000004 
000336' 


NIT 
MOV 
ASR 
MOV 
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000526 

P 

*lQ-993 

823-12S: 

C.  SRP 

000000 

R 

87-296 

7-311 

24-1426 

C.  SRRJ 

000406 

R 

15-726 

815-739 

0.  SRRL 

z 

000010 

7-296 

87-311 

C.  SOPP 

000336 

PG 

b-224 

14-69S 

sis-i-r 

Ib- 

£15           24-1431 

C.  SRPR 

001216 

PG 

6-224 

824-1452 

C.  SflRT 

000350 

R 

815-^20 

i«^-r^c, 

C.  SRT 

000030 

P 

8S-349 

S-:5b 

0.  SRTL 

z 

000004 

S-349 

8S-35b 

1242         23-1242         23-1242 
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SYMBOL 

CROSS  REFERENCE 

CREF 

SYMBOL 

l/RLUE 

REFERENCES 

C    SflTN 

0G0^G2 

R 

M5-737 

C    SPTP 

000366 

RG 

6-224 

14-693 

815-732 

16-811 

C   SBCY 

Q00S42 

R 

13-539 

*13-548 

14-633 

»14-639 

823-1306 

«24-1398 

C.  SBEY 

U007H2 

R 

13-545 

14-668 

823-1318 

24-1401 

C   SBGY 

000072 

R 

814-658 

14-665 

C  SBPr 

G005H6 

P 

13-538 

*13-547 

*1 3-590 

823-1311 

»24-1395 

C    SBSY 

0005B2 

P 

13-590 

14-670 

23-1311 

23-1312 

823-1315 

24-1394 

C   SECfi 

001216 

RG 

6-227 

»24-1454 

C   SECB 

001216 

RG 

6-227 

»24-1455 

•:    SECD 

0012tu 

RG 

6-227 

824-1456 

C    SECE 

001216 

RG 

6-227 

824-1457 

''.  SECF 

001216 

PG 

6-227 

824-1458 

■:    SECG 

001216 

RG 

6-227 

824-1459 

■:    SE'.H 

001216 

PG 

b-227 

824-1460 

C    SFCY 

0C013H 

P 

14-634 

814-674 

'.    SFEY 

OOOBSO 

P 

14-635 

il4-652 

823-1312 

*24-1396 

'.    SFGY 

0C32SH 

P 

«13-54S 

13-591 

C    SFJT 

000036 

R 

»S-364 

':.  SFLY 

000132 

P 

14-669 

814-671 

C.  SFQY 

000120 

P 

14-651 

814-668 

C    SFVY 

fJ0030H 

P 

13-546 

813-590 

C,  SFY 

000172 

RG 

6-224 

813-524 

19-=>15 

C.  SGRY 

000311* 

P 

13-526 

813-592 

C.  SGBY 

000322 

R 

13-540 

813-594 

C    SGET 

000000 

PG 

14-631 

814-633 

C    SGEY 

C  '026C 

P 

;i3-549 

13-596 

C.  SGMY 

000076 

P 

14-63" 

814-662 

C    SHI 

OOOSHO 

P 

13-525 

113-594 

14-636 

*14-b3S 

*14-bb2 

*14-bb3 

823-1305 

*24-1397 

C    SLEY 

000544 

R 

I13-592 

*13-595 

823-1307 

*24-l39^ 

C    SLTL 

000042 

R 

n£-ZSO 

lb-807 

C    SMfiy 

=    070J00 

ti^-? 

C.  SPS 

00U072 

RG 

6-224 

810-43C 

C.  SPTR 

000166 

R 

14-689 

814-697 

C.  SPUT 

000142 

RG 

14-6S4 

8i4-6S5 

C.  SREG 

000074 

PG 

6-225 

811-443 

12-49S 

15-718 

15-733 

1^-SS2 

19-977 

21-1103 

C.  SRES 

000116 

PG 

6-225 

811-459 

12-511 

15-744 

19-950 

19-1020 

19-1030 

21-1170 

C.  STAB 

001214 

RG 

b    /-^b 

12-503 

14-bS7 

*16-S01 

♦lb-S24 

19-920 

823-1263 

24-1406 

C.  STfiE 

001206 

R 

;23-1260 

C    STPIK 

001210 

P 

16-7-7 

*lb-Sn9 

823-1261 

*24-140S 

C.  STOP 

00221b 

P 

23-1260 

823-1274 

24-1414 

C.  STRR 

001216 

RG 

23-1271 

823-1272 

24-140S 

C    STRT 

=    177776 

i;5-lS6 

13-535 

13-536 

13-552 

14-644 

l'^-b45 

14-656 

15-742 

21-1114 

21-ins 

21-116S 

22-1193 

22-1194 

22-1202 

22-1214 

22-1215 

22-1222 

24-1338 

24-1339 

24-1350 

C.  STIR 

000212 

p 

16-767 

816-773 

C.  STIB 

000224 

R 

lb-774 

816-^76 

C.  STIC 

000236 

R 

16-77S 

nlb-SGl 

C.  STID 

000332 

R 

S16-S20 

C.  STIF 

000336 

P 

16-799 

816-S23 

C.  STIG 

000342 

R 

16-S21 

81b-S25 

C.  STIH 

000330 

P 

nlb-S19 

C.  STI  1 

000336 

R 

16-S12 

16-Slb 

816-S24 
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S^nBOL  'PLUE 

C  STlL  00033H  R 

•:  STiN  00C176  RG 

C  STPT  001212  R 

C.  TLTL  =  000000 

C.  USFY  =  000020 
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C  USNL 

r 

OOOOOl 

C.  U3P 

s 

000300 

C  USRT 
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OOOHOO 

DPfPES 

z 

OOOOOl 

D*%BUG 

z 

1776m 

r^SHU 

z 

000002 

D^Si'^G 

z 

000000 

C-iSlSK 

z 

000000 

DS*L  1  1 

z 

OOOOOl 

Dssnii 

z 

OOOOOl 

D%^SHF 

z 

000000 

C"i%vr<': 

z 

000000 

DSSYNM 

z 

000000 

EMTVEC 

z 

ocoooo 

ESSDVC 

z 

000000 

E5SNSI 

z 

oocooo 

ESiPER 

z 

000000 

ESSXPR 

z 

000000 

FPKELU 

z 

OOOOOl 

FSILPP 

z 

ttutt 

FSSLVL 

z 

OOOOCl 

G5STPP 

z 

000000 

CSSTTK 

~ 

000000 

HRLT 

z 

OOCJOO 

iSRflPX 

z 

000003 

ISSRPR 

z 

000000 

I5SRDN 

z 

000000 

JUNK 

000534 

K%%CNT 

z 

172542 

KS^CSR 

z 

172540 

K§%LOC 

z 

000024 

►  5STFS 

z 

000764 

LD%DB 

z 

OOCOOO 

LDSDK 

- 

OOOOGO 

LD%:s 

z 

000000 

LDSDT 

= 

000000 

LD5LP 

— 

000000 

LD^nn 

= 

000000 

LD%FP 

r 

ocoooo 

LD^PR 

= 

oooooc 

LSIll 

r 

tt*ttt 

L5S0SG 
LS'iDR" 
L^SPl 1 
LSSSIl 


=  300000 

=  000000 

=  OOOOOl 

=  ttutt 


REFERENCES 
1116-822 

16-762 

16-773 

8-380 
>2-ll 

24-1393 
«2-16 

6-236 
•  2-17 
»2-6 


PPGE  4 
CREF 


C  16 


-8S 

-12b 

-50 

-33 

-125 

-127 

-39 

-34 

-3C 

:-lO 

-90 

-91 

-5S 

-23 

-373 

-31 

-54 

-55 

-4 

-19 

-bl 

-Zh 

9-990 

-102 

-lOi 

-104 

-103 

-106 

-109 

-112 

-114 

-116 

-119 

-121 

- 1  -"-> 

:-53i 

2-1210 

-62 

-51 

-lis 
-:ii 


•16-763 
«16-817 
«8-389 
13-524 

23-1264 

23-1266 
7-327 


•23-1262 

13-530 
23-1264 

23-1272 
7-320 


I2H-1328 
t:-539 


23-1272 
7-341 


24-1428 
13-569 

^4-1407 


13-589 


2H-imy 


23-1301 


23-1316 


2J-13U 


6-243 
1-203 


i:-47-' 


12-450 


1?-''91 


n:3-\299 


i:-54? 

::-i:i9 


14-640 

24-1324 


14-b5: 
24-1347 


15- 


'39 


21-1110         21-1165 


22-1189 
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SYMBOL 
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VALUE 

REFERENCES 

L%snp 

z 

000000 

•1-117 

MS%CPB 

z 

00012H 

•1-135 

MSSCP* 

z 

000000 

•1-131 

M%%EXT 

* 

000000 

•  1-99 

msFcs 

r 

000000 

•  1-30 

MSSnGE 

s 

000000 

•  1-37 

Mssnup 

: 

000000 

•  1-43 

MSSOVP 

« 

000000 

•1-130 

r^op 

m 

0002^0 

•  3-5 

•5-197 

NSsLDU 

Z 

OOOOOl 

•1-129 

M'^ino*^ 

z 

000021 

•  1-60 

nrrs^T 

z 

000000 

•6-269 

PLF 

3 

000000 

•  2-26 

p't%D70 

r 

000000 

•1-100 

•1-105 

F^SGMv 

z 

000000 

•  1-42 

f^'SStPS 

r 

OGOOOO 

•  1-40 

P t%P  \  \ 

z 

OOOOOl 

•1-123 

F-tSPHS 

- 

000000 

•  1-97 

PS%RFL 

z 

000000 

•  1-53 

PSSRTY 

z 

ooooco 

•  1-93 

PSSRll 

z 

OOOOOl 

•1-124 

PSSSRF 

z 

000000 

•  1-41 

QSIOPT 

z 

C00017 

•  1-59 

PSTS 

z 

tttttt 

ll-4^: 

11-489 

1  •'» 

•     4« 

-506 

RSXll 

z 

OOOOOl 

7-2SS 

13 

-oOO 

i5-702 

15   "48 

19-972 

19-1034 

22-1180 

R%%DER 

z 

000000 

•  1-Sb 

RMEIS 

z 

«»**♦♦ 

1-35S 

RMEXV 

z 

OOOGOO 

•  l-''9 

RWJPO 

z 

000000 

•1-107 

RS5JP1 

z 

OOOOOl 

•1-lOS 

RS$JSl 

z 

OOOOOl 

•1-113 

RMKWC 

: 

000000 

•1-110 

R%4K11 

r 

OOOOOl 

•1-111 

RS4NDC 

= 

000003 

•  1-SO 

RSSNOH 

: 

000226 

•  1-31 

RSSNDl. 

z 

OOOOOl 

•  1-S2 

PSSSND 

z 

000000 

•  1-56 

•  1-94 

PSSMM 

z 

000000 

•1-136 

sec 

= 

000277 

•  3-15 

SEC 

- 

000261 

•  3-11 

5-198 

5- 

199 

SEN 

z 

000270 

•  3-14 

5-19S 

5- 

199 

5-200 

SETRLL 

r 

000277 

•5-198 

SETNZ 

— 

00027^ 

•5-200 

15-73S 

SETN2C 

r 

000276 

•5-199 

SEV 

z 

000262 

•  3-12 

5-198 

SEZ 

z 

00026^ 

•  3-13 

5-198 

5- 

199 

5-200 

SIBEF 

z 

oooo^o 

6-264 

SLOCK 

z 

000000 

•  2-12 

21-1105 

21- 

-1109 

21-1156 

21-1164 

SUB 

z 

000004 

•  2-5 

6-230 

6-^ 

:52 

6-252 

6-252 

b-253 

6-257 

6-268 

6-271 

10-422 

10-431 

11- 

-472 

13-554 

13-558 

13-563 

15-751 

16-763 

16-"79 

16-798 

19-S6S 

19- 

-952 

19-957 

|9_qq2 

19-99S 

19-1003 

19-1017 

19-1024 

jL    j"      1     aU  M    1 

23-1246 

23- 

-1251 

23-127S 

23-1292 

24-n5^2 

24-1357 

24-1416 

24-1436 

sc 


p 

SYMBOL 

SYMBOL 

iWBC 


CPERTEO  BY 
CROSS  PEFERENCE 
WPLUE 

z   OQOOQO 


S^SWPC 

r 

000G3b 

SSSWPR 

: 

000005 

SSSWPG 

- 

000000 

S%%YOF 

s 

tt«t«« 

S%%fSZ 

: 

uZ^OOO 

TOPMRy 

z 

OOOOOl 

TRSKRD 

0012014 

TIMEDQ 

z 

OOOOOl 

TLO'.> 

s 

OOOOOl 

T%%flCP 

r 

000000 

TSSBTU 

: 

000000 

TiSBUr 

z 

GOOOOO 

TiSCCfi 

2 

000000 

T^SCCO 

z 

000000 

T%%CTP 

Z 

GOOOOO 

T%%Ctt 

z 

OOOOOl 

T%%GMC 

z 

GOOOOO 

T%1GTS 

z 

GOOOOO 

T%%J16 

z 

OOOOOl 

T%%KMG 

z 

GOOOOO 

TtiLWC 

z 

GOOOOO 

T%%MRN 

z 

006307 

TMRNE 

z 

OOO'^DO 

T$%RPR 

z 

00  jGO 

TMRST 

z 

000000 

TMRUB 

z 

000000 

TS5SYN 

z 

000000 

TS%TRU 

z 

000000 

T%%VBF 

z 

GOOOOO 

T.  EFLG 

000022 

UIBEF 

z 

OOOOOl 

UIBSPH 

z 

GOOOOO 

U%SMHI 

r 

0000^0 

U5%ML0 

z 

120000 

UiSMPN 

z 

17032U 

H*.%CTP 

z 

000400 

V 

z 

000040 

X"i%DBT 
SPUSCH 
SSIGFL 
%TKTCB 
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-  tttttt 
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REFERENCES 
24-1439 

•6-252 
19-981 
24-1333 

11-83 

•  1-84 
111-39 

l-l 
»l-98 
»2-l8 

13-555 

17-842 
112-13 

•  1-63 

•  1-45 

•  1-65 

•  1-66 

•  1-67 

•  1-6C 
•1-116 

•  1-6? 

•  1-70 
•1-120 

•  1-5: 

•  1-71 

«i-i:s 

•  1-46 

•  1-^: 

•  1-44 

•  1-75 
»t-76 

•  1-77 

•  1-78 
6-25S 
6-261 

•  2-20 


•  1 

•  1 

•  1 

•  1 


133 
134 
132 
137 


•7-29S 
•7-309 
•S-3S1 
•  1-S5 
6-:5S 
b-:5S 

b-:B£ 


24-1442 
10-434 
19-989 
24-1367 


1-438 

8-351 

23-1248 

17-845 

21-1104 

•  1-64 


19-873 

19-1023 


PRGE 
CRCF 


19- 

20- 


c  ts 


883 

1038 


19 
21 


889 
1119 


19-922 
21-1136 


19- 
23- 


933 

1232 


19-942 
23-1245 


19-949 
23-1277 


S-365 
•23-1249 
21-1094 
21-1155 


8-381 

♦24-1437 

21-1175 


•  1-72 

•  1-74 


*l3-b56 
l3-5Bb 
23-130S 


7-299 
•S-351 

s-zs: 


24-1437 


7-301 

8-3b: 

S-3S4 


•7-301 

7-303 

:^-305 

•7-305 

7-307 

S-354 

•S-354 

•S-3bB 

S-Zbb 

8-268 

•S-3S4 

•::-i:ib 

.:-i:i: 

23-1317 

23-1317 

7-309 
•8-368 
23-1317 
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MPlPO   f 

<«riE             REFERENCES 

'.fiLL 

$\-\^^ 

''.OLLP 

•  IM70 

•.POiH 

•  IM78 

DlPS'/S 

«1-I8b 

C'PSTS 

llt-t9^ 

GTiJCBi 

I1-290 

INTLB 

»l-20^ 

IMTSE% 

m-zm 

iras^/S 

»l-256 

nr  p  s 

111-312 

MIPS 

»1-315 

PETUPM 

»i-m9 

ift'iNP 

•1-329 

•CBLB 

111-339 

lOB 

»l-359 

»:^ 

♦-1377 

';USTK% 

»l-3b9 

'-BDr% 

»2-28 

«: 
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OOOOOl 

1 
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s 
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19 
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sr 
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.PREFIX  FILE   FOP   2780  UPP   PUNNING  UNDER   RSXUn 
RSXsl 

Rsxnnsi 

NTPNSFs2  ;NUriBCR   OF  FILES   -    1    TO   TPPNSFEP    IN  ONE   CMHO  STRING   (3) 

NRCUSFsO  , NUMBER   OF   FILES  -    1    TO  RECEIVE    (1) 


.nflCRO 

DEFINITIONS 

TflGNUns 

0 

.  MfiCPO 

ERROR   TEXT 

ERRORK 

(TEXT) 

JSP 

PC.PROnPT 

,  ENOn 

;  MfiCPO 

TO  DO  fl 

KILL  RND  OUE 

i 

.  nflCRO 

EPPOPK   TEXT 

TflGNUn= 

TfiGNUMfl 

.  IPP 

N,  ^  TPGNIJM^ 

JSP 

PB.TYPnSG 

UOPD 

TfiG'N 

WORD 

TftGE'N-TPG'N 

PSECT 

MESPG2.GBL 

TOG'N: 

flSCi  1 

"TEXT" 

TfiGE'N, 

PSECT 

nfliN 

ENDM 

ENDM 

,    nOCPO   TO  QUEUE   R  HESSRGE   ONlY 

nflCPO     EPPOPM     TEXT 
TflGNUri=TflGNUn4>i 

IPP  N,  <  TRGNUM) 

JSP  PB'TYPnSl 

WORD  TQG'N 

WORD  TRGE'N-TPG'N 

.  PSECT  mesrg:  GBL 

TRG'N:   .ASCII   "TEXT" 
TRGE'N: 

.PSECT  nqiN 

ENOn 
.  ENDM 

MPCPO  TO  QUEUE  R  MESSAGE  RND  PPOUFT 

.  MRCRO  ERROPP   TEXT 

EPPOPM  vTEXT' 

JSP  PC, PROMPT 
.  ENDM 


MflCPO  FRTRL   TEXT 

EPPOPK  aEXT 

JSP  R5-DIE 

ENDM 
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.TITLE  liRlTE 
.  I  DENT  /00005/ 

COPYRIGHT  (C)   1975.  1975,  1977 

DiGlTfiL  EQUlPrtENT  CORPORfiTlON,  nflYNflRO,  MASS.  0175^ 

THIS  SOFTWARE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY  ON 
fl  SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  PBOVE  COPYRIGHT  NOTICE   THIS 
SOFTWARE.  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PROVIDED 
OR  OTHERWISE  HADE  PVRILRBLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS   TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MlTflENT  BY  DIGITAL  EQUIPMENT  CORPORATION, 

DEC  ASSUMES  NO  RESPONSIBILITY  FOP  THE  USE  OP  RELIABILITY 
OF  ITS  SOFTWARE  ON  EQUIPHENT  WHICH  IS  NOT  SUPPLIED  B f 
DEC. 

uERSlON  0 

POPEPT   H     PO^ENBAUM 

LAST   MOD  in  CAT  I  ON   ON    :9-MAY-75 

RSX  WP'TE   PECOPD   ROUTINE 

.  P3ECT      MAIN 


nPCPO   CALLS 

.  MCALL   PUT5S.FD0FF% 
FDOFF%  DEFSL 

ASCI  I  DEFINITIONS 
FF  =  m 

INDICES  INTO  CHANNEL  TPBlE 
C0LPNT=: 
PCSIZ=H 


NPUTS 


DEFINE  FCS   OFFSETS  LOCALLY 


000000 

ooooo: 

000010 


00500*4 
WbZh? 
010287 


OUOUOb'  OOOOOOG 
OOOOOOG 


RO  =  BUFFER  ADDRESS 
Rl  =  BYTE  COUNT 

OUTPUTS 

WRITES  A  RECORO 

DOES  VERTICAL  .ID  HORIZONTAL  FOPhS  PROCESSING 

.  IF  DF  RSX 

WRITS:;  CLP  RH      ;BYTE  COUNT  OF  EXPANDED  PECOPD 

nous  CHRL(P2)-CHAPL   ; NUMBEP  OF  CAFF  1  AGE  CONTROL  CHAFhCTEPS 

MOVf  R2.C0LAD       ;GET  CHANNEL  NU'^BEP 


UFlTt 

nflCPO  nno4  06 

-OEC-77  08  30  PfiGC  2-1 

1  15 

6S 

000014 

001410 

BEQ 

201 

; CHANNEL  0 

^9 

0OOC16 

012767 

000001 

OOOOOOG 

MOU 

it.COLAD 

bO 

000024 

006302 

101 

DEC 

R2 

bl 

000026 

001403 

BEQ 

20S 

62 

000030 

006367 

OOOOOOG 

fiSL 

COLPO 

63 

000034 

000773 

BR 

104 

bH 

000036 

016706 

OOOOOOG 

205 

nov 

SWRSUP,R5 

;GET  CORRECT  FDB 

66 

000042 

011603 

MOV 

(RS).R3 

;FD30U0  OR  FOBOUl 

66 

000044 

016302 

000026 

MOU 

r  NRBD*2fR3)<R2 

i BUFFER  ADDRESS 

^  67 

000060 

006763 

000102 

TST 

F.  PNB^N.  FID(R3) 

;  IS  FILE  CLOSED? 

63 

000064 

001002 

BNE 

304 

;N0 

69 

000066 

00016? 

000306 

jrp 

1104 

;YES  -IIITHIS  CODE  SHOULD  BE  SHRUNK 

70 

000062 

00E301 

304: 

DEC 

PI 

;FINISHED'' 

71 

000064 

1004  34 

Bni 

504 

;YES.  WRITE  RECORD 

t   4m 

000066 

006204 

404, 

INC 

P4 

;  INCREMENT  BYTE  COUNT 

73 

000070 

112003 

MOUB 

(P0)*,P3 

GET  CHflRPCTER 

74 

000072 

110322 

rivUB 

9Z.  'P2'* 

76 

000074 

106767 

OOOOOOG 

TSTB 

SUPSL 

;SELECTIVE  RECEIVE  ACTIVE"' 

76 

000100 

001406 

BEQ 

444 

;N0 

77 

000102 

u*.4.i  6< 

OOOOOOG 

OOOOOOG 

cnp 

»CH0NL2'SWRSUP 

IS  OUTPUT  GOING  TO  THE  PRINT 

78 

;FILE  (SELECTIVE  RECEIVE  ONLYj"' 

79 

000110 

001404 

BEQ 

454 

;YES.  DO  TAB  EXPANSION 

80 

0001 1: 

000^b3 

BP 

305 

;N0<  DON'T  DO  TAP  EXPANSION  FOP  PUNCH  DATA 

81 

000114 

106767 

OOOOOOG 

445. 

TSTB 

SUPBN 

;N0.  BINARY  DATA"? 

82 

000120 

001360 

BNE 

l^'i 

:YES,  DON  T  DO  TAB  cXPANSlON 

83 

000122 

120327 

0000 11 

4E5 

CMPB 

P3.M1 

;  IS  IT  A  TAB'' 

84 

000126 

001365 

BNE 

305 

;N0 

86 

000130 

106767 

OOOOOOG 

TSTB 

HFCflCT 

; HORIZONTAL  TAB  ACTIVE 

86 

000134 

100362 

BPL 

305 

-NO 

87 

000136 

112762 

000040 

177777 

MOl'B 

»40.  -UR2) 

REPLACE  SPACE  U 1 TH  TAB 

8S 

000144 

106764 

OOOOOOG 

TSTB 

HFCPEC^P4) 

TAB  STOP 

89 

000160 

001344 

BNE 

305 

YES 

90 

000162 

106740 

TSTB 

-fPO» 

NO 

91 

000154 

000744 

BR 

405 

92 

000166 

011500 

505: 

MOV 

(R5),P0 

GET  FOB 

93 

0r0160 

122760 

000001 

000000 

CMPB 

»1.F. PTYPfRO) 

FIXED  LENTH  RECORD 

94 

.CO  166 

001016 

BNE 

605 

NO 

96 

000170 

0o0465 

000004 

ADD 

R4,PCSIZ"P5.' 

ADD  iNTO  TOTAL  PECQPD  SIZE 

96 

000174 

010260 

000026 

MOV 

R2.F. NRBD+2'POi 

update:  BUFFER  POINTER 

97 

000200 

026560 

000004 

000002 

CMP 

RCSI2(P5).F.  RSIZ 

PO) 

9S 

000206 

103476 

BLO 

1205 

99 

000210 

016504 

000004 

MOV 

RCSIZ''.P5)P4 

NUMBER  OF  CHPPRCTEPS  TO  UP  1 TE 

100 

000214 

160460 

000026 

SUB 

R4,F.  NPBu+C'RO)  , 

RERJUST  PNTP  FuP  FCS 

101 

000220 

006065 

000004 

CLP 

RCSi:(R5^. 

102 

000224 

bOS 

PUT5S 

,.P4 

103 

000234 

103456 

BCS 

1105 

OH  NO  AN  EPPOP 

104 

000236 

105767 

OOOOOOG 

625; 

TSTB 

S^RSL 

SELECTIVE  RECEIVE  ACTIVE^ 

106 

000242 

001405 

BEQ 

645 

NO 

106 

000244 

022767 

OOOOOOG 

OOOOOOG 

CMP 

«CHfiNL2..  SIJPSUP  . 

IS  OUTPUT  GOING  TO  THE  PFINT  FILE 

107 

000252 

001404 

BEQ 

655 

YES.  CHECK  FOR  CAPFIAGE  CONTROL 

lOS 

000254 

000452 

BP 

1205 

NO.  DON'T  CHECK  SINCE  ITS  PUNCH  DATA 

109 

000256 

105767 

OOOOOOG 

645: 

TSTB 

SURBN 

BINARY  DATA^ 

110 

000262 

001047 

BNE 

1205 

YES.  IGNORE  CARRIAGE  CONTPQL 

111 

000264 

026727 

OOOOOOG 

000001 

665 

CMP 

COLflD.;i 

SKIP  TO  CHANNEL  1 

112 

000272 

001013 

BNE 

705 

NO 

113 

00027U 

016002 

000026 

MOV 

F.  NPBD+2'P0).P: 

GET  BUFFER  ADDRESS 

114 

000300 

4  1  i.  I  ^i. 

000014 

MOVB 

;ff.  (p:.'  + 

URiTi       MfiCPO  nuO^     Ob-OEC-77  08   30     PAGE   2-2 


TTT 


lis 

Ub 
117 

lis 

119 

i:o 
i:i 
i:: 

123 

i:s 

12b 

12:^ 

12S 
12? 
13G 
131 
132 
133 
134 


000304 
00031b 
000320 
000322 
000322 
000330 
000336 
000340 
00034b 
000354 
00036b 
0003b2 
0003b4 
OOOZbb 
000370 
00037b 
000400 
000402 
000404 


103424 
000407 

0b27b5 
026527 
103403 
0127b6 
03b776 
001003 
I063b7 
001407 
00E004 
000b73 
lB27b7 
0002bl 
000401 
000241 
000207 


000C02  000002 
000002  G00204G 


70S: 


OOOOOOG  000002  805 
OOOOOOG  000002  90S 

OOOOOOG 

lOOS: 

000200  OOOOOOG  llOS. 


1205: 
I  305: 


PJT5S 

BCS 

BP 

ODD 
CMP 
BLO 

nou 

BIT 

BNE 

DECS 

BEQ 

CLR 

BP 

BiSB 

SEC 

BP 

CLC 

RTS 

.  ENDC 


.,•1 

nos 

80S 


.UPiTE  RECOREO 
.ERROR 


II2.C0LPNT(R5)   ;  INCREHENT  COLUMN  COUNT 
C0LPNT(R6),»C0LTT*132.   .«  ^4H0LE  FOftH 
90S  .  NO 

»C0LTT,C0LPNT(R6) 
C0LflD.dC0LPNT(R5)      ;fl  STOP'' 


lOOS 

CHflPL 

120S 

R4 

505 

»200, lOEPP 

1 30S 

PC 


YES 

NOT   DOUBLE   OP    TRIPLE   SPflC 

NO.    EXIT 

YES.  URITL  NULL  BLOCK 

ON  ERROR 

RETURN  UITH  C  BIT  SET 

GOOD  RETURN  -  CLEOP  CRPPY 


UPiTE 

MQCPO  Ml  10^4  06- 

•DEC- 

•77 

08 

30 

PfiGE  3 

136 

;  4 

137 

;  CfiPP 

138 

;  - 

139 

OOOHOb 

001 

CHRL: 

1^0 

0001*07 

001 

IHI 

ooomo 

001 

m: 

000*4  11 

001 

mz 

ooom2 

001 

l^^ 

ooom3 

001 

l^S 

0004m 

001 

mb 

OOO^IS 

001 

m7 

ooomb 

001 

1>4S 

ooo'^i:' 

002 

IWQ 

000<0 

003 

160 

181 

000001 

K  t5 


CfiPPlfiGE  CONTROL  TqSLE  FOR  RSX 


BYTE 

1             i 

CNQMNEL  0 

BYTE 

I             t 

CHPNNEL  1 

BYTE 

1             t 

CHANNEL  2 

BYTE 

I             4 

CHANNEL  3 

BYTE 

1             i 

CHANNEL  >4 

BYTE 

1             t 

CHANNEL  5 

BYTE 

\                                 t 

CHANNEL  6 

BYTE 

CHANNEL  7 

BYTE 

I             t 

CHANNEL  8 

BYTE 

it 

BYTE 

7 

EVEN 

END 

HQCPC 

tpble 


nnOi*     Ob-OEC-77  OS   30     PfiGE   3-1 


L  tS 


'iHflNLZs 

tntit 

GX 

F  CHR  = 

000075 

riBCia 

000055 

f .  VBN  » 

000064 

RSX   « 

000001 

CHfiPL  2 

MUtI 

G>, 

F  CNTGs 

Q0003^ 

riBFGs 

000056 

F  VBSZ» 

OOOObO 

Rsxn«« 

000001 

':hpl 

OOOHOfeP 

00: 

:  F  DFNBs 

0OOOH6 

NRBOs 

000024 

HFCPCTa 

$uut 

GX 

SUR6N  s 

tttttt   GX 

OjLPD  = 

«t«ltt 

GX 

F  DSPT= 

00Q0^^ 

NRECs 

000030 

HFCRECs 

tuut 

GX 

SURSL  ' 

tttttt   GX 

COLPNTs 

000002 

F  DVNfls 

0001 3^ 

OUBSs 

000030 

lOERR  s 

tutu 

GX 

SURSUPs 

tttttt   GX 

COLTT  = 

tttttt 

GX 

F  FFBKs 

0000 10 

PPCCs 

00G0t6 

NRCUSFs 

000000 

S  FflTT* 

0000 16 

FT     = 

OOOOIH 

F.  EFN  : 

000050 

RPTTs 

000001 

NTRNSFs 

000002 

S  FOB  « 

000140 

f  fiCTLs 

000076 

F  EOBBs 

000032 

RCNMs 

000034 

N  DID  » 

000024 

S  FNflns 

000006 

f  OL0C= 

0000^0 

F  EPR  s 

000052 

RCTLs 

000017 

N.  D'/NMs 

000032 

S  FNB  s 

000036 

^  BBFSs 

000062 

F  FfiCC= 

00004  3 

psi:= 

000002 

N  FID  ' 

000000 

S  FNBW» 

000017 

F  BOB  = 

000070 

F.  FFBYs 

oooom 

P^YP  = 

000000 

N  FNPMi 

000006 

S  FNTYs 

000004 

^  6GB':  = 

000057 

F  FNOM= 

000110 

SEGiNs 

OOOIOO 

N  FTyP= 

000014 

S  FTYP? 

000002 

BfON- 

000026 

F  FNB  = 

0C0102 

SPDUr 

000072 

N.  FVER  = 

000016 

S  NFENs 

000020 

>  BKC'Z  = 

000020 

F  FTYP= 

000116 

SPUN= 

000074 

N  NEXTs 

G00022 

TPGNUns 

000000 

•  B^EF. 

000C50 

F.  FUEP  = 

000120 

STBKs 

000036 

N  STPTs 

000020 

14R!T5 

OOOOOOPG 

F  BKP1= 

000051 

F  HIBK= 

000004 

UNIT  = 

000136 

N  UNlTr 

000034 

PUTSQ= 

$t*ttt   G 

F  BrlT  = 

Q0002H 

F  LUN  : 

000042 

UPBD= 

000020 

PCS  12  s 

000004 

. .  TPC= 

000140 

F  BK\'B  = 

C0006H 

F.  MBlT  = 

ncoosu 

.  fiSS 

000000 
000000 

000 
001 

MP  1  N 

000^:2 

002 

EPPOPS  ! 

JETE'ITEC 

0 

UlPTUfiL 

ME  MOP > 

USED.   1 

Sl^  UOPDS  <  S  PfiGES) 

DYNfiMlC 

ME  MOP  f: 

2S10  I 

OP  OS  ' 

10  PAGES) 

002 


ELPPSED  TIME   00  GO  19 
:5b.O20  WRITE. 27.  :St  030  UP  i  TE.  CPF.  -SP  =  UPFP>.M.,  UP  1  T£ 


ft  l5 

URiTE  CPeflTED  B'      MfiCPO     ON  b-DEC-77  AT   08   30  PfiGE    I 

SVriBOL  *.POSi  PEFEPENCE  CPEF 

iYMBOL  UfiLUE  PEFEPENCES 

•'.HfiNi:  =    «ttut  GX           2-77               2-!06 

•:hQPL  =    tltttl  GX         t2-5b              «2-126 

'iHPL  000'40b  P                2-Sb              nZ-\Z^ 

C0L»O  =    MtUt  GX          t:-57              t2-59              «2-b2                2-tU              2-123 

COLPNT  =   000002  «:-^2             t2-n«             2-120           «2-l22             2-123 

COLTT  =    MttH  GX           2-120             2-12Z 

FF  =   OOOOm  »2-39                Z-MM 

F.  FNB  =   OQOIO:  2-b" 

r  NRBD  =   OOOO:^  2-bo             »:-?o             12-100           12-102             2-113           *2-ns 

F   PtiZ  =   OGOOO:  2-97 

r    PTYP  =   000000  2-93 

MFCftCT  =    t*iMi  GX            2-86 

HFCREC  :    iiMM  GX            2-38 

lOERP  s    tMiM  GX         i:-129 

MPC'/SF  ::   000000  »l-5 

iiTPNSF  =   000002  il-i* 

N  FiD  =   OOCOOO  :-b7 

PCSIZ  =   OOOOOh  12-^3              ♦--9d               2-97               £-??             12-lQl 

KSX  i   000001  11-2                  Z'S^ 

P^XIIM  =    COOOOl  11-3 

SUPBN  =    Mint  GX           2-Sl                2-109 

SUPSL  =    ♦*«»♦♦  GX           2-"6               2-10^ 

SUPSiJP  =    MMM  GX            2-b^                2-77                2-lOb 

TPGSii''  =    iDGOO;^''  HI -8 

UP  ITS  OOCOOO  PO            «:-8S 

PUTSQ  =    t**t**  G              :-l02              2-102              2-115              I-llS 


nor PC  ( 
MfiCPO  ^ 

EPPOP 

EPPOP^ 

tPPOPM 

EPPOPP 

EPP^ 

L OF  DBS 
PUT%S 


CPEfiTED  BY  nflCPO  ON  b-DEC-77  AT  08  30 
P0S3  PEFEPENCE 


janE 


PEFEPENCES 

•2-102 

•  1-9 

•  1-32 
»l-^7 

»:-i02 

»:-3S 
»:-io: 

•  2-35 


2-102 


»2-102 

2-102 

2-102 


PPiGE   2 
CR£F 


N  lb 


2-102 


i:-ll? 


2-115 


115 


•2-115 


•2-115 
2-115 


•2-115 

:-n5 


^^^MMMsM^^^^ljlsmlM 


1v*iil£-r-K''SlL=l" -"'"- 


•'.OMTEy-Morpo'S   n«CRO 

TPBlE  or  CONTENTS 


nil04  Ob-OEC-77  08:  29 


3- 

21 

5- 

57 

fe- 

152 

::i 

q- 

245 

10- 

28b 

n- 

324 

i:- 

335 

conTEx  npcpo  definitions 
connuNicflTioNS  output  done 

OPEN   FILE   FOR    TPPNSMIT 

PEflO 

REfiD  COnPLETE 

B I  SYNC  OUTPUT 

PRPRMETEP  BLOCKS 

CCNSTRNT  DRTR  RPEfi 


B  16 


TCANiniT 


nflCPO  rnOH  Ob-DEC-77  08:  29  PfiGE  I 


C  lb 


I 

! 


to 
u 

12 

15 

lb 

r 

IS 

1? 

20 
21 


24 
2S 
2b 
17 
28 
29 
30 
31 
32 
33 
3H 
35 
36 


39 

40 

41 

4: 

4i 

44 
45 
4b 
47 

f9 
50 
51 
52 
53 
54 
55 
5b 


OOOOOl 

oonooi 

000G02 

oocjoo 


ocoooo 


■.nv\%  PiLC  rop  2780  upp  running  under  RSXlin 

RSXM 
RSXllMsl 

NTRNSFs2  ;NUnBER  OF  FILES  -  I  TO  TRPMSFEP  IN  ONE  CMMD  STRING  (3) 

NRCVSFsO  ;NUnBER  OF  FILES  -  1  TO  RECEIVE  (1) 

;ri«CRO  DEFINITIONS 
TfiGNUMsO 

. nPCRO  ERROR   TEXT 

EPRORK  (TEXT) 

JSP  PC, PROMPT 
ENOn 

;  MPCPO  TO  DO  P  KILL  PNO  QUEUE  THE  MESSPQE 


TflG'N: 
TflGE'N: 


.  nPCPO  ERRORK   TEXT 

TPGNUM=TPGNUM+1 

.  IRP  N, ^  TPGNUM) 

JSR  P5-TYPMSG 

WORD  TPG'N 

.  WORD  TftGE'N-TPG'N 

PSECT  nESRGZ-GBL 

.  PSCII  "TEXT" 


PSECT 

ENDH 

ENDM 


PPiS 


riPCRO  TO  QUEUE  P  MESSRGE  ONlY 


. MPCPO 

EPPOPM   TEXT 

TPGNUn= 

TPGNUM+! 

,  IRP 

N, <  TPGNUM^ 

JSP 

P5-TYPMSI 

.  WORD 

TPG'N 

.  WORD 

TPGE'N-TPG'N 

. PSECT 

MESPG2-GBL 

TPG'N: 

.  PSCI 1 

"TEXT" 

TPGE'N: 

. PSECT 

MP  IN 

.  ENDM 

.  ENDM 

flPCPu  TO  QUEUE  P  MESSRGE  PND  PROMPT 

.  MPCPO  ERRORP   TEXT 

EPROPM  (TEXT' 

JSR  PC  PROMPT 
.  ENl.M 


.  MPCPO 
ERRORK 

JSP 
.  ENDM 


FPTPL 

aEXT> 

P5-DIE 


TEXT 
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TTi' 


I 
2 
3 
% 
S 
h 
7 
i 

to 

$t 

12 
t3 

ts 
ts 

t9 


.TITLE     COMTEX-riOCPOS 
.  I  DENT     /00002/ 

COPYPtQHT  \S7H,    t975.  I97fe,  1977 

DIGITRL  EQUlPnENT  CORP. 

lUb  nfilN  STREET        MPYNQRO.  nflS5  0175i* 

>EC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OP 
RELIABILITY  OF  ITS  SOFTUfiPE  ON  EQUIPMENT  WHICH 
IS  NOT  SUPPLIED  BY  OlGiTfiL 

VERSION  0 

23-SEPTEnBER-7'4 

VEPSION   1 
SEP    19^7   -   CEP 

MOOiFlCfiTIONS   FOP   CUT   CODE    >'£PStON  OF    27S0 
LIBPHPY   OF    COMTE'^   MOCPO   DEFINITIONS 


Mil    III      I 


1 


<.OMTE> 


nficpos     nocpo  r1^o^ 

nftCPO  DEFINITIONS 


Ofa-DEC-77  08.  29     PAGE   3 


TTT 


2t 
22 
23 

2S 

2b 

27 

28 
29 
30 
31 
32 
33 
3W 
36 
3b 
37 
38 

TO 
•40 

m 

'♦2 

43 
UU 
46 
46 
47 
48 
49 
60 
61 
62 
63 
64 
66 


SBTTL     COflTEX  flOCRO  DEriNlTiONS 


MWCPO 

nou 

JSP 

.  ENDn 

. nflCPO 
nov 

JSP 

.  END  11 

. MOCPO 

nou 

JSP 
.  ENDM 

.  nPCPO 
nou 

JSP 

.  ENDn 
. nPCPO 

JSP 

.  ENDn 

. nocpo 

no'i/ 

JSF 
.  ENDl 

. nPCPO 
nou 

JSP 

.  ENDn 


LIMIT, PflPLST 
•  PfiRLST,Pl 
PCEMTINT 


PSRSUF^PfiPLST 

•PflRLST,Pl 

PCEMTPUT 


PUTTCrPPLST 

»PflPLST,Pl 

PC^EniPUT 


PUTnr  PPPLST 

«PQPLST.P1 

PC-EnTPUT 


GETS 

PC  EnTGET 


PUTTn. PPPLST 
»FRPLST  PI 
:C-EnTTin 


PUTD. PPPLST 

»PPPLST.Pl 

PCEniPUT 


TRftNsriiT  nocPO  nnoH 

COtlTO   nQCPO  OEFlNtTlONS 


I 


Ob-OEC-77  08.  29     PAGE   H 


F   t6 


I 

ft 

7 
t 
f 

10 
II 
12 
II 

u 

17 
18 
19 
20 
21 
22 
23 
2i| 
» 
2ft 
27 


2f 

30 
31 
32 
33 

37 
38 
39 

HO 

m 

M6   OOOGOO 

<I8 
ilf 

SO 
SI 
S2 
S3 

St» 


.Title  TRfiNsniT 

.  I  DENT  /00017/ 

COPYRIGHT   (C)   t97H.l9?6Mf7b.  1S77 

DIGITAL  EQUlPflENT  CORPORATION,    MPYNflRO.    MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  fl  LICENSE  FOR  USE  ONLY 
ON  P  SINGLE  COMPUTER  SYSTEM  AND  HAY  BE  COPIED  ONLY  UlTH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE   THIS 
SOFTWARE,  OR  ANY  COPIES  THEREOF.  MAY  NOT  BE  PROVIDED  OP 
OTHERWISE  MADE  AVBAILABLE  TO  ANY  OTHER  PERSON  EXCEPT 
FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE 
LICENSE  TERMS   TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE 
SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANJE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MlTfiENT  BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  PESPONS IB IL I TY  FOP  THE  USE  OP  PELIRBILiTY 
OF  ITS  SOFTUARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY 
DEC. 


VERSION  0 

POBEPT  H.  POSENBAUM 


:0-SEPTEMBEP-7'4 


B  L.  PUBENSTEIN       27-JAN-75 
MODIFIED  FOR  PT-ll   V02-1   'F/B) 
LAST  MODIFICATION  ON  2S-0CT-76 
MODIFIED  FOP  CUT  CODE  I'ERSlON 
CEP  S/77 


TPANSniT  DATA  COMPLETE  ROUTINE 
COLL. 


riSGDON  IS  CALLED  f" 
UPON  F  INDING  A  Ulb 


THE  "GETS"  LOOP  THROUGH  THE  .JUMP  TABLE 
:PY  FROM  THE  B I  SYNC  TAP. 


FUNCTION: 

THIS  POJTIHE  PEPDS  TH.  FILE  BEING  TRANSMITTED  AND  HANDLES 
ALL  THE  BUFFER  MAN  I  PjL  AT  I  ON  AND  CORRD  !  N^^T  I  ON  WITH  THE  TAP. 

IF  DF  PSX 

.  PSECT  MAIN 
.  ENOC 

.  IF  DF  PTM 

.  CSECT  TRNSMT 


;  MACRO  CALLS 
MCALL 
.  V2  . 
,  ENDC 


PRINT,.  .  W2. 


■ 

G  tb 

TPftNSniT 

nfiCPO  nii04  Ob- 

•OEC-77 

08.  29  f 

'PGE  5 

COfiTty  nfiCPO  DEFINITIONS 

6b 
57 

S9 

.  SBTTL 

COnnUNI CRT  IONS  OUTPUT  DONE 

.  GLOBL 

riSGOON,  INITF,  ENTRY,  FLAGS,  EOTPEN<  EOTFLG 

bO 

.  GLOBL 

OFFHRN,TVfiB,TOONC.ELfiTCH 

bl 

.  GLOBL 

gctent^enopen^ruipcn,  ioe:?r 

b2 

.  GLOBL 

nOOE,  CHPRR,  TXPEN,  1  IBM. 8 INEOT, CLOSEP 

b3 

.  GLOBL 

EOTSEQ, SURBN,  TURNAR,  CNBPPR 

bu 

.  GLOBL 

CODE,  QTRQN,  OrtODE,  CRSFAU,  TRNSBLK 

b6 

.  GLOBL 

REDS,  STOREX,  CflPLST,  CRBOSX,  CnCLST 

bb 

.  GLOBL 

RECSlZ,CnBUFE,CnFLST,NXTFIL 

b7 

.  GLOBL 

SWREN, FSTGET, CttBnPX, CHBFPN, PR  1 NTX 

bS 

GLOBL 

BRSELN.  XSTEQ.  XFEPEN,  CHBUFl,  XMTEPP  PC\/BLK 

b9 

.  GLOBL 

CLOSET. nPKFIL 

r-Q 

.  IF  OF 

PTll 

7t 

.  ^.wOBL 

PTENO 

73 

,  ENDC 

7V  OOOOOC 

Gi:705 

OOOOObG 

MSGDON: 

nov 

«ENTPY>b'P5 

7S  OOOOOH 

10S7b7 

QOOOOOG 

TSTB 

INITF           ,  INITIAL  !ZPTI0N'> 

7o  OOOQIO 

100545 

Bni 

nf^-TD          ;YES 

,      77  OOOGi: 

I057b7 

GOOOOOG 

TSTB 

FLPGS           -MOSTEP  OP  SLO^'E 

7S  OOOOlb 

100040 

BPL 

GOGl           :3LP'"E-  IGNOPE  PN'r  DOMES 

79  000020 

10b3b7 

GOOOOOG 

oslb 

TuQB            ,ABOPT^ 

80  000024 

103433 

BCS 

G0JMP2         .YE5 

81  00002b 

0bl5b7 

QOOOOOG 

PDO 

-PS'  -^MTfPP 

82  000032 

005745 

TST 

-'P5'          ;CHEC^  FOP  EPPOP 

83  000G3H 

100425 

BMl 

GO JMP  1          , EPPOP  FPESENT 

84  00003b 

10b3b7 

OOOOOOG 

flSlB 

EOTPEN         .EOT  PErJD'NG  FlPG  SET? 

85  000042 

103030 

BCC 

r-SGTQZ         -NO 

8b  000044 

10b3b7 

OOOOOOG 

PSlE 

EOTFLG          ;YES   SOT  FlPG  SET^ 

87  000060 

103002 

BCC 

GO jnp           ;N0 

88  000052 

0001b7 

OOOOOOG 

jnp 

OFF  HON           tE'.  go  OF^l  'f^i 

89  00005b 

10b3b7 

GOOOOOG 

GOjrip 

PSLB 

TC'ONE           ,HhA  PLl  FILES  BEEM  TPPNSM  1  TTED"' 

90  0000b2 

103410 

BCS 

RPND 

91  0000b4 

10b0b7 

GOOOOOG 

CLPB 

ELPTCH 

92  000070 

1057b7 

GOOOOOG 

TSTB 

PMIPEN          ;RVI  PENriNG^ 

93  000074 

100403 

Bf1l 

PPND            ;YES   DON'T  SET  TPPNSMIT  FENDING 

94  00007b 

1527b^ 

000200 

GOOOOOG 

BISB 

8200.T.PEN      .SET  TpfiNcniT  PENDING 

96  000104 
?b 

97  0001  10 

0001b7 

OOOOOOG 

OP  NO; 

JMP 

TUPN^:iP 

nooib7 

000412 

GOjriPl: 

jnp 

GOPBTl   .PBOPT  TPPNS  -  SET  EOT 

98  000114 

QQ 

G001fe7 

G00434 

G0jriP2: 

jnp 

GOPBP^   .hBOPT  TPPNSniSSiON  -  SLT  EOT 

100  000120 

000lb7 

OOOOOOG 

GOGl: 

jnp 

GETENT          ;GET  NE.XT  IjlB  ENTRY 

101  000124 

032715 

040000 

nsGTfi:: 

BIT 

840000.  ^P5)     ;PVI  INDICPTED'' 

102  000130 

001414 

BEQ 

nSGTC          ;N0-  GO  ON 

103  000132 

1527b7 

000200 

GOOOOOG 

BISB 

8200.ENDPEN     ;YES,  SET  END  PENDING  FLPG 

104  000140 

1527b. 

G002C0 

GOOOOOG 

BISB 

8200. PUI PEN     ;SET  PVI  PENDING 

105  00014b 

EPPOP 

<Rl/|> 

10b 

; CONTROL  MODE 

107 

;COnn  BIFFEP  PPOCESSED  BY  BISYNC  TPP 

lOS 

109  0001b2 

032715 

000400 

MSGTC: 

BIT 

;400. IPS)       ;HfiS  FTX  RECORD  BEEN  PCK'ED^ 

110  OOOlbb 

001422 

BEQ 

MSGTD           ;N0  -  MORE  RECORDS  PENDING 

111  G00170 

105767 

GOOOOOG 

TSTB 

TDONE          ; TPPNSMIT  DONE? 

U:  000174 

100401 

Bni 

lOS            ;YES 
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connuNicfiTiONS  output  done 


N  \k 


13  000176 

000414 

m  ooo:oo 

132767 

000040 

IS  000206 

001010 

lb  000210 

17 

IS  0002m 

10S067 

OOOOOOG 

19  000230 

:0  000230 

000167 

000342 

:i  00023^4 

10b:b7 

OOOOOOG 

::  0002*40 

103011 

23  0002*42 

:h  0002S2 

112767 

000200 

:S  000260 

000167 

OOOOOOG 

2b  00026*4 

105767 

OOOOOOG 

27  000270 

001713 

2S  0002": 

006067 

G00004G 

29  0002"^b 

30 

31 

000167 

00073b 

ZZ 
33 
3*4  000302 

10S067 

OOOOOOG 

35  00030b 

004:'b" 

OOOOOOG 

3b  U00312 

16:^6:- 

000200 

37  000320 

000167 

QOOOOCG 

38 

39 

140 

141 

•42  000324 

105^67 

OOOOOOG 

*43  00C330 

100G04 

L4U  000332 

0057*45 

HS 

4b  000334 

10050^ 

**:-  00033b 

105715 

4£  00034  0 

10U760 

4? 

BC 

NMES 
MSGTD 


OOOOOOG 


MflXTD: 


BP  NttES 

BiTB  mCTXPEN 

BNE  NMES 

CLPB  RVIPEN 

EPPOR  <TRNS  COnPLETE) 


JflP 

flSLB 

BCC 

PUTD 

ncvB 

J  MP 

TSTB 

BEQ 

CLP 

JMP 


BID  CONTENTION 
SinULRTE  AN  PI' 


;  THE 
COENO: 


OOOOOOG 


PECEPT 

CLPB 
JSP 
BiSB 
JMP 


ON 


TERT 

lOERR 

nflXTO 

STXEQ 

«200.TVfiB 

GETENT 

MODE 
GOGl 
CnPQP*4 

cnouT 

-  LET  REMOTE 
CONDITION 

TXPEN 
PC  CLOSET 
$Zld.  PVMPEN 
TUI^NPP 


.SEND  AN  EOT 

;BUT  RUI  STILL  PENDING*^ 

;YES.  THEN  TRANSMIT  NOT  REALLY  DONE 

;IF  REfiLLY  COnPLETED  TRfiNMlSSlON  THEN 

, FORGET  RUI 


;TR;;NsniT  eot 

;flN  I/O  ERROR  ON  PEflD'' 

,N0 

;SEND  STX-ENQ 

;FLflG  ERROR  CONDITION  DETECTED 


,TPflNSniT  ABORTED^ 
.YES 


.NO  -  CONTINUE  TRONSMIT 


STflT 
30  WE 


ON  HPl/E 
CAN  TRY 


THE 
AGP 


NE  BUT 
AFTER 


CLEAR  TRANSMIT  PENDING 
CLOSE  THE  TRANSMIT  FILE 
SIMULATE  AN  PVI  CONDTION 
TURN  THE  LINE  AROUND 


MPSTD 


TSTB 

PLAGS 

MHSTEP  OP  SLAVE 

BPL 

nSTGl 

TST 

-iP5' 

CHECK  FOP  '/ALIO 

*" 

RESPONSE  TO  BiD 

BMI 

GOABPT 

INVALID.  GO  ABORT 

TSTB 

(P5) 

TRANSMIT  OVERPIDEN  BY  CONTENTION"? 

BMI 

COEND 

YES  -  GO  INTO  RECEIVE  MODE 

i 

NO  -  PROCEED  NOP M ALLY 

OPEN  FILE   F0» 


nfiCPO  nno^ 

TPQNSniT 
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tl 


tS2 

SBTTL 

OPEN  FILE  FOR  TRfiNSMir 

153  0003^*: 

152767 

OC0020 

OOOOOOG 

nSTGl 

BiSB 

•20. FLAGS 

1^4 

.  IP  OF 

PTll 

165 

TSTB 

SURBN 

I5fc 

ENOC 

157 

,  IF  OF 

RSX 

158  000350 

1057b7 

GOOOOOG 

TSTB 

FL«GS 

MASTER'^ 

159  000354 

1C0404 

Bni 

nn«s 

YES 

IbO  00035b 

1057b7 

OOOOOOG 

TSTB 

SURBN 

PE'EM/E  BINARY'^ 

Ibl  0003t2 

001415 

BEQ 

CHOP  IX 

NO 

It:  OOOZbi* 

000403 

BP 

BINST 

YES 

lb3  0003bfc 

105767 

OOOOOOG 

nnPS: 

TSTB 

SUTBN 

BiNfiPY  nODE^ 

IbW 

ENDC 

lb5  000372 

001411 

BEQ 

CHOP  IX 

Ibb  00037H 

I527b7 

000030 

GOOOOOG 

8  INST, 

BiSB 

«I30.  FLOGS 

YES.  SET  NATIVE  MODE 

lb"  10'402 

0127b7 

OOOOOOG 

OOOOOOG 

nov 

»BINE0T,E0TSEQ 

I    omo 

0117b7 

OOOOOOG 

001050 

MOV 

•BtNTTD-STEGM 

SET  FOR  BINARY  TTD  SEQUENCE 

lb.  oomb 

Glb:'b7 

OOOOOOG 

000002G 

CHOP  IX: 

f10\' 

XFEPEN,ENBPPP*2 

VALID,  MOVE  CONTROL  UOPD  TO  PAPRM  LI 

170  u00h:i4 

Ilb7b7 

OOOOOOG 

G00002G 

nouB 

FLAGS. ENBPflP+2 

SET  CURRENT  OPTION  SELECTIONS 

171  000432 

156767 

OOOOOOG 

G00003G 

BISB 

C0DE^ENBP9P+3 

SET  CODE  SELECTION 

172  000440 

PUTTC 

ENBPRP 

HANDLE  XFER  ENABLE 

173  000450 

14276" 

000010 

GOOOOOG 

BICB 

«10-FLOGS 

CLEAR  NATIVE  MODE  SELECT 

1:^4  00045b 

105067 

OOOOOOG 

CLPB 

IN!TF 

CLEAR  INIT  FLAG 

175  0004b2 

105767 

OOOOOOG 

TSTB 

FLQGS 

MASTER  OR  SLAVE? 

17b  0004bb 

100402 

Bn 

TPNC 

MASTER 

177  000470 

0001b7 

GOOOOOG 

JMP 

GETENT 

SLAVE 

178  000474 

1127b7 

000002 

GOOCGGG 

TPfK: 

MOVB 

»2.M0DE 

SET  TRANSMIT  MODE 

179  000502 

1050b7 

GOOOOOG 

CLPB 

TVPEN 

X-MIT  REQUEST  SA^ i SF lED 

180  00050b 

0167b7 

G00756 

GOGOGOG 

nov 

QTPPN. QMOOE 

SET  UP  FOP  QUEPV  TYPE OUT 

181  000514 

112767 

000002 

GOOCGGG 

riO'''B 

«2.CPBFRl' 

INIT  n   OF  CP  BUFFERS 

1S2  000522 
1S3 

000167 

000216 

i«P 

CPRGN 

184 
185 
1  Sb 

# 

.  GLOBL 

GOflBRT-TEPl 

187  00052b 

GOQeri 

188  000526 

022765 

GOOOlO 

G00G02 

CMP 

«10.2'P5) 

SEE  IF  PBOFT  CAUSED  BY  NAKSI««*I 

IS?  000534 

G030G7 

BGT 

GORBPT 

190  00053G 

EPPOR 

<NRh  RBPT) 

191  000552 

000406 

BP 

XXX 

192  000554 

GOflBPT: 

193  000554 

EPPOP 

^OPP  r,BOPT 

TYPE  ABORT  MESSAGE 

194  0005^0 

1527S7 

G00200 

GOOOOOG 

XXX: 

BISB 

»20Li.TD0NE 

TRANSMIT  DONE 

195  00057b 

fEFT: 

PUTD 

EOTPfiP 

GO  SEND  EOT 

19b  OOObOb 

10044b 

BMI 

NOTPNS 

DON'T  CLOSE  FILE  IF  EPPOP 

197  OOOblO 

126727 

GOOOOOG 

G00002 

CMPB 

M0D£-«2 

TRANSMIT  MODE^ 

198  OOOblb 

001012 

BNE 

te:<2 

NO 

199  000620 

004767 

GOOOOOG 

TERl: 

JSP 

PC, CLOSET 

CLOSE  THE  TRflNSniT  FILE 

200  000624 

105767 

GOOOOOG 

TSTB 

TDONE 

TRANSMIT  DONE^ 

201  000630 

100016 

6PL 

TOT 

202  000632 

105767 

OOOOOOG 

TSTB 

RVIPEN 

IS  RVI  PENDING'^ 

203  000636 

100413 

BMI 

TOT 

YES,  DON'T  CLEPP  TRANSMIT  FILE  NAME 

204 

SO  THAT  UE  CAN  REOPEN  LATER 

205  000640 

005077 

OOOOOOG 

CLP 

aTRNSBLK 

20b  000644 

126727 

OOOOOOG 

GOGGGl 

TEP2: 

CMPB 

M00E,;J1 

RECEIVE  MODE'' 

207  000652 

001005 

BNE 

TOT 

NO 

208  000654 

0047b7 

CGGOOOG 

JSR 

PC  -  CLOSER  ^ 

CLOSE  THE  PECE'i'E  FILES 

ST 


TPflNSMiT        MfiCPO  ntlO^ 
OPEN  F ILE  FOR  TRRNSniT 
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209 

210 

211 
^  1  /^ 

213 

214 
2\S 
21b 

2r 


OOObbO  012777  \77777     OOOOOOG  .  I  IF  OF 

I  IF  OF 
TOT 


OOOfebfe 
000674 
000702 
000710 
OOO'lb 

0007:: 
ooo':h 
000:^40 


152<^67 
152767 
112767 
llb767 
105067 
0C0406 


000200 

000200 

000002 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


000167  OOOOOOG 


NOTPNS 
CPPGN. 


PSX 
PTll 
BISB 
BISB 

nouB 
nouB 

CLPB 
6P 

EPPOP 

jnp 


J  16 


H-UiPCUBLK 


nou 

CLR     dRCVBlK 

«200,E0TPEN0 

W200.FLQGS 

»2,nODE 

PRINTX,ST0REX 

INITF 

CPPGN 

'TER  RJT> 

GETENT 


;USE  DEFAULT  RECEIVE  FILE 
,USE  DEFAULT  RECEi'/E  FILE 


SET  EOT  PEND  FLAG 
SET  FOR  MASTER  HOOE 
SET  TO  TRANSMIT  MODE 
REALIGN  INDEX  POINTERS 
DONT  NEED  AN  INIT  PHASE 


.GO  TO  GET  NEXT  ENTRY 


TPOUSniT 
221 

»•—  -' 

22*4 
22f 
22b 
227 

:29 

220 
231 
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K   lb 


it  J  ^ 

235 

23S 

239 
2140 

:^: 

243 


0007^^ 

000750 
000762 
00075b 
000760 
0007b^ 
0007bb 
000772 
00077b 
0C1O02 
001004 
OOIOIO 
OOlOlb 
001022 
00102b 
001030 
0C1034 
0010*40 
0010*44 
00 1  OH b 
00105'4 


I06^b" 
003773 
lQ57b7 
100770 
105767 
100002 
00>4767 
016700 
004767 
103516 
llt702 
01b7b2 
010162 
01b700 
006720 
0b00b7 
Obb^OO 
020127 
101^03 

ui:;b7 


OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOr, 
OOOOOOG 
OOUOOOG 

OOOOOOG  OOOOOOG 


CPfiGN 


CRRNW: 


CPRO^ 


SBTTL     PEflD 


DFIDN: 


TSTB 

CRBFPU 

;PNY  BUFFERS  FOR  PEPO 

BLE 

CRPGN 

TSTB 

ELPTCH 

.READ  BLOCKED? 

Bni 

CRPGN 

TSTB 

PVIPEN 

;RV(  PENDING? 

BPL 

CRPNU 

,N0 

JSP 

PC.nRKFiL 

;YES.  MARK  PLPCE  IN  F 

nou 

CRBOSX.RO 

, BUFFER  ADDRESS 

JSR 

PC.RED% 

;READ 

BCS 

cnouT 

;A  READ  ERROR 

nouB 

ST0REX.R2 

nou 

CRBPSX-CnPLST'P 

2)       ; STORE  BUFFER 

nov 

Rl,CnCLST(P2i 

-PHD  UORD  COUNT 

t^o\J 

PECSI2.P0 

TST 

(RO  '4> 

ADD 

PC-CPBPSy 

ADD 

CPSPSX-PO 

cnp 

PO-UCnBUFE 

BLOS 

Df  !  ON 

nov 

«CnBUFl . lPBOSX 

LE 


ADDRESS 


n«0  OjnPieTt 
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2HS 
2Hb 
2H7 
2H8 

2S0 

2Sl 

2S^ 
2SS 
2Sb 

2S3 
2S9 
2b  C 
2b  1 

2e: 
2b: 

2bi* 
2bS 
2bb 

2b:' 

2bS 
2b9 
270 
271 
272 
Ml  J 

27S 
279 

280 
281 

-'C  - 

283 
28H 


OOtCS^*  005062  OOOOOOG 


OOlObO 
OOlObb 

001070 
00107^ 
0010:^6 
Q01104 
001110 

001 ii: 

00111b 

ooii:: 
0011:4 

001130 
0011  3^4 

ooim: 

001 1'+b 

001 IS4 

ooiio: 

001 lb4 
001170 
001172 
00117b 
00120: 
00120b 
001212 
00i:iH 
001220 
001222 

001224 

0012:0 
00 12 34 


122^67 
00103b 

004767 

001413 
I427b7 
1057b7 
OClOlb 
G047b7 

1061b2 
000420 
006077 
10606^ 
152:'b7 
0047b7 

ii:^b" 

ll-7b2 
0004  13 
10t3b7 
1037bl 
01b203 
0bb203 
116713 
0082b2 

gob:*:: 
c:o::- 

002401 
005002 

1 10267 

los:^:' 

lOSZc^ 


CPPC 


OOOOOOG  ooooooc 


OOOOOOG 


OOOOOOG 

000040 
OOOOOOG 

OOOOOOG 
OOOOOIG 

OOOOOOG 

OOOOOOG 

000200 

OOOOOOG 

000200 

000040  OOOOOOG 

OOOOOOG        CflPC5 

OOOOOOG 
OOOOOOG 
OOOOnOG 
OOOOOOG 


CfiKE 
OOOOOOG  lPPlP 
OOOOOOG  CPPCB 


OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 


CflPCb: 


CI5PC7: 


S8TTL 
CLP 

IF   OF 
WSLB 
BCC 

ENDC 
.IF   OF 
CriPB 
8NE 

ENDC 
JSP 
BEO 
BiCB 
TSTB 
BfiE 
JSP 
COMB 
BP 
CLP 
CLPB 

eisB 

JSP 

mo'jb 

rini'B 
BP 

flSLB 
6CS 

now 

ODD 

noi'B 

INC 
TST 
CMP 
BLT 
CLP 

novB 

INCB 
DEC  6 


L  \h 


REOD  COMPLETE 
CMFLST(R2) 
PTll 

PTENO 
CflRCS 


;WOPD  rO  MflPK   EOF 

;END  OF   P  iLE*^ 
.NO 


PSX 

•IE   EOF,F   EPP^FDBIN 

CflPC5 


PCNXTFIL 

CRPCE 

»40. TXPEN 

SWPEN 

CPPCB 

PCFSTGET 

CMFLST*1(P2) 

CflPC5 

iTPNSBLK 

PUIPEN 

•-QO.TDONE 

PC. CLOSET 

»200-ELfiTCH 

«4Q,CMFLST(R2 

COI^Cb 

E NOP  EN 

CQFCfi 

CnPLST'R2).R3 

CMCLST'R2>.P3 

ITBM<  (P3) 

CMCLST'P2) 

iP2^* 

P2.  »CMBni^X 

CfiPC7 

P2 

P2.ST0REX 

CMBFPN 

CFBFPH 


.END  OF   FILE 
RNCTHEP   FIL£"> 


TPPNSMIT  PENDING 

/E   SWITCH 

YES 

DO  THE  INITIAL  GET 

FLAG  THAT  fl  MODE  CHANGE 


S  NEEDED 


ABOPT  COMMAND 

IF  PEALLY  FINISHED  FOPGET  ABOUT  P'J 

CLOSE  THE  TRANSMIT  FILE 

SET  LAST  BLOCK  INDICATOR 


GE"'  BUFFER  POINTER 
F I  NO  END  OF  RECORD 
LOAD  iTB 

INCREMENT  'VjEijE  LOAD  INDEX 

AT  END  OF  QUEUE 

NO 

YES   -    F  'SET    TO  BEGlNNlfJG 

RESTORE  UPDATED  INDEa 

ANOTHER  BUFFER  PENDING  FOP  OUTPUT 


BSifNC  OUTPUT 
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:3fe 

287 
288 
289 
290 
291 
292 

29S 
29b 
297 
29S 
299 

:oo 
:ot 

302 
303 
30H 
306 
206 
307 
30S 
309 
310 
311 
312 
313 
314 

31S 

:ib 

317 
31S 
31° 
320 
321 


0012^0 
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1  N  1  TK 

= 

tttttt 

G 

5-59 

5-75 

*6-174 

*6-215 

lOERP 

r 

tttttt 

G 

5-61 

«5-121 

ITBM 

= 

tttttt 

G 

5-62 

9-274 

MPSTD 

00032^ 

R 

5-76 

85-142 

nRVTc, 

0C026H 

R 

5-122 

85-126 

nriRS 

000366 

R 

6-159 

86-163 

MODE 

= 

tttttt 

G 

5-62 

5-126 

»b-i7S 

6-197 

6-206 

«6- 

213 

nPKFlL 

r 

tttttt 

G 

5-69 

8-229 

nsGDor^ 

000000 

RG 

5-59 

85-74 

nsGTR: 

000124 

R 

5-85 

85-101 

nSGTC 

0001b2 

R 

5-102 

85-109 

nSGTD 

000234 

R 

5-110 

85-121 

MSTGl 

000342 

R 

5-143 

86-353 

NMES 

000230 

R 

5-113 

5-115 

85-11? 

NOTRNS 

000724 

R 

6-196 

86-217 

NRCVSF 

= 

000000 

«l-5 

NTRNSF 

r 

000002 

»l-4 

NXTFIL 

r 

tttttt 

G 

5-66 

9-255 

OFF HON 

= 

tttttt 

G 

5-60 

5-88 

PRINTX 

= 

tttttt 

G 

5-67 

6-214 

10-292 

*10-321 

PROnPT 

s 

tttttt 

GX 

5-105 

5-1  IS 

b-190 

6-193 

6-217 

QMODE 

r 

tttttt 

G 

5-64 

*6-lS0 

QTRRN 

001470 

RG 

5-64 

b-lSO 

812-340 

RCVBLK 

- 

tttttt 

G 

5-68 

6-209 

RECSI2 

- 

tttttt 

G 

5-66 

8-236 

REDS 

z 

tttttt 

G 

5-65 

8-231 

RSX 

r 

000001 

81-2 

4-45 

b-157 

6-209 

9-251 

10 

-305 

RSXllM 

z 

000001 

81-3 

RTll 

= 

tttttt 

4-48 

5-70 

6-154 

6-210 

9-247 

10 

-306 

RUIPEN 

~ 

tttttt 

G 

5-61 

5-92 

*5-104 

*5-llb 

*5-136 

6- 

202     S-: 

127            *9-264 

STEQM 

001466 

RG 

*6-168 

10-287 

*10-304 

*10-309 

11-333 

811 

-336 

STOREX 

= 

tttttt 

G 

5-65 

*6-214 

8-233 

t9-2Sl 

STXEQ 

001460 

R 

5-123 

811-331 

SURBN 

= 

tttttt 

G 

5-63 

6-160 

SUIREN 

- 

tttttt 

G 

5-67 

9-258 

SWTBN 

z 

tttttt 

GX 

6-163 

10-305 

TflGEl 

000003 

R 

5-105 

85-105 

TflGEZ 

000020 

R 

5-118 

85-118 

TRGE3 

000030 

R 

6-190 

86-190 

TRGE4 

000041 

R 

6-193 

86-193 

TflGEB 

000050 

R 

6-217 

86-217 

TRGNUM 

= 

000005 

81-8 

*5-105 

85-105 

5-105 

5-ns 

85- 

lis      5-118      6-190 

b-190 

6-193 

86-193 

b-193 

6-217 

8b- 

217      b-2 

:i7 

TRGl 

000000 

R 

5-105 

5-105 

85-105 

TRG2 

000003 

R 

5-118 

5-118 

85-118 

TRGJ 

000020 

R 

6-190 

6- 1 90 

86-190 

86-190 


TPNSMT 

CPERTED  BY 

MACRO     ON  6 

-DEC-77  AT 

08  30 

G     1 
PfiGE   3 

SYMBOL 

CPOSS  REFERENCE 

CREF 

SYMBOL 

\/RLUE 

REFERENCES 

TfiG4 

G0G03O 

R 

6-l«J3 

6-193 

»o-193 

TRGS 

OOGOm 

R 

6-217 

6-217 

116-217 

TO  ONE 

=    tttttt 

G 

5-60 

*5-89 

B-111 

*6-19H 

6-200 

TEPT 

000B76 

R 

5-120 

116-195 

TEPl 

000620 

RG 

6-185 

<I6-199 

^EP2 

0006H14 

R 

6-198 

«6-206 

TOT 

000666 

R 

6-201 

6-203 

6-207 

«6-211 

TPNC 

000H7H 

R 

6-l"'<^ 

116-178 

TPNSBL 

=    ****** 

G 

5-6H 

6-205 

9-263 

TUP  MAP 

=    ****** 

G 

5-63 

5-95 

5-137 

^•iRB 

=    ****** 

G 

5-60 

«5-79 

*5-12M 

TXPEN 

=    ****** 

G 

5-62 

*5-9^ 

5-114 

*5-13H 

*6-179 

TYPMSG 

=    ****** 

GX 

5-105 

5-118 

6-190 

b-193 

6-217 

■'EOTS 

=    ****** 

G 

10-237 

10-303 

'FEPEN 

=    ****** 

G 

5-68 

6-169 

•MTEPP 

=    ****** 

G 

5-fcS 

*5-81 

XSTEQ 

=    ****** 

G 

5-toS 

10-30^ 

11-336 

y.y.x 

O00S7O 

P 

6-191 

«o-19H 

19-265 


*9-257 


TPNSnT 

IPERTEO  BY 

MRCRO     ON  6- 

•DEC-77  AT  08:  30             PRGE 

H      I 

Mprpo  CPOSS 

PEFERENCE 

CREF 

MPrPO  NRHE 

REFEPENCES 

RSPBUF 

<I3-?S 

EPPOR 

»l-9 

5-105 

5-118             6-190 

6-193 

6-217 

EPPOPK 

«l-lfe 

5-105 

5-118             6-190 

6-193 

6-217 

EPPOPn 

i;i-32 

E«'=^OPP 

81-^7 

FQTPL 

«l-53 

GETS 

«3-H3 

L  INIT 

«3-23 

PIJTD 

«3-52 

5-123 

6-195              10-298 

PUTnC 

83-3S 

PUTTC 

^Z-ZJ 

»6-172 

MO-313 

PUTTT1 

;3-H7 

CONFIG    riRCPo  nno^    os-dec-??  n-34 

TPBLE   OF    CONTENTS 


HH 

MflCRO  CALLS  TO  RSX 

n 

51 

MfiCRO  DEFINITIONS 

k- 

s: 

QIC  AND  FOB  PLOCKS 

5- 

100 

START  OF  CODE 

fe- 

132 

ASK  FOR  VECTOR  ADDRESS 

167 

ASK  FOR  DEVICE  ADDRESS 

S- 

1S3 

ASK  FOR  DEVICE  PRIORITY 

Q- 

19S 

ASK  FOR  LINE  BAUD  RATE 

10- 

UPITE  AND  EVENT  FLAGS  SUBPOUT 

ll- 

262 

TABLES 

NE 


J  1 

:r<F!G  MRCPO  nnOH  08-DEC-77  11:  3H  PfiGEl 

TITLE  CONFIG 
.  I  DENT  /0000^/ 


t 

2 

3 

^ 

S 

^ 

7 

8 

9 

m 

.1 

U 

m 

15 

t6 

17 

18 

t9 

20 

21 

22 

23 

24 

26 

2b 

17 

28 

2? 

30 

31 

32 

-^J 

]H 

177776 

35 

OOOOOG 

3b 

OOUOOl 

Z7 

000002 

3S 

000003 

39 

0000G4 

HO 

000005 

41 

OOOOOb 

42 

000007 
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DET ; NIT  IONS 

OF 

REGISTERS 

PS=l77:'7b 

R0  =  *'.0 

Rl  =  :<l 

R2  =  '/.2 

R3=-i3 

R4  =  v.^ 

R5  =  *.5 

SP  =  *ib 

PC  =  47 

K      1 

CONFIG     MflCPO  nnOH  08-DEC-77   11:  3^     PfiGE   2 

MOCPO  •'.RLLS   TO   PSX 

^'J  .  SBTTL  HflCRO  CRLLS  TO  RSX 

^^  nCOLL  FD0FFl,rCSBT5.FIN'T$,GMCR$ 

^'  .MCRLL  OPENSW,PUTS.CLOSF$ 

^S  .MCRLL  F0BOF%,FDfiT4fi,FDRC5fl.FDOP5fi,  FSRSZS 

•^9  .MCRLL  NriBLKS.QI05.DlR5.WTSE$S.CLEF5S,E,yiTiS 


CONF  iG    riKPO  nnoH 

MPCRO  C'EF  NIT  IONS 


08-0EC-77  11:  3^  PRGE  3 


L   I 


SI 
S2 
S7 

5B 
Bb 
57 
58 
59 
60 
-.1 

b: 

b3 
bH 
65 
bb 
67 
6S 
69 
70 
71 


7Z 
7H 
75 
7b 

■7"' 

7S 
79 
SO 


SBTTL  MRCPO  DEFINITIONS 


000000 


t  ; 

MESSRGE 

nflCRO 

* 

TO  PRINT  MESSRGES 

TflGNUn= 

0 

.  nOCRO 

neSSPG     TEXT 

TflGNUfIs 

TPGNUM*! 

.  IPP 

N, <   TRGNUM) 

nov 

HTflG'N, QDPBM+Q.  lOPL 

MOV 

«TflGE'N-TflG'N.QDPBM+Q. 

JSP 

PCEVTFLGS 

. PSECT 

MESSflG 

TflG'N: 

. flSCi 1 

"te,:t" 

. ASCII 

/"'/ 

TRGE  '  N: 

. PSECT 

flfifl 

.  ENDM 

.  ENDM 

. nflCRO 

EPROP        TEXT 

TflGNUn= 

TfiGNUM+1 

.  IPP 

N.  <    Ti^GNLIM; 

nov 

«TflG'N,QDPBn"^      OPL 

nov 

«TflGE"N-TflG'N.QUPBM+0. 

JSP 

PCOUPUT 

. PSECT 

MESSflG 

TPG'N: 

.  OSCII 

/TEXT/ 

TRGE'N- 

. PSECT 

PRO 

.  ENDM 

.  ENDM 

OPL  +  2 


OPl-^2 


M 


CONF IG 

Mflcpo  nnoH  08- 

QIC  fiND 

FDB  BLOCKS 

82 

83 

OOOCOO 

8H 

£5 

000000 

Sfe 

000030 

87 

OOOObO 

S8 

0000b2* 

89 

90 

000202 

91 

0003H2 

00034  2 

93 

000342 

94 

00034  2 

95 

000400 

9b 

0004  36 

q^ 

9S 

UOOOOO 

08-DEC-77   11:  34     PRGE   4 


QDPBfl: 
QDPBR. 
CMDlN: 


CnOFDB: 


DFNBLK 
DFNB2: 


OSTB: 


n  1 


.  SBTTL  QIO  AND  FOB  BLOCKS 
.  PSECT  RRF« 

0105    10.  ULB,  U  U..,,  <.,40> 

QI05    10.  RLB,L2,,  I  OSTB,.  <KBIBUF,8C.  ,> 

GnCPS 

KBIBUF  =  CnDLN+G.  ^-.^B 


FDBDFS 
FDflTSfl 
FDPCSfl 
FDOPSfl 
NMBLKS 
NMBLKS 
FSPSZS 

.  BLKW 


R.  VflR,FD,  CP 

3..DFNBLK 
PJP-CriD.,SY,G 

cpup.nfic.  .SY-o 
1 


I/O  STATUS  BLOCK 


N^  I 


CONFIG     MRCHC 
STfiRT   OF    CODE 


nnOH      O8-DEC-77    11;  3H      PPGE    5 


N     1 


100 

. SBTTL 

«^TflRT  OF  CODE 

101  000H3G 

PSECT 

RRP 

102  00DH36 

STRRT 

103  000H3b 

FINIT5 

104  O0OH42 

012700 

000202' 

MOl/ 

»CnDFDB.RO 

;GET  FOB  FOR  COMMPND  FILE 

lOS  000HH6 

0PEN5W 

;OPEN  FOR  WRITE 

1Gb  OOOH60 

103451 

BCS 

ERRl 

107  000Hb2 

012704 

0000b2' 

MOV 

ffKBlBUF,R4 

lOS 

;RSK 

UHETER  SHE 

HAS  fl  DU  OR  DP 

109  OOOHbfe 

QUSl: 

MESSRG 

<DP  OR  DU> 

110  OOOSOb 

022714 

050104 

crip 

8"DP,(R4) 

;  1 S  1  T  P  DP 

111  O00B12 

001015 

BNE 

105 

;N0 

112  0006m 

0127bO 

000257' 

00002b 

MOU 

SDPCMD.F.  NReD  + 

2(R0) 

113  000S22 

012701 

0002b5' 

nou 

»LINE2fl.Rl 

.REPLACE  LINE  2  WITH  LINE 

im  00052b 

012702 

000177' 

MOV 

?5LINE2,R2 

/ .  .  . 

115  000532 

012703 

000007 

nov 

8LINE2E,R3 

; LENGTH  OF  LINE  2R 

lib  00053b 

112122 

55: 

MOVE 

(PP+.  (R2^  + 

/ .  .  . 

M7  C005HO 

G05303 

DEC 

R3 

lis  0005H2 

001375 

BNE 

5f 

;G0  FOR  ALL  CHflPflCTEPS 

119  0005H4 

n0040b 

BP 

205 

120  DOCBHb 

022:^14 

052504 

105; 

CMP 

?"Dli  (R4) 

;  IS  IT  fl  DU 

121  000552 

001345 

BNE 

QUS 

;WELL  THEN  UHRT  IS  IT 

122  00055H 

ni27b0 

0002b2' 

000026 

MOV 

nDUCMD.F.  NPBD+ 

2(^0) 

123  0005b2 

012760 

000003 

nnnn -L4 

205: 

MOV 

nZ    r.   NPBD'PO) 

.3  BYTE  RECORD 

12H  000570 

PUT5 

:  WP 1 TE 

125  00057^ 

10  3413 

BCS 

EPP3 

; WRITE  EPPOP 

12b  00057b 

CLOSES 

; CLOSE  THE  FILE 

127  000b02 

12s 

129  OOObOH 

103012 

BCC 

QUS3 

; CLOSE  ERROR 

EP?1: 

EPPOP 

<OPEN  rpiLURE) 

; PRINT  EPPOP  MESSPGE 

130  0C0b24 

0001 b7 

000516 

EPP3. 

J  MP 

EPP2 

CONF  ,G     MflCPO  nnoH 
START   OF    CODE 


08-DEC-77  11;  m     PfiGE  6 


B  2 


132 
133 
13^ 
13B 
136 
137 
138 
139 
1^0 
141 

m2 
m3 

IHH 

ms 

IHfe 
147 
148 
149 
160 
151 
152 
153 
154 
155 


000630 
000634 
000636 
000644 
000664 
000670 
000672 
000676 
000700 
000704 
Cu0706 
00G712 
000714 
000720 
000722 
000734 
000736 
000742 
000:^46 
000^50 
00075: 
00075U 


0UV04 
01C405 
012r6C 

122714 
0CJ357 
122" 24 
002754 
122714 
002751 
122724 
003346 
122724 
00134  3 

103723 
012701 
012703 
112523 
112523 
112523 
004:^67  noi:34b 


000062' 

U00400'  000046 

000063 

000067 

000067 

000060 

000060 


001456' 
00G174' 


QUS3: 


.  SBTTL 

flSK  FOR  VECTOR  Ht 

nov 

»KBIBUF.R4 

noi' 

R4,R5 

MOW 

8DFNB2,F. DFN6(R0 

riESSflG 

(VECTOR  ADDRESS) 

CMPB 

8'3,(R4) 

BGi 

QUS3 

cnPB 

»'7,(R4)  + 

BLT 

Ql  i3 

cnPB 

«'7,{R4) 

BLT 

QUS3 

CMPB 

«'0. (R4)+      ; 

BGT 

QUS3 

CnPB 

;*0,(R4)+      ; 

BNE 

QUS3 

OPEN%;j 

BCS 

ERRl           ; 

nov 

«FILE<R1       ; 

MOU 

nVECT,P3 

novB 

f  R  5 .1  +  -  C  R  3 )  -^     ; 

novB 

kR5i+. fR3^+ 

nouB 

iR5j  +  -  i.?3)  + 

JSR 

PC  WRITE       ; 

nODRESS 

SAVE  ADDRESS  OF  TTY 
; DEFAULT  FILE  BLOCK 


NPUT 


;ASK  FOR  VECTOR  ADDRESS 

IS  IT  LESS  THAN  THREE'^ 

Yc3/  ILLEGAL  ADDRESS 

IS  IT  A  LESS  THAK  SEVEN^ 

YES,  ILLEGAL  ADDRESS 

IS  SECOND  DIGIT  nORt  THAN  A  7 

YES,  ILLEGAL  ADDRESS 

IS  SECOND  DIGIT  LESS  THAN  A  Q'^ 

YES.  REPRINT  THE  QUESTION 

IS  THIRD  DIGIT  A  ZERC? 

NO,  REPRINT  THE  QUESTION 

OPEN  THE  FILE  (CPVP.  MAC  J 

OPEN  FAILURE 

POINTER  TO  LINES  AND  BYTE  COUNTS 

FCR  VECTOR  ADDRESS 

MOVE  VECTOR  ADDRESS  FROM  KEYBOARD  BUh 


WRITE  VECTOR 


ADDRESS  LINE  OF  >^ILE 


CONFIG 

MRCPo  nnG^  08 

-OEC-77 

RSK  FOP 

DEVICE 

ROnRESS 

157 

1S8 

000760 

01270H 

000062* 

169 

0007614 

ClOHOB 

IfeG 

000766 

161 

001006 

12272H 

000061 

162 

001012 

001362 

163 

ooiom 

12272H 

000066 

16^ 

001020 

Gcmoi* 

165 

001022 

12276^ 

000067 

166 

001030 

001353 

167 

001032 

012702 

ooooo^ 

168 

001036 

1227m 

000067 

169 

OC10H2 

0027^6 

r-o 

C010^^ 

12272H 

000060 

i:'i 

001050 

0033H3 

172 

001052 

005302 

173 

G0105^ 

001370 

^     17H 

001056 

012703 

000206' 

175 

001062 

112523 

17b 

00106H 

112523 

177 

001066 

112523 

178 

001070 

112523 

179 

001072 

112523 

ISO 

00l07^ 

112523 

181 

00107b 

OnH7b7 

000224 

11:  34  PRGE  7 


C  2 


177777 


. SBTTL 

RSK  FOR  DEVICE  flC 

QUS4:    MOV 

{IK6I8UF.R4     ; 

MOV 

RH,R5         ; 

MESSflG 

<DEVICE  ADDRESS) 

CMPB 

ll'l/(RH)+      ; 

6NE 

QUS4 

CMPB 

»'6.(RH)4'      ; 

BEQ 

105           ; 

CMPB 

»'7,-l(RH)      ; 

BNE 

QUS4          ; 

105;     MOV 

im,R2 

205:     CMPB 

«'7,(R4)        ; 

BLT 

QUSH           ; 

CMPB 

«'0.(R4)+       ; 

BGT 

QUSH           ; 

DEC 

R2            ; 

BNE 

205 

MOV 

»CSk.R3        ; 

MOVB 

(R5)+. (R3)+ 

MOVB 

(R'")*,  (R3)  + 

MOVB 

(R5)+, (R3)+ 

MOVB 

(R5)+, (R3)+ 

MOVB 

(R5)+, (R3)+ 

MOVB 

(R5)+,  (R3U 

JSR 

PC.URITE 

PDDRtSS  OF  KEYBOPRD  BUFFER 
SPVE  PDORESS 

IS  FIRST  DIGIT  0  1? 

IS  5^:'""'  ^"r'"^  Q  6? 

IS  SECOND  DIGIT  R  7? 

NO 

CHECK  NEXT  FOR  DIGITS  FO.  OCTAL 

GREATER  THAN  7? 

YES/  REPRINT  THE  QUESTION 

LESS  THAN  0? 

YES.  REPRINT  THE  QUESTION 

FOUR  CHPPACTERS  CHECKED? 

NO,  CHECK  :OME  MORE 

MOVE  DIGITS  "ROM  KEYBOARD  BUFFER 


UPITE  DEVICE  AODPESS  LINE  OF  FILE 


CONFIG 
flSI".  FOP 

133 
184 
185 
ISb 
187 
188 
189 
190 
191 
192 
193 
194 
19S 
196 


riRCPo  nno4 

DEVICE  PRIOR 


08-DEC-77 
TV 


n  3H  PfiGE  8 


D  2 


001102 

oonufe 
ooino 

001130 
001131* 
001136 

ooimz 

001144 
001 IBO 
001152 
001156 
001 IbO 
001164 


012/04 
01G406 

005767 
001413 
005367 
001357 
121527 
002754 
121527 
003351 
111567 
004767 


000062* 

000002' 

000002' 

000064 

000067 

000224' 
000136 


aus5: 


lOS; 


.SBTTL 

flSK  FOR 

DEVICE 

PRIORITY 

MOV 

MKBIBUF. 

R4 

;RDDRESS  OF  KEYBOfiRD  BUFFER 

MOV 

R4.R5 

;SPVE  PDORESS 

flESSRG 

<OEVICE 

PRIORITY  (DEFAULT  =  5)> 

TST 

IOSTB+2 

; ANYTHING  TYPED? 

BEQ 

lOS 

;N0.  USE  DEFAULT 

DEC 

I0S1B4-2 

; SUBTRACT  ONE  FROM  CHARACTER 

BNE 

QUS5 

;ONLY  ONE  CHARACTER  ALLOWED 

CMPB 

(R5),»'4 

;LESS  THAN  4? 

BLT 

QUS5 

;YES,  NO  GOOD 

CMPB 

(R5),«'7 

;GrEATER  THAN  7? 

BGT 

QUS5 

;YES,  NO  GOOD 

MOVB 

rR5j, PRIORI 

;0K,  STORE  ANSWER 

JSP 

PCWPITE 

; WRITE  PRIORITY  LINE 

TYPED 


CONFIG     MRCPO  nnOH     08-DEC-77 
RSK   FOP   i  INE  BAUD  RATE 


11:  3^     PfiGE   9 


E     2 


198 


1^9 

001170 

012704 

000062' 

200 

00117H 

010405 

201 

00n7fe 

202 

001213 

016702 

000002' 

203 

001222 

001762 

20H 

00122H 

020227 

000005 

205 

001230 

003357 

20fe 

001232 

012703 

000245' 

207 

001236 

060205 

203 

001240 

114543 

209 

0012H2 

121527 

000060 

210 

001246 

002750 

211 

001 2S0 

121527 

000C71 

212 

0012B4 

003345 

213 

001256 

005302 

214 

001260 

001367 

215 

001262 

020327 

000240' 

21b 

001266 

101403 

217 

001270 

112743 

000060 

218 

001274 

C00772 

219 

001276 

004767 

000024 

220 

001302 

004767 

000020 

221 

222 

223 

001306 

224 

001314 

22S 

00i32G 

QUS6; 


lOS: 


:os. 


30S: 


.  SBTTL 

RSK  FOR  LINE 

BAUD  RPTE 

MOV 

IIKBI6UF.R4 

; ADDRESS  OF  KEYBOARD  INPUT  BUFF 

MOV 

R4.R5 

;SAVE  ADDRESS 

MESSflG 

<LINE  SPEED 

(BITS/SECOND)) 

MOV 

I0STB*2.R2 

;GET  NUMBER  OF  CHARACTERS  TYPED 

BEQ 

QUS6 

;2ER0  -  ILLEGAL 

CMP 

R2.»5 

; GREATER  THAN  5? 

BGT 

^US6 

;YE3.  ILLEGAL 

MOV 

»SPEED*5.R3 

;LAST  CHAR  +  1  TO  STORE  ANSWER 

ROD 

R2.R5 

;LAST  CHAR  +  1  TYPED  BY  USER 

MOVB 

-(R6),-(R3) 

; STORE  NEXT  CHARACTER 

C/PB 

(R5),«'0 

;LESS  THAN  0? 

BLT 

QUS6 

;YES,  ERROR 

CMPB 

(R5).«'9 

; GREATER  THAN  9? 

BGT 

QUS6 

;YES,  ERROR 

DEC 

R2 

;ONE  LESS  TO  STORE 

BNE 

105 

.MORE  TO  GO 

CMP 

R3,;SPEED 

;FILLED  IN  THE  AREA  AREA? 

BLOS 

30S 

;YES 

MOVB 

»'0,-(R3) 

;N0,  FILL  OUT  WITH  ZEROS 

BP 

20S 

JSR 

PC. WRITE 

;WRITE  SPEED  LINE  OF  FILE 

JSR 

PCURlTE 

; WRITE  LAST  LINE  OF  FILE 

DIPS 

«CMDLN 

CLOSE'* 

EXIT5S 

CONFIG     MPCPO   M1104     08-0EC-77   11:34     PRGE    10 
UPITE   RND  EVENT   FLOGS  SUBROUTINE 


227 

228 

230 

?71 

i.^   1 

232 

233  001326 

012160  000026 

234  001332 

012160  000024 

235  001336 

236  001342 

103401 

237  001344 

000207 

238  001346 

--Q 

240 

241 

243 

244 

245 

246 

247  001366 

248  001374 

249  001402 

250  001414 

251  001426 

000207 

252 

253 

254 

255 

256 

257 

25S  001430 

259  001436 

260  001450 

F  2 


SBTTL  WRITE  AND  EVENT  FLPGS  SUBROUTINE 


WRITE: 


ROUTINE  TO  UPDRTE 
USER  BUFFER  POINTER 
SSUE  R  PUT 
(R1)+,F 
(Rl)i,F 


ERR2: 


RND  I 

nov 

MOV 

PUTS 

BCS 

RTS 
ERROR 


RND  USER  BUFFER  SIZE 


NRBD+2(R0) 
NRBD(RO) 


ERR 
PC 

<WP 


TE  ERROR) 


ROUTINE  TO  WRIT  FOR  EVENT  FLAGS 
QUES  WPITE(THE  QUESTION; 
WRITS  RND  THEN  QUES  RERD 
RND  WRITS  FOR  R  REPLY 


EVTFLGS: 


OUPUT: 


DIRS 

DIRS 

WTSESS 

CLEFSS 

PTS 


ROUTINE 
TELTYPE 

DIRS 

WTSESS 
EXITSS 


«ClDPBM 

;qdpbr 

;2 

PC 


TO  QUE  WRITE  TO 
RND  THEN  EXIT 

SQOPBn 
ttl 


CONFIG 

MRCPO  nil04  08- 

'DEC-77  11: 

34  PRGE  11 

G  2 

TRBLES 

262 
262 

. SBTTL 

TABLES 

2bH 

000165 

.PSECT 

nESSflG 

265 

.  EUEN 

266 

000166 

103 

120 

126 

LINEl: 

.  flSCII 

'CPVP==' 

000171 

120 

075 

075 

267 

00017H 

060 

060 

060 

VECT: 

.ASCII 

•000' 

268 

000177 

104 

125 

103 

LINE2: 

.  flSC  1  1 

'DUCSR==' 

000202 

123 

122 

075 

000205 

075 

269 

00020b 

060 

060 

060 

CSR: 

.  RSC  1  1 

•000000' 

000211 

060 

060 

060 

270 

0002m 

104 

105 

056 

LINE3; 

.  flSCI  1 

'DE.  PRI==' 

000217 

120 

122 

111 

000222 

075 

075 

2^1 

00022H 
000227 

065 
060 

052 

064 

PRIORI: 

.  RSCI  1 

•5*40" 

272 

000230 

104 

056 

123 

LINE4: 

.  ASCII 

'D.  SPED==' 

000233 

120 

105 

104 

000236 

075 

07-^ 

273 

000240 
0002H3 

060 
060 

060 
060 

060 

SPEED: 

.  flSC  1  1 

•00000' 

27^ 

000245 

05b 

057 

061 

.  RSC  1  ! 

'.  /lOO.  ' 

' 

000250 

060 

060 

056 

275 

000253 
000256 

056 
104 

105 

116 

LINE  5: 

.  ASCI  1 

',  END' 

276 

000257 

LINE6: 

277 

000257 

100 

104 

120 

DPCnO: 

.  ASC  1  ! 

'iDP' 

278 

000262 

100 

104 

125 

DUCMD: 

.  ASC 1 1 

•iDU' 

279 

000265 

103 

120 

122 

LINE2R: 

.  ASC  1  1 

■CPPSP==^ 

000270 

123 

I  .-s  ,-1 

1  i.^ 

075 

000273 

076 

280 

000007 

LINE2E= 

. -LINE2A 

281 

.  EVEN 

2S2 

001456 

. PSECT 

AAA 

283 

001456 

00U166' 

FILE: 

.  WORD 

LINEl 

28^ 

001460 

000011 

.  WORD 

LINE2-LINE1 

285 

0014G2 

000177' 

.  WORD 

LINE2 

2Sb 

00146'f 

000C15 

.  WORD 

LINE3-LINE2 

001466 

000214' 

.  WORD 

LINF3 

2£S 

001470 

000014 

.  WORD 

LINE4-LINE3 

289 

001472 

000230" 

.  WORD 

LINE4 

290 

001474 

000023 

.  WORD 

LINE5-LINE4 

291 

001476 

000253' 

.  WORD 

LINE5 

001500 

000004 

WORD 

LINEb-LINEE 

293 

000436' 

.  END 

STPPT 

CONF IG 
SYMBOL 

CnDFDB 

CMDLN 

CSP 

DFNBLK 

DFNB2 

DPCMD 

Ducno 

EPPl 

EPP2 

EPP3 

EVfTFLG 

FD.  CP  = 

f  ILE 

FO.  UPT  = 

r  RCTL= 
P1L0C  = 
BBFS  = 
BOB  = 
BGBC  = 
BKDN= 
BKDS= 
BKEF  = 
BKP1  = 
BKST= 
BKVB  = 
CHR  = 
CNTG= 
DFNB  = 
DSPT= 


MfiCPO 
TOBLE 


nnOH  08-DEC-77  n:3H  PfiGE  ll-l 


H  2 


F 

r 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 

F. 


OG0202R 

OOOObOR 

000206R 

0003H2R 

GOOHCOR 

000257R 

G002b2R 

O0G60^R 

0013i4bR 

G00fe2HR 

C'^136feR 

tttttt   GX 

OOmBbR 

♦|^tt#  GX 

000076 

OOOOHO 

000062 

000070 

0000B7 

000026 

000020 

000050 

000051 

00002^ 

00006H 

000075 

00003^ 

G000^6 

0G00H4 


002 
002 
OOH 
002 
002 
00^ 
OOH 
002 
002 
002 
002 

002 


F. 
F. 
F, 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 

^ 

r . 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 
F. 


EFBK: 
EFN  : 
EOBB: 
ERR  : 

FflCC: 

FFBY: 
FNPM: 
FNB  : 
FTYP: 
EVER: 
HIBK: 

LUN  : 

MBCT: 

MBCl: 

MBFG: 
NRBQ: 
NREC: 
OVBS: 

RflCC: 
PmTT: 

RCNM: 

PCTL: 

RS!2= 

PTYP: 

SEQN= 
SPDu  = 
SPUN= 


0001 3H 
000010 
000050 
000032 
000052 
0000H3 

oooom 

000110 
000102 
00011b 
000120 
OOOOOH 
0003H2 

oooo5^ 

000055 
00005b 

oooo2^ 

G0GG30 
000030 
OOOGlb 
OGGOOl 
0GGG3H 
G0GG17 
GG0002 
000000 
000100 
000072 
00007H 


F.  STBK= 

00003b 

PRIORT 

000224R 

004 

TflGEl 

00001 IR 

004 

F.  UNIT= 

00013b 

PS 

177776 

TflGE2 

000025R 

004 

F.  URBD= 

000020 

QDPSn 

OOOOOOR 

002 

TRGEJ 

00004 4 R 

004 

F.  VBN  = 

OOOObH 

QDPBR 

000030R 

002 

TPGE4 

000063R 

004 

F.  UBSZ= 

OOOObO 

QUSl 

0004b6R 

002 

TPGE5 

000121R 

004 

G.  riCRB= 

000002 

QUS3 

0a0630R 

002 

TPGE6 

0001 62R 

004 

lOSTB 

OOOOOOR 

QUS4 

0007bOR 

002 

TflGE7 

OOOlbBR 

004 

10.  RLB  = 

tttttt   GX 

QUSl) 

001102R 

002 

TRGNUMs 

000007 

10.  ULB= 

tttttt   GX 

QUSb 

001170R 

002 

TflGI 

OOOOOOR 

004 

KBIBUF= 

0000b2R 

002 

Q.  IOflE  = 

000012 

TflG2 

00001 IR 

004 

LINE  I 

OOOlbbR 

004 

Q.  IOEF  = 

00000b 

T«G3 

00002&R 

004 

LINE2 

000177R 

004 

Q.  IOFN= 

000002 

TfiG4 

000044R 

004 

LINE2P 

0002b5R 

004 

Q.  IOLU= 

000004 

TflG5 

0000b3R 

004 

LINE2E= 

000007 

Q.  IOPL  = 

000014 

TflGb 

000121R 

004 

LINE3 

00021'4R 

004 

Q.  IOPR  = 

000007 

TRG7 

0001 52R 

004 

LINE^ 

000230R 

004 

Q.  IOSB  = 

000010 

VECT 

0001 74R 

004 

LINE5 

000253R 

004 

R.  VflR  = 

tttttt   GX 

WRITE 

00132bR 

002 

LINEb 

000257P 

004 

SPEED 

000240R 

004 

sssnRG= 

000003 

N.  D 1 D  = 

00002H 

START 

0004 3bR 

002 

5550ST= 

000122 

N.  DVNn= 

000032 

S.  BFHD= 

000020 

.  CLOSE= 

tttttt   G 

N.  F  1 D  = 

000000 

S.  FflTT= 

0000 lb 

. FINIT= 

tttttt   G 

N.  FNfln= 

00000b 

S.  FOB  = 

000140 

.  FSRCB= 

tttttt   G 

N.  FTYP  = 

oooom 

S.  FNPri= 

00000b 

.  OPEN  = 

tttttt   G 

N.  FVER  = 

OOGOlb 

S.  FNB  = 

000G3b 

.  PUT   = 

tttttt   G 

N.  NEXT  = 

000022 

5.  FNBW= 

G0G017 

. . .  PC1= 

000202R 

002 

N  STflJr 

000020 

S.  FNTY  = 

G00004 

. .  .  PC2= 

000434R 

002 

N.  UNITr 

00003H 

S.  FTYP  = 

000002 

. . .  PC3= 

000202R 

002 

OUPUT 

oomzop 

002 

S.  NFEN= 

000020 

. . .  TPC= 

000020 

.  RBS.   000000  GOO 

000004  001 

RflR     0015U2  002 

SSFSRl   001020  003 

MESSflG   000274  004 

ERRORS  DETECTED:  U 


^S 


UiPTURL  fiEMOPY  USED:   4SSS  WORD! 
DVNfln'C  nEnOPV;   523^  WORDS   (  20 
ELPPSED  TIME:   00:  00:  53 
25b.  020  CONF  lb;  27,  256  030  CONF  I  G,'-SP  =  CONF  IG 


(  20  PRGES) 
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